菜单栏项目标签写着Custom Code的菜单显示在帮助菜单右边。如图一所示：
建立菜单项目
有了合适的自定义菜单栏，你就可以加入新的菜单中了。菜单项目表示为CommandBarControl对象，你将使用先前建立的菜单栏项目Controls集合的Add方法来建立一个新的CommandBarControl实例。
1.增加下列程序到OfficeCodeBehind类中，这段程序建立了CommandBarControl并且设置其标题：
' Visual Basic
Private Function CreateButton( _
ByVal Parent As Office.CommandBarPopup, _
ByVal Caption As String) As Office.CommandBarButton
Try
Dim cbc As Office.CommandBarControl
cbc = Parent.Controls.Add( _ Office.MsoControlType.msoControlButton, Temporary:=True)
cbc.Caption = Caption
cbc.Visible = True
Return DirectCast(cbc, Office.CommandBarButton)
Catch ex As Exception
MessageBox.Show(ex.Message, _页码：[1] [2] [3] [4] [5] [6] [7] [8] [9] 第5页、共9页 |
