Office VBA教程:OLEMenuGroup属性

当 OLE 服务器菜单组与 OLE 客户菜单组合并时(即当一个容器应用程序类型的对象嵌入另一个应用程序时),返回或设置指定命令栏弹出式控件所属的菜单组。 MsoOLEMenuGroup 类型,可读写。

MsoOLEMenuGroup 可为以下 MsoOLEMenuGroup 常量之一:
msoOLEMenuGroupContainer
msoOLEMenuGroupEdit
msoOLEMenuGroupFile
msoOLEMenuGroupHelp
msoOLEMenuGroupNone
msoOLEMenuGroupObject
msoOLEMenuGroupWindow

注意   该属性对内置控件是只读的。

说明

本属性允许加载应用程序指定其命令栏控件在 Office 应用程序中的表示方法。如果容器或服务器中的某一个不提供命令栏,那么就进行通用 OLE 菜单合并:菜单栏以及服务器的所有工具栏将进行合并,但容器的工具栏不会被合并。本属性只与菜单栏中的弹出式控件有关,因为菜单是根据其菜单组的类别进行合并的。

如果要合并的两个应用程序均提供命令栏,那么命令栏控件根据OLEUsage属性进行合并。

VBA示例

本示例可实现的功能为:查看一个新建的自定义弹出式控件(该控件位于命令栏“Custom”上)的 OLEMenuGroup属性,并将其设置为 msoOLEMenuGroupNone。


Set myControl = CommandBars("Custom").Controls _
    .Add(Type:=msoControlPopup,Temporary:=False)
myControl.OLEMenuGroup = msoOLEMenuGroupNone

上页:Office VBA教程:Object属性 下页:Office VBA教程:OLEUsage属性

Office VBA教程:OLEMenuGroup属性

Office VBA教程:OLEUsage属性 Office VBA教程:On属性
Office VBA教程:OnAction属性 Office VBA教程:Parameter属性
Office VBA教程:Parent属性 Office VBA教程:Path属性
Office VBA教程:Picture属性 Office VBA教程:Position属性
Office VBA教程:Priority属性 Office VBA教程:Private属性
Office VBA教程:ProgId属性 Office VBA教程:PropertyTests属性
Office VBA教程:ProportionalFont属性 Office VBA教程:ProportionalFontSize属性
Office VBA教程:Protection属性 Office VBA教程:Reduced属性
Office VBA教程:RowCount属性 Office VBA教程:RowIndex属性
Office VBA教程:ScopeFolder属性 Office VBA教程:ScopeFolders属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号