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

Question

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

这是我在 ThisWorkbook 中加载的代码的 sn-p：

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 选项 > 加载项 > 去勾选您调用的任何插件
8. 玩得开心 :)

关于代码的几点说明： OnAction 是您的 Excel 插件中的子程序的名称，当单击该按钮时将调用该子程序。剩下的就很清楚了

更多信息，请关注here