Sub commandbars_close()
'コマンドバーを消す。
'
If Application.CommandBars("WordArt").Visible = True Then Application.CommandBars("WordArt").Visible = False
If Application.CommandBars("Chart").Visible = True Then Application.CommandBars("Chart").Visible = False
If Application.CommandBars("Picture").Visible = True Then Application.CommandBars("Picture").Visible = False
If Application.CommandBars("Standard").Visible = True Then Application.CommandBars("Standard").Visible = False
If Application.CommandBars("Formatting").Visible = True Then Application.CommandBars("Formatting").Visible = False
If Application.CommandBars("Visual Basic").Visible = True Then Application.CommandBars("Visual Basic").Visible = False
If Application.CommandBars("Web").Visible = True Then Application.CommandBars("Web").Visible = False
If Application.CommandBars("Forms").Visible = True Then Application.CommandBars("Forms").Visible = False
If Application.CommandBars("Drawing").Visible = True Then Application.CommandBars("Drawing").Visible = False
End Sub