Skip to content

Instantly share code, notes, and snippets.

@Surrogate-TM

Surrogate-TM/ToggleFormatShapePane.md

Last active November 19, 2022 20:10
Show Gist options
  • Save Surrogate-TM/bb2c21d32fcf5080f5c4b199ed3b121f to your computer and use it in GitHub Desktop.
Save Surrogate-TM/bb2c21d32fcf5080f5c4b199ed3b121f to your computer and use it in GitHub Desktop.
Download ZIP
This code hide/show Format Shape Pane, which takes up a lot of space in the application window.
Raw
ToggleFormatShapePane.md

Toggle Format Shape Pane

I have always been annoyed by the additional Format Shape panel:

  1. Takes up a lot of space on the screen
  2. It is easy to call with the button on the ribbon or the F3 button, but there is no way to minimize it.
    I have to move the mouse across the screen and click the x cross button to close it!
    Cross button at "Format Shape" Pane
Sub ToggleFormatShapePane() 
Dim cmbr As CommandBar
Set cmbr = Application.CommandBars(3)
cmbr.Visible = Not cmbr.Visible
Set cmbr = Nothing
ActiveWindow.Page = ActivePage ' for prevent screen flickering
End Sub
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment