This is VBA code in response to an enquiry here


<pre>Sub udf_FormattingBelowStandard()

' Standard toolbar; make it available
CommandBars("Standard").Enabled = True
CommandBars("Standard").Visible = True
CommandBars("Standard").Position = msoBarTop

' Formatting toolbar; make it available
CommandBars("Formatting").Enabled = True
CommandBars("Formatting").Visible = True
CommandBars("Formatting").Position = msoBarTop

' Uncomment these to inspect the values in use, curiousity value only.
' MsgBox CommandBars("Standard").Top
' MsgBox CommandBars("Standard").Height

' Force both toolbars to the LHS of the screen
CommandBars("Standard").Left = 0
CommandBars("Formatting").Left = 0

' Place "Formatting" directly below "Standard"
CommandBars("Formatting").Top = CommandBars("Standard").Top + CommandBars("Standard").Height
End Sub
</pre>