エクセル2010でマクロからリボンの最小化したい
Excel2010でリボンの展開、最小化をマクロでユーザーフォームにはりつけたコマンドボタンから実行したい。
基礎的な勉強を全くしていないので、うまく説明できるか自信がないが質問内容は以下の通りです。
リボンの展開、最小化は、「コントロールキーとF1キーを同時に押す、をコードにすればよい」というのをみつけました。
そこでシートにボタンを張り付けて次のマクロで展開、最小化ができました。
Sub ボタン1_Click()
Application.SendKeys Keys:="^{f1}", Wait:=True
End Sub
しかし、これはユーザーフォームのコマンドボタンでは動きません。
Private Sub CommandButton1_Click()
Application.SendKeys Keys:="^{f1}", Wait:=True
End Sub
「Private Sub 」だからかと思うが、その先がわかりません。
ちなみに似たような動作で、全画面表示で次のようなものはどちらでも使えます。
Sub ボタン2_Click()
If Application.DisplayFullScreen = True Then
Application.DisplayFullScreen = False
Else
Application.DisplayFullScreen = True
End If
End Sub
この場合はユーザーフォームにはりつけても動きます。
ど素人にお知恵を貸してください。
お礼
カスタマイズの方法を勉強してみます。ありがとうございました。