OLEMenuGroup Property Example

This example checks the OLEMenuGroup property of a new custom pop-up control on the command bar named “Custom” and sets the property to msoOLEMenuGroupNone.

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