如何改变MsoButtonicon到msobuttoncaption

Question

我正在添加工具栏，并希望将按钮显示为文本。有什么建议吗？

With oButton2
    .DescriptionText = "This is my first button"
    .Caption = "Bullets"
    .OnAction = "Button2"
    .Style = msoButtonIcon
    .FaceId = 55 'chooses icon #55 from the available Office icons
End With

Answer 1

将.Style位更改为此

.Style = msoButtonCaption