| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3278201
建立时间:2005年6月6日 |
| |
|
 [delpih编程]word中加入工具按钮的用例
软件技术
吕向阳 发表于 2010/11/7 20:06:03 |
| Sub DeleteBtn() On Error Resume Next Application.CommandBars("cmdBtn Type").Delete On Error GoTo 0End SubSub startbb() Dim cmdBar As CommandBar Dim cmdBtn As CommandBarButton Dim cmdBtn2 As CommandBarButton Call DeleteBtn Set cmdBar = Application.CommandBars.Add(Name:="cmdBtn Type", Temporary:=True) With cmdBar .Visible = True Set cmdBtn2 = .Controls.Add(Type:=msoControlButton) With cmdBtn2 .Caption = "生成附注" .FaceId = 13 .OnAction = "ButtonShow2" .Style = msoButtonIconAndCaption End With Set cmdBtn = .Controls.Add(Type:=msoControlButton) With cmdBtn .Caption = "改变表格风格" .FaceId = 12 .OnAction = "openform" .Style = msoButtonIconAndCaption End With End WithEnd Sub |
|
|