Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 10 Home : Excel 2016)
リボンの表示非表示の切り替え
投稿日時: 20/05/07 11:53:07
投稿者: はじめて

お世話になります。
エクセルを立ち上げますと、画面右上部でリボンの表示、非表示の切り替えができます。
これをマクロでできるようにしたいのです。マクロの記録ではできませんでした。
よろしくお願いします。

投稿日時: 20/05/07 13:28:58
投稿者: はじめて

出来ました。
 
Private Sub 最小化1()
 
'リボン最小化(Office 2010以降で動作)
  If Application.CommandBars.GetPressedMso("MinimizeRibbon") = False Then _
  Application.CommandBars.ExecuteMso "MinimizeRibbon"
 
End Sub
  
Private Sub 基本サイズ()
 
  If Application.CommandBars.GetPressedMso("MinimizeRibbon") = True Then _
  Application.CommandBars.ExecuteMso "MinimizeRibbon"
 
End Sub