With Application.CommandBars
.LargeButtons = True
.DisplayTooltips = True
End With
This example displays the Formatting command bar at the top of the application window.
With Application.CommandBars("Formatting")
.Visible = True
.Position = msoBarTop
End With