VBAで全画面/数式バーが出ない？

質問

エクセル2013です。
以下のVBAでFullscreenにすると、なぜか数式バーがでません。
これまでのエクセル2010では、このコードでちゃんと出ていました。
エクセル2013でも全画面表示で数式バーを出すためにはどうしたらよいのでしょうか？
Sub FullSize()
ActiveWindow.WindowState = xlMaximized
With Application
.WindowState = xlMaximized
.DisplayFullScreen = True
.DisplayFormulaBar = True '2013では数式バーが出ない！
End With
End Sub

回答No.2

HohoPapa · ベストアンサー

Office2010で使えるかどうかは定かではありませんが、
これなら期待の動作になると思います。

Sub Ribbon_Off()
　With Application
　　.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
　　.WindowState = xlMaximized
　End With
End Sub

Sub Ribbon_On()
　With Application
　　.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
　　.WindowState = xlNormal
　End With
End Sub

お礼

HohoPapa さん、貸出図書管理に続いてまた助けていただきました。
ありがとうございます。
エクセル2013、2010ともにこのコードでだいじょうぶでした。
ほんとにありがとうございました！！

回答No.4

watabe007

>エクセル2013でも全画面表示で数式バー
なら
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
MsgBox "リボンを非表示にしました。"
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"
MsgBox "リボンを表示しました。"

お礼

回答No.2の方のご回答とおなじですね。ありがとうございます。

回答No.3

tsubu-yuki

２０１３は全画面表示時にリボンも数式バーも出ないのが仕様のようです。
ソースが見つからないのがつらいところですが・・

お礼

ありがとうございます。
マイクロソフトは、こういう細かい仕様を変えすぎますね。
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"
でなんとかなりました。

回答No.1

imogasi

エクセル２０１３でやってみましたが、
Sub FullSize()
ActiveWindow.WindowState = xlMaximized
With Application
.WindowState = xlMaximized
.DisplayFullScreen = False 'True
.DisplayFormulaBar = True '2013では数式バーが出ない！
End With
Application.DisplayFullScreen = False
'Application.DisplayFormulaBar = False
Application.DisplayFormulaBar = True
End Sub
最後の２行がなくても数式バーは出ましたが。
.DisplayFullScreen = False（私の場合） かTrue（質問での書き方）が影響するのではないですか。
最後の１行を入れてみては（コメントアウトについては、上記のママで実行）どうでしょう

お礼

ご回答ありがとうございます。
ただ、質問は
エクセル2013で全画面表示で数式バーを出すための方法です。
DisplayFullScreen = Falseでは全画面表示ではなくなります。