Excel工具栏按钮

Question

我添加了一些新的＆＃34;按钮＆＃34;到Excel 2007工具栏

<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui">
<ribbon>
    <tabs>
        <tab id="customTab" label="ClaroTech">
            <group id="customGroup" label="Animalcare Group">

<button id="customButton1" label="Custom Button1" imageMso="SmartArtChangeColorsGallery" size="large" onAction="Callback1" />
<button id="customButton2" label="Custom Button2" imageMso="SmartArtChangeColorsGallery" size="large" onAction="Callback2" />
            </group>
        </tab>
    </tabs>
</ribbon>

这很好用，工具栏显示。我已将以下代码添加到其中一个模块

中

Sub Callback2()
 MsgBox "Welcome"
End Sub

按下按钮后，我收到以下错误

我不知道是什么导致了这个错误，任何帮助表示赞赏。

Answer 1

这不是一个有效的按钮回调签名。它应该是：

Sub Callback2(control As IRibbonControl)
 MsgBox "Welcome"
End Sub

如果您使用CustomUI编辑器，它可以为您生成回调存根。