自定义命令控件 | ExcelOffice【微信公众号：水星Excel】

在之前的文章中，我们介绍了很多相关的在vba中操作菜单、命令栏的方法。

比如给“菜单命令”中添加一个自定义的命令，可以使用如下的代码：

Sub QQ1722187970()
    Dim oCB As CommandBar
    Set oCB = Excel.Application.CommandBars("Worksheet Menu Bar")
    Dim oCBC As CommandBarControl
    Dim oCBB As CommandBarButton
    With oCB
        .Reset
        '给菜单增加一个命令控件
        Set oCBB = .Controls.Add
    End With
End Sub

Sub QQ1722187970()

Dim oCB As CommandBar

Set oCB = Excel.Application.CommandBars("Worksheet Menu Bar")

Dim oCBC As CommandBarControl

Dim oCBB As CommandBarButton

With oCB

.Reset

'给菜单增加一个命令控件

Set oCBB = .Controls.Add

End With

End Sub

[……]

阅读全文>>>

为什么在vba中给菜单命令栏添加的控件没有显示标题或图形？

感谢你的支持，我将持续地写出更好的文章。

热门文章

最近文章

微信公众号