Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2559 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【67177】全画面表示 ちゃげ 10/11/14(日) 16:12 質問[未読]
【67193】Re:全画面表示 りん@i 10/11/15(月) 5:52 発言[未読]
【67195】Re:全画面表示 sasa 10/11/15(月) 9:38 回答[未読]
【67217】Re:全画面表示 ちゃげ 10/11/15(月) 23:43 お礼[未読]
【67218】Re:全画面表示 sasa 10/11/16(火) 0:27 回答[未読]
【67231】Re:全画面表示 ちゃげ 10/11/16(火) 22:19 質問[未読]
【67251】Re:全画面表示 sasa 10/11/17(水) 14:37 回答[未読]
【67252】Re:全画面表示 ちゃげ 10/11/17(水) 15:20 お礼[未読]
【67177】全画面表示
質問  ちゃげ  - 10/11/14(日) 16:12 -
引用なし
パスワード
   全画面表示にする際、ツールバーや、タイトルバーを消そうと下記のVBAを組みました。excel2003では、ツールバーも、タイトルバーも隠すことができたのですが、excel2007ですと、タイトルバーが残ってしまいます。。。
どうしたら、タイトルバーを消せるかどなたか教えていただけるとうれしいです。

Sub FullScreenAndHideMenu()

　Application.DisplayFullScreen = True
　CommandBars("Worksheet Menu Bar").Enabled = False

　　　With ActiveWindow
　　　　.DisplayHorizontalScrollBar = False　　　　 '水平スクロールバーを消す
　　　　.DisplayVerticalScrollBar = False　　　　 '垂直スクロールバーを消す
　　　　.DisplayWorkbookTabs = False　　　　 'シート見出しを消す
　　　　.DisplayGridlines = False　　　　 '枠線を消す
　　　　.DisplayHeadings = False　　　　 '行列番号を消す
　　　End With


End Sub
【67193】Re:全画面表示
発言  りん@i  - 10/11/15(月) 5:52 -
引用なし
パスワード
   ちゃげ さん、おはようございます。

>全画面表示にする際、ツールバーや、タイトルバーを消そうと下記のVBAを組みました。excel2003では、ツールバーも、タイトルバーも隠すことができたのですが、excel2007ですと、タイトルバーが残ってしまいます。。。
2007からはコマンドバーではなくてリボンという別モノなので、エクセルのバージョンをチェックして、2007以降ならリボンを消すようにします。
消し方は、そのままの質問が知恵袋にありました。
h t t p://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1121130006
【67195】Re:全画面表示
回答  sasa  - 10/11/15(月) 9:38 -
引用なし
パスワード
   >excel2007ですと、タイトルバーが残ってしまいます。。。
>どうしたら、タイトルバーを消せるかどなたか教えていただけるとうれしいです。

Application.DisplayFullScreen = True の前行にタイトルバーを非表示にするコードを入れれば良いと思います。
　With Application
　　If Val(.Version) >= 12 Then _
　　　SetWindowLong .hWnd, GWL_STYLE, GetWindowLong(.hWnd, GWL_STYLE) And Not WS_CAPTION
　　.DisplayFullScreen = True
　End With

以下サイトを参考にしました。
E03M130　ユーザーフォームのタイトルバー非表示
ht tp://www2.aqua-r.tepm.jp/~kmado/kvba.htm
DeclareやConst宣言は↑を見てください。
【67217】Re:全画面表示
お礼  ちゃげ  - 10/11/15(月) 23:43 -
引用なし
パスワード
   ▼sasa さん：
返信ありがとうございました。
タイトルバーを非表示することができました。ありがとうございます。
ですが、タイトルバーを表示することができなくなってしまいました。。。
知識が乏しいので、タイトルバーを表示するvbaがありましたら、
お願いいたします。

▼りんさん
返信ありがとうございました。
最大化、最小化、×の部分がどうしても、残ってしまいます。これを非表示
する方法はありますか？
【67218】Re:全画面表示
回答  sasa  - 10/11/16(火) 0:27 -
引用なし
パスワード
   >タイトルバーを非表示することができました。ありがとうございます。
>ですが、タイトルバーを表示することができなくなってしまいました。。。
>知識が乏しいので、タイトルバーを表示するvbaがありましたら、

非表示の逆をすればいいのですが...ビット演算を理解する必要があります。
先のコードで And Not のところを Or にすれば良いでしょう。
【67231】Re:全画面表示
質問  ちゃげ  - 10/11/16(火) 22:19 -
引用なし
パスワード
   ▼sasa さん：
できました！ありがとうございました！
とても助かりました。

ずうずうしいのですが、もうひとつ聞いてもよろしいでしょうか？

確かに全画面にはなるのですが、画面の下あたりに、わずかですが、
デスクトップの背景がでてきてしまうのですが・・・

これらもなくして、
完全に全画面表示にすることはできないのでしょうか？

┃　　　　　　　　　　　　　　　　┃
┃　　　　(excelの画面）　　　　　┃
┃　　　　　　　　　　　　　　　　┃
┠────────────────┨
┗━━━━━━━━━━━━━━━━┛←そのほかの起動してあるソフトもしくは
　　　　　　　　　　　　　　　　　　　デスクトップの背景
【67251】Re:全画面表示
回答  sasa  - 10/11/17(水) 14:37 -
引用なし
パスワード
   ▼ちゃげ さん：
>確かに全画面にはなるのですが、画面の下あたりに、わずかですが、
>デスクトップの背景がでてきてしまうのですが・・・
>これらもなくして、
>完全に全画面表示にすることはできないのでしょうか？

画面の下あたりに、わずかですが、デスクトップの背景がでてきてしまう・・・
↑
タスクバーの事ですか？
それならプロパティで[タスクバーをほかのウィンドウの手前に表示する]のチェックを外すなどの設定をすれば良いと思います。
マクロで設定ならweb検索すればたくさんあります。
【67252】Re:全画面表示
お礼  ちゃげ  - 10/11/17(水) 15:20 -
引用なし
パスワード
   ▼sasa さん：
プロパティで[タスクバーをほかのウィンドウの手前に表示する]のチェックを外すなどの設定は、してあります。

おそらく、あと少し調整すればいいかと思うので・・・
あとは、自分でやってみます。

多くの質問に答えていただき、本当にありがとうございましたm(_ _)m
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2559 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free