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
