2009-11-03 102 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

相關問題