VBA命令按钮操作

1、添加一个命令按钮
None.gifSub AddCommandBar()
None.gif
'命令
None.gif
Dim cbar  As CommandBarButton
None.gif
None.gif
None.gif
Set cbar = CommandBars("Standard").Controls("临时按钮")
None.gif
None.gif
If Not cbar Is Nothing Then
None.gif    
Exit Sub
None.gif
End If
None.gif
None.gif    
With CommandBars("Standard")
None.gif        .Protection 
= msoBarNoProtection
None.gif        
None.gif        
With .Controls.Add(msoControlButton, Before:=3)
None.gif            .DescriptionText 
= "QuitWithoutSave"
None.gif            .Caption 
= "临时按钮"
None.gif            .TooltipText 
= "临时按钮"
None.gif            .Style 
= msoButtonIconAndCaption
None.gif            .OnAction 
= "QuitWithoutSave"
None.gif        
End With
None.gif    
None.gif    
End With
None.gif
End Sub
None.gif
None.gif
Private Sub QuitWithoutSave()
None.gif    
MsgBox "激活事件:临时按钮"
None.gif
End Sub
2、删除命令按钮
None.gifCommandBars("Standard").Controls("临时按钮").Delete

3   修改word命令

 

 

None.gif'修改word命令
None.gif
Sub FileSave()
None.gif
None.gif
MsgBox ActiveDocument.Name
None.gif
None.gif
If ActiveDocument.Saved = False Then
None.gif    ActiveDocument.Save
None.gif
End If
None.gif
None.gif
End Sub
None.gif
None.gif
None.gif
Sub FileSaveAs()
None.gif    
MsgBox "您不能另存文档"
None.gif
End Sub

 4、删除顶端菜单

None.gif CommandBars.ActiveMenuBar.Controls("Custom").Delete

转载于:https://www.cnblogs.com/hongfeng/archive/2007/02/07/643555.html

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值