Position Property Example
This content is no longer actively maintained. It is provided as is, for anyone who may still be using these technologies, with no warranties or claims of accuracy with regard to the most recent product version or service release.
This example steps through the collection of command bars, docking the custom command bars at the bottom of the application window and docking the built-in command bars at the top of the window.
For Each bar In CommandBars
If bar.Visible = True Then
If bar.BuiltIn Then
bar.Position = msoBarTop
Else
bar.Position = msoBarBottom
End If
End If
Next