• ベストアンサー

ウインドウのサイズを最大化されない

vb.netのフォームから、エクセルファイルを立ち上げた時に、 エクセル側で Private Sub Workbook_Open() ActiveWindow.WindowState = xlMaximized としてるのに、 ウインドウのサイズを最大化されないのですが、 どうしてでしょうか？

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

こんにちは。 > ウインドウのサイズを最大化 Private Sub Workbook_Open() Application.WindowState = xlMaximized End Sub なのでは？ > ActiveWindow.WindowState = xlMaximized では、Excel配下のワークブック配下のウィンドウのサイズを変更します。 対して、 Application.WindowState = xlMaximized では、Excel全体のウィンドウのサイズを変更します。

JXBKJIZLH
質問者

お礼

どうもありがとうございました。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. Excel（エクセル）

関連するQ&A

  • UsableHeight シート名が消える

    エクセルｖｂａでリボンを非表示にして、ブックを最大化して、微調整したいのですが Workbook_Openイベントで実行すると、シート名が見えない状態になります。 コードはこれです。 Private Sub Workbook_Open() Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" 'リボンを非表示にする ActiveWindow.WindowState = xlMaximized 'ウィンドウを最大化する With ActiveWindow .WindowState = xlNormal .Top = 0 .Left = 0 .Width = Application.UsableWidth .Height = Application.UsableHeight ' ウィンドウが使うことのできる範囲の最大限の高さにする End With End Sub ブックを開いた時はシート名が見えないサイズになってしまうのですが もう一度手動でWorkbook_Openイベントを実行すると、ちゃんとシート名まで表示されます。 なぜ同じコードなのに結果が違うのでしょうか？ 横幅に関しては１回目も２回目も同じです。

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

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

  • 必ず最大化されて開きます。

    エクセルファイルで、ファイルをダブルクリックして開くと、 必ず最大化されて開きます。 ファイル形式は「.xlsx」なので、VBAではないと思ってるのですが やはりどこかにVBAが隠されているのでしょうか？ Vbaでいうと、 ActiveWindow.WindowState?=?xlMaximized と同じ動きをします。 該当のファイルのVBE画面を見ようとすると 「プロジェクトを表示できません」となり、 VBAの記述があるのかどうかすら確認できません。 そもそも「.xlsx」なのに、 ファイルを開くと勝手にシートが全体か表示されることはありえますか？

  • VBAでIEを開いて最大化したい。

    ＶＢＡでIEを開くことはできたのですがいつも同じサイズでブラウザが開きます。 Set ObjIE = CreateObject("InternetExplorer.application") ObjIE.Visible = True ObjIE.Navigate "https://www" 多分この後くらいに最大化するコードを書くと思うのですが 教えてください。 （ActiveWindow.WindowState = xlMaximizedのような？） よろしくお願いします。

  • Excel 2007　Windows７での不具合

    下記のExcel 2007 VBAマクロを Windows XP で組んでいましたが、 Windows 7 に乗り換えたとたん、強制終了してしまいます。 Workbooks.Openのアドレスは、Windows 7用に書き換えました。 何方かご教授願います。 　　Private Sub CommandButton63_Click() 　　Application.ScreenUpdating = False 　　Dim wb As Workbook 　　wbn1 = ActiveWorkbook.Name 　　For Each wb In Workbooks 　　If wb.Name = wbn1 Then 　　Workbooks.Open "D:\ユーザー\PC18\Documents\※※※※\※※※※.xls" 　　ActiveWindow.WindowState = xlMaximized　 　　Workbooks(wbn1).Save 　　Application.DisplayAlerts = False 　　Workbooks(wbn1).Close 　　Else: Application.ScreenUpdating = False 　　End If 　　Next 　　Application.ScreenUpdating = True 　　End Sub

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

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

  • ExcelVBA ウィンドウサイズをリサイズしない

    いつもお世話になっています。 ActiveWindow　でウィンドウサイズを固定することはできるのですが、 Applicationのウィンドウサイズを固定することができません。 VBAではできないのでしょうか。 教えてください。 以下を実行すると、「オブジェクトをサポートしていません」とエラーが表示されます。 Sub Auto_Open() With Application .WindowState = xlNormal .Width = 600 .Height = 400 .EnableResize = False　　'---ウィンドウサイズを変更できない End With End Sub

  • ａｃｃｅｓｓ　アプリケーションの最大化をしたい

    Ofiice２００７を使っています。 エクセルなら Sub test() Application.WindowState = xlMaximized End Sub で最大化できますが、アクセスで同じコードを実行するとエラーになります。 Application.WindowState = acMaximized にしてもダメでした。 オブジェクトブラウザで検索したところ WindowStateもacMaximizedもアクセスにはないようです。 ヘルプでWindowStateを検索したところ、 WindowState プロパティと言うのを見つけました。 内容は、 ↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓ ウィンドウの表示状態を指定する数値を設定します。値の取得も可能です。 設定値 WindowState プロパティの設定値は、次のとおりです。 定数 　　　　　　　　　　値　　　　　　　　　　　　　　　　　 内容 vbext_ws_Normal 　　　0 　　(既定値) 　　　　　ノーマル vbext_ws_Min　　　　　 1 　　　 最小化 　　　　　　(タスクバーに縮小表示) vbext_ws_Max 　　　　　2 　　　最大化 　　　　　　(画面全体に拡大表示) ↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑↑ とのことですが、どうやって使えば良いでしょう？ Sub test() Application.WindowState = vbext_ws_Max End Sub だとダメでした。 ご教授よろしくお願いします。

  • ウインドウのサイズ変更

    すみません、ＶＢ初心者です。 Accsee VBAで作られたプログラムを修正しています。 今、ウインドウのサイズが最大化されているようなので、 サイズを変更したいのですが、 Form_Open()のところで、 DoCmd.MoveSize(）をCallしてサイズを指定しているのですが、 も最大化されたままなのです。他に何か設定があるのでしょうか。 画面としてはフォームにさらにサブフォームを表示していて（意味わかりますか？） フォームも元から作ってあってほとんど修正はしていません。 よろしくお願い致します。

  • EXCEL起動と同時にワークシートを最大化する方法

    EXCELの起動と同時にEXCEL本体とsheet1を最大化したいのですがどうしたら良いのでしょうか？ 本体の方は Application.WindowState = xlMaximized でいいと思うのですがsheet1の最大化が分かりません。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する