2023年11月23日發(作者：關于讓的故事)白羊向前沖醉醉醒醒，醒醒醉醉，顛倒愁腸，笑盡苦水。閑憔悴，此意憑君取。/花開花落，花落花開，暗恨斜生，情如流水。總難禁，我亦是行人。 主頁博客相冊|個人檔案
|好友 查看文章
設置Excel自定義工具欄的通用代碼2007-05-07 20:30Private Sub Workbook_Open()
'自定義工具欄
Dim Mybar As CommandBar
Set Mybar = (Name:="匯總表工具", Temporary:=True)
'Position:=msoBarTop,
Dim MyPopup As CommandBarPopup
Set MyPopup = (Type:=msoControlPopup)
With MyPopup
.Caption = "匯總工具"
End With
Dim MyButton As CommandBarButton
Set MyButton = (Type:=msoControlButton, ID:=2949)
With MyButton
.Caption = "貼到新表中(&D)"
.Style = msoButtonCaption
.OnAction = "Sheet1.貼到新表中"
.FaceId = 280
End With
Set MyButton = (Type:=msoControlButton)
With MyButton
.Caption = "清空表格(&D)"
.OnAction = "Sheet1.清空表格"
.FaceId = 285
.Style = msoControlButton
End With
Set MyButton = (Type:=msoControlButton)
n = "菜單項二"
Set MyButton = (Type:=msoControlButton)
n = "菜單項三"
e = True
Set mCommand = (Type:=msoControlButton, ID:=2949)
With mCommand
.Caption = "匯總工作簿(&T)"
.OnAction = "Sheet1.匯總"
.Style = msoButtonCaption
.BeginGroup = True '添加分組線
End With
Set mCommand = (Type:=msoControlButton, ID:=2949)
With mCommand
.Caption = "選擇工作簿目錄(&D)"
.OnAction = "Sheet1.選擇目錄"
.Style = msoButtonIconAndCaption '設置工具欄圖標
.FaceId = 303
End With
With dBars("匯總表工具")
.Visible = True
.Position = 4
.Top = 380
.Left = 710
End With
End sub
Private Sub Workbook_BeforeClo(Cancel As Boolean)
dBars("匯總表工具").Delete
On Error Resume Next
End Sub
————————————————
Style 屬性應用于 CommandBarButton 對象的情形。
返回或設置命令欄按鈕控件的顯示方式。MsoButtonStyle 類型，可讀寫。
MsoButtonStyle 可為以下 MsoButtonStyle 常量之一：
msoButtonAutomatic
msoButtonCaption
msoButtonIcon
msoButtonIconAndCaption
msoButtonIconAndCaptionBelow
msoButtonIconAndWrapCaption
msoButtonIconAndWrapCaptionBelow
msoButtonWrapCaption
類別：Excel | | 添加到搜藏 | 分享到i貼吧 | 瀏覽(845) | 評論 (0) 上一篇：2007-5-7
下一篇：VBA中用WMI創建快捷方式的代碼 相關文章：•在 Excel 中自定義菜單欄和工具... •Excel工具欄的自定義及保存
•EXCEL工具欄自定義快捷鍵方案 •Excel中自定義函數實例剖析
•Excel 2010 中為自定義函數參數... •excel vba 給自定義函數添加說...
•EXCEL自定義單元格格式說明 •Excel 模糊搜索 自定義函數
•自定義格式導出Excel •Excel單元格的自定義格式用法示...
更多>>
最近讀者：登錄后，您就出現在這里。
pippo1889wanxuejinbdweishaoyi本年累計譚炳煌369258147yzh119112110hongfengeio
網友評論：
發表評論：
內 容：插入表情▼ 閃光字
取消回復
©2011 Baidu
