有幾個網(wǎng)友問到,就順便貼上來。
CommandBars.Add 方法 (Office)Office 2013 and later
創(chuàng)建一個新的命令欄并將其添加到命令欄集合中。
創(chuàng)建一個新的命令欄并將其添加到命令欄集合中。
已通過 Microsoft Office 流暢的用戶界面的新功能區(qū)組件取代某些 Microsoft Office 應用程序中的命令欄使用。有關更多信息,請搜索幫助關鍵字"功能區(qū)"。 語法
表達式 .Add(Name, Position, MenuBar, Temporary)
參數(shù)名稱 | 必需/可選 | 數(shù)據(jù)類型 | 說明 | Name | 可選 | Variant | 新命令欄的名稱。如果省略此參數(shù),則為命令欄指定默認名稱(如 Custom 1)。 | Position | 可選 | Variant | 位置或新的命令欄的類型?梢允MsoBarPosition常量之一。 | MenuBar | 可選 | Variant | 真正的活動菜單欄替換為新的命令欄。默認值為False。 | Temporary | 可選 | Variant | True將使新命令欄為臨時。命令欄在關閉容器應用程序時刪除。默認值為False。 |
CommandBarControls.Add 方法 (Office)Office 2013 and later
創(chuàng)建一個新的命令欄控件對象并將其添加到指定的命令欄上控件的集合。
已通過 Microsoft Office 流暢的用戶界面的新功能區(qū)組件取代某些 Microsoft Office 應用程序中的命令欄使用。有關更多信息,請搜索幫助關鍵字"功能區(qū)"。
語法
參數(shù)名稱 | 必需/可選 | 數(shù)據(jù)類型 | 說明 | Type | 可選 | Variant | 要添加到指定的命令欄的控件類型?梢允窍铝械MsoControl常量之一:msoControlButton、 msoControlEdit、 msoControlDropdown、msoControlComboBox或msoControlPopup。 | Id | 可選 | Variant | 指定內置控件的整數(shù)。如果該參數(shù)為 1,或者忽略該參數(shù),將在命令欄中添加一個空的指定類型的自定義控件。 | 參數(shù) | 可選 | Variant | 對于內置控件,該參數(shù)用于由容器應用程序運行的命令。為自定義控件,您可以使用此參數(shù)可以為 Visual Basic 程序傳送信息,或可用來存儲信息 (類似于另一個Tag屬性值) 的控件。 | Before | 可選 | Variant | 一個指示新控件在命令欄上位置的數(shù)值。新控件將插入到位于此位置的控件之前。如果忽略該參數(shù),控件將添加到指定命令欄的末端。 | Temporary | 可選 | Variant | True將使新控件臨時。 在關閉容器應用程序時,將自動刪除控件。默認值為False。 |
示例 VBA
- Dim customBar As CommandBar Dim newButton As CommandBarButton
- Set customBar = CommandBars.Add("Custom")
- Set newButton = customBar.Controls _
- .Add(msoControlButton, CommandBars("Edit") _
- .Controls("Cut").Id)
- Set newButton = customBar.Controls _
- .Add(msoControlButton, CommandBars("Edit") _
- .Controls("Copy").Id)
- Set newButton = customBar.Controls _
- .Add(msoControlButton, CommandBars("Edit") _
- .Controls("Paste").Id)
- customBar.Visible = True
復制代碼
|