2024年6月15日发(作者：召觅)

技巧1

在菜

单栏指

定位置

添加菜

单

除了可以

在工作表

菜单中添

加菜单项

外，还可

以在工作

表菜单栏

的指定位

置添加菜

单，如下

面的代码

所示。

Sub

AddNewMen

u()

Dim

HelpMenu

As

CommandBa

rControl

Dim

NewMenu

As

CommandBa

rPopup

With

Applicati

dBars("Wo

rksheet

menu

bar")

.Reset

Set

HelpMenu

=

.FindCont

rol(ID:=.

Controls(

"帮助

(&H)").ID

)

If

HelpMenu

Is

Nothing

Then

Set

NewMenu=

.Controls

.Add(Type

:=msoCont

rolPopup)

Else

Set

NewMenu=

.Controls

.Add(Type

:=msoCont

rolPopup,

_

Before:=H

elpMenu.I

ndex)

End If

With

NewMenu

.Caption

="统计

(&S)"

With

.Controls

.Add(Type

:=msoCont

rolButton

)

.Caption

="输入数

据(&D)"

.FaceId=

162

.OnAction

= ""

End With

2024年6月15日发(作者：召觅)

技巧1

在菜

单栏指

定位置

添加菜

单

除了可以

在工作表

菜单中添

加菜单项

外，还可

以在工作

表菜单栏

的指定位

置添加菜

单，如下

面的代码

所示。

Sub

AddNewMen

u()

Dim

HelpMenu

As

CommandBa

rControl

Dim

NewMenu

As

CommandBa

rPopup

With

Applicati

dBars("Wo

rksheet

menu

bar")

.Reset

Set

HelpMenu

=

.FindCont

rol(ID:=.

Controls(

"帮助

(&H)").ID

)

If

HelpMenu

Is

Nothing

Then

Set

NewMenu=

.Controls

.Add(Type

:=msoCont

rolPopup)

Else

Set

NewMenu=

.Controls

.Add(Type

:=msoCont

rolPopup,

_

Before:=H

elpMenu.I

ndex)

End If

With

NewMenu

.Caption

="统计

(&S)"

With

.Controls

.Add(Type

:=msoCont

rolButton

)

.Caption

="输入数

据(&D)"

.FaceId=

162

.OnAction

= ""

End With