VBA命令按钮操作

1、添加一个命令按钮

Sub  AddCommandBar()
' 命令
Dim  cbar   As  CommandBarButton


Set  cbar  =  CommandBars( " Standard " ).Controls( " 临时按钮 " )

If   Not  cbar  Is   Nothing   Then
     Exit   Sub
End   If

     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

Private   Sub  QuitWithoutSave()
     MsgBox   " 激活事件:临时按钮 "
End Sub

2、删除命令按钮

CommandBars( " Standard " ).Controls( " 临时按钮 " ).Delete

3   修改word命令

 

 

' 修改word命令
Sub  FileSave()

MsgBox  ActiveDocument.Name

If  ActiveDocument.Saved  =   False   Then
    ActiveDocument.Save
End   If

End Sub


Sub  FileSaveAs()
     MsgBox   " 您不能另存文档 "
End Sub

 4、删除顶端菜单

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

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