Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9501 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【26971】ズームについて ちょこ 05/7/25(月) 17:22 質問[未読]
【26972】Re:ズームについて ponpon 05/7/25(月) 19:14 発言[未読]
【26994】Re:ズームについて ちょこ 05/7/26(火) 9:05 発言[未読]
【26995】Re:ズームについて IROC 05/7/26(火) 9:24 回答[未読]
【26996】Re:ズームについて ちょこ 05/7/26(火) 9:50 発言[未読]
【26999】Re:ズームについて IROC 05/7/26(火) 10:31 回答[未読]
【27000】Re:ズームについて だるま 05/7/26(火) 10:31 回答[未読]
【27001】Re:ズームについて ちょこ 05/7/26(火) 10:47 お礼[未読]
【26971】ズームについて
質問  ちょこ  - 05/7/25(月) 17:22 -
引用なし
パスワード
   違う倍率で保存されても、起動時には必ず任意の倍率で起動させる方法を教えて下さい。
【26972】Re:ズームについて
発言  ponpon  - 05/7/25(月) 19:14 -
引用なし
パスワード
   こんばんは。
他掲示板でほとんど同じ質問がありましたので、
そちらを紹介します。

http://excelfactory.net/excelboard/excelvba/excel.cgi?mode=all&namber=76614&rev=0
【26994】Re:ズームについて
発言  ちょこ  - 05/7/26(火) 9:05 -
引用なし
パスワード
   おはようございます。
紹介されたサイトを見に行った所、確かにやりたいことなんですが、仮にシートを追加した時にも、VBAを変更しないで済むやり方とかってありますか？
【26995】Re:ズームについて
回答  IROC  - 05/7/26(火) 9:24 -
引用なし
パスワード
   実際に試してみましたか？
【26996】Re:ズームについて
発言  ちょこ  - 05/7/26(火) 9:50 -
引用なし
パスワード
   シートを追加して保存終了して、新たに開くと実行時エラーが出てしまいます。
回避する方法か、追加したシートも含め一律設定？みたいなのは可能でしょうか？

詳しく申しますと、現在は４枚のシートがあり、今後何枚も追加するので起動時は全て１００％で開きたいんです。
【26999】Re:ズームについて
回答  IROC  - 05/7/26(火) 10:31 -
引用なし
パスワード
   倍率の指定部分だけ編集すればよいかと思います。

Private Sub Workbook_Open()
Dim Sh As Worksheet

　　Application.ScreenUpdating = False
　　For Each Sh In Worksheets
　　　　Sh.Activate
　　　　ActiveWindow.Zoom = 100
　　Next Sh
　　Application.ScreenUpdating = True
End Sub
【27000】Re:ズームについて
回答  だるま WEB  - 05/7/26(火) 10:31 -
引用なし
パスワード
   >起動時は全て１００％で開きたいんです。
なら簡単です。^d^

Private Sub Workbook_Open()
　　Dim Sh As Worksheet
　　
　　Application.ScreenUpdating = False
　　For Each Sh In Worksheets
　　　　Sh.Activate
　　　　ActiveWindow.Zoom = 100
　　Next
　　Worksheets(1).Activate
　　Application.ScreenUpdating = True
End Sub
【27001】Re:ズームについて
お礼  ちょこ  - 05/7/26(火) 10:47 -
引用なし
パスワード
   質問の仕方が悪かったですね。すいません。
上手く行きました。皆様本当に有り難う御座いました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9501 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free