エクセル アプリケーションの全画面表示の方法

ＶＢＡでエクセルを開く時に、
開かれる側のファイルではなく、
開く側から全画面表示にする方法はありますか？

開かれる側のファイルの
Workbook_Openイベントに
Application.WindowState = xlMaximized
に入れれば、アプリケーションを最大化して開けますが、
マクロを使わないエクセルファイルもあるし、
全てのエクセルファイルに上記のコードを書くよりも
開く側から指示できれば楽だと思うので、教えてください。

No.1 ベストアンサー 回答者： shino719 回答日時： 2012/10/17 01:33

当方Excel2000ですが、それでも良ければ。

。

ちなみに何をトリガーにご希望の処理が実行されるのかが
分からなかったため、CommandButton1というオブジェクト名の
ボタンをエクセル上に配置し、それが押下された際に実行される
ものとして下記を書いてみました。

開こうとしているエクセルファイルを「C:\Book1.xls」とします。
見やすくするためにインデント入れていますが、全角スペースなのでご注意を。


■マクロ実行するエクセル内でそのまま「Book1.xls」を開く場合

Private Sub CommandButton1_Click()

　　Application.Workbooks.Open "C:\Book1.xls"
　　Application.WindowState = xlMaximized

End Sub


■マクロ実行するエクセルとは別エクセルで「Book1.xls」を開く場合

Private Sub CommandButton1_Click()

　　Dim objXLS As Object

　　Set objXLS = CreateObject("Excel.Application")

　　With objXLS
　　　　.Visible = True
　　　　.Workbooks.Open "C:\Book1.xls"
　　　　.WindowState = xlMaximized
　　End With

End Sub

この回答へのお礼

ご回答ありがとうございます。

お礼日時：2012/10/27 14:14