VBA命令按钮操作
1、添加一个命令按钮
Sub AddCommandBar()
'命令
Dim cbar As CommandBarButton
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
Set cbar = CommandBars("Standard").Controls("临时按钮")
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
If Not cbar Is Nothing Then
Exit Sub
End If
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
With CommandBars("Standard")
.Protection = msoBarNoProtection
With .Controls.Add(msoControlButton, Before:=3)
.DescriptionText = "QuitWithoutSave"
.Caption = "临时按钮"
.TooltipText = "临时按钮"
.Style = msoButtonIconAndCaption
.OnAction = "QuitWithoutSave"
End With
End With
End Sub
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
Private Sub QuitWithoutSave()
MsgBox "激活事件:临时按钮"
End Sub
2、删除命令按钮
CommandBars("Standard").Controls("临时按钮").Delete
'修改word命令
Sub FileSave()
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
MsgBox ActiveDocument.Name
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
If ActiveDocument.Saved = False Then
ActiveDocument.Save
End If
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
End Sub
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
Sub FileSaveAs()
MsgBox "您不能另存文档"
End Sub
CommandBars.ActiveMenuBar.Controls("Custom").Delete
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
3 修改word命令
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)
4、删除顶端菜单
![](https://www.cnblogs.com/Images/OutliningIndicators/None.gif)