2009-11-03 66 views
0

我有一个Excel 2007 VBA脚本,它向功能区添加了一个按钮,但不幸的是,该图标很小。我尝试了几种不同的FaceId,但他们似乎都添加了小图标按钮。有没有办法加载一些较新的2007年大小的图标?在Excel 2007功能区按钮上添加较大的图标

下面是我在的ThisWorkbook得到加载的代码片段:

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

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

回答

1

使用NewButton.Height和NewButton.Width设置按钮的大小。其他性能可以发现here

希望这有助于

编辑:

试试这个:

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

我不知道,但可能会做自动调整大小为您

编辑2:

如果有帮助,请尝试m如果你正在使用按钮,请使用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> 

这将创建一个丝带,看起来像这样:

Excel Ribbon

简单的步骤来得到这个:

  1. 打开一个新的Excel工作簿
  2. 将其另存为Excel Add In(* .xlam)
  3. 下载这个免费软件:XML UI editor
  4. 将代码粘贴上述进去
  5. 保存
  6. 打开Excel
  7. 转到Excel选项>加载项>进入和蜱不管你叫你的插件
  8. 有乐趣的是: )

有关代码的几点说明:OnAction是excell插件中的子名称,该名称将在单击该按钮时调用。其余部分是相当自我解释

欲了解更多信息,请查看here

+0

无赖......我猜我希望存在一个方式来加载在Excel 2007中的较大的默认图标或有有它自动调整,以填补默认情况下,整个可用区域...哦,以及... – JustADude 2009-11-03 02:17:56

+0

如果您希望它填充整个可用区域,那么只需将高度和宽度设置为与容器的高度和宽度相同即可。至于定义'默认',为什么不创建一些默认大小或默认按钮来关闭。给我一分钟寿命,我认为有一个'复制模板'funciton – TerrorAustralis 2009-11-03 02:21:45

+0

请参阅编辑可能的解决方案 – TerrorAustralis 2009-11-03 02:25:37

相关问题