AdaptiveMenus Property 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