実行画面
通常の実行画面です。上に大きくリボンが表示されています。
「リボンを非表示」ボタンをクリックすると、リボンが消えます。
16行まで見えていますので、約6行分リボンで消えていたことになります。
「リボンを表示」ボタンをクリックすると、元に戻ります。
実行VBAコード
Option Explicit
'リボンを非表示
Private Sub CommandButton1_Click()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
End Sub
'リボンを表示
Private Sub CommandButton2_Click()
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
End Sub