在Excel 2007功能区按钮上添加更大的图标

Question

我有一个Excel 2007 VBA脚本，它为功能区添加了一个按钮，但遗憾的是图标很小。我尝试了几种不同的FaceId，但它们似乎都添加了微小的图标按钮。有没有办法加载一些较新的2007尺寸图标？

以下是我在ThisWorkbook中加载的代码片段：

Set NewButton = NewToolbar.Controls.Add(Type:=msoControlButton)
With NewButton
     .FaceId = 752
    .TooltipText = "Convert XLS Files to CSVs"
    .OnAction = "XLSTOCSV"

感谢您提供有关增加图标大小的任何见解。

Answer 1

使用NewButton.Height和NewButton.Width设置按钮的大小。其他属性可以找到here

希望这有帮助

编辑：

试试这个：

Set NewButton= .Controls.Add(Type:=msoControlButton, Id:=YourFaceID)

我不确定，但这可能会为您自动调整大小

编辑2：

如果有帮助，如果使用按钮，请尝试制作一个ribon。如果您了解基本XML，那么编码非常简单。一个例子是：

<?xml version="1.0" encoding="utf-8" ?> 
<customUI xmlns="http://schemas.microsoft.com/office/2006/01/customui" > 
    <ribbon> 
        <tabs> 
            <tab id="myTab" label="New Tab"> 
                <group id="group1" label="New Buttons"> 
                    <button id="MyButton" label="My Button" imageMso="HappyFace" size="large" onAction="myButton_ClickHandler" /> 
                </group> 
            </tab> 
        </tabs> 
    </ribbon> 
</customUI>

这会创建一个如下所示的功能区：

获得此功能的简单步骤：

1. 打开一个新的Excel工作簿
2. 将其另存为Excel（* .xlam）
3. 下载此免费软件：XML UI editor
4. 将上面的代码粘贴到其中
5. 保存
6. 打开Excel
7. 转到Excel选项＆gt;添加ins＆gt;去勾选你所谓的插件
8. 玩得开心：）

关于代码的一些注意事项：OnAction是excell插件中sub的名称，单击该按钮时将调用该名称。其余的是非常自我解释

有关详细信息，请查看here