[發問] 有關於增益集自訂工具列的圖形

s13030029

#發錯分類重發
我利用程式自製增益集工具列，但是我想要把我的MsobuttonStyle變成圖片中右邊那樣的形式

下載 (34.34 KB)

2019-6-20 16:30

MsobuttonStyle的形式有下面這些
msoButtonAutomatic                                   預設行為。
msoButtonCaption                                        僅文字。
msoButtonIcon                                                      僅圖像。
msoButtonIconAndCaption                              圖像和文字 (文字位於圖像右側)。
msoButtonIconAndCaptionBelow            圖像 (下方有文字)。
msoButtonIconAndWrapCaption             圖像 (右側有換行文字)。
msoButtonIconAndWrapCaptionBelow 圖像 (下方有換行文字)。
msoButtonWrapCaption                              僅文字 (置中且會換行)。
我用了msoButtonIconAndCaptionBelow但是都沒變，有高手知道怎麼改嗎????????????

1. Set myButton1 = .Controls.Add(msoControlButton)
   
2.         With myButton1
   
3.             .Style = msoButtonIconAndCaption '同時顯示文字和小圖示
   
4.             .BeginGroup = True
   
5.             .Caption = "使用說明"            '顯示在工具列上的按鈕文字
   
6.             '.TooltipText = "畫面選擇"        '滑鼠移過去時，所顯示的提示文字
   
7.             .FaceId = 487                    '小圖示
   
8.             .Tag = "MyCustomTag"
   
9.            .OnAction = "選擇使用說明"        '設定按下此鍵時所要執行的巨集
   
10.         End With

複製代碼

test.rar (125.57 KB)

下載次數: 3

2019-6-20 16:31