不需要VSTO,VBA也能添加按钮到工具栏
看下面的代码Set oToolbar = CommandBars.Add(Name:=MyToolbar, _
Position:=msoBarFloating, Temporary:=True)
If Err.Number <> 0 Then
' The toolbar's already there, so we have nothing to do
Exit Sub
End If
On Error GoTo ErrorHandler
' Now add a button to the new toolbar
Set oButton = oToolbar.Controls.Add(Type:=msoControlButton)
' And set some of the button's properties
With oButton
.DescriptionText = "This is my first button"
'Tooltip text when mouse if placed over button
.Caption = "DCP Bullet Format"
'Text if Text in Icon is chosen
.OnAction = "dcp_bullets"
'Runs the Sub Button1() code when clicked
.Style = msoButtonIconAndCaption
' Button displays as icon, not text or both
.FaceId = 12
' chooses icon #52 from the available Office icons
End With
页:
[1]