AdaptiveMenus Property
True if adaptive menus are enabled. Read/write Boolean.
Example
This example sets three options for all command bars in Microsoft Office, including custom command bars and the controls on them.
With CommandBars
.LargeButtons = True
.DisplayFonts = True
.AdaptiveMenus = True
End With