从功能区调用 Excel 宏

Question

简介： 我编写了一些简短的 Excel 宏（经过测试，它们工作正常），并希望将它们链接到功能区中的按钮（Excel 2010）。我已经在 Excel 2007 中成功完成了。 我正在使用自定义 UI 编辑器构建一个新的功能区，它也工作得很好。所有内容都打包在 .xlam 加载项中并添加到 Excel 中。功能区显示良好，所有其他按钮都可以使用，但是......

问题： 当我点击链接到宏的按钮时，出现错误：“参数数量错误或属性分配无效”（从意大利语翻译的消息，可能与英语不完全相同）

故障排除信息： 宏没有参数。可以手动成功调用和执行相同的宏。我什至可以将相同的宏添加到快速访问工具栏。

这是功能区脚本的特定部分：

<group id="DupNumber" label="Number" insertBeforeMso="GroupNumber" >  
    <comboBox idMso="NumberFormatGallery"/> 
    <box id="HN1" boxStyle="horizontal"> 
        <buttonGroup id="HNButtonGroup1"> 
            <button id="Euro" onAction="Roberto.xlam!EURZ" imageMso="F" supertip="text ..."/> 
            <button id="EuroNZ" onAction="Roberto.xlam!EURNZ" imageMso="E" supertip="text ..."/> 
            <button idMso="PercentStyle"/> 
            <button id="Comma" onAction="Roberto.xlam!NewCommaFormat" imageMso="C" supertip="test ..."/> 
            <button idMso="PercentStyle"/> 
        </buttonGroup> 
    </box>

这是宏：

Sub EURZ()
    Application.ActiveCell.NumberFormat = "€ #,##0.00"
End Sub
Sub EURNZ()
    Application.ActiveCell.NumberFormat = "€ #,##0"
End Sub
Sub NewCommaFormat()
    Application.ActiveCell.NumberFormat = "#,##0"
End Sub

你能帮助我吗？ 谢谢 罗伯托

Answer 1

我相信您需要将此参数添加到您的宏中： control As IRibbonControl

所以它应该如下所示：

Sub EURZ(control As IRibbonControl)
    Application.ActiveCell.NumberFormat = "€ #,##0.00"
End Sub