Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7696 / 76736 ←次へ　｜　前へ→
【74625】Excel2003 ページ設定の動作を高速化したい
質問  アラユタン  - 13/8/13(火) 14:00 -
引用なし
パスワード
   題名の通りなのですが、以下を50シートぐらいループ処理
させると、どえりゃー動作が遅くなります。

高速化させる方法があればご教示ください。

　　　　With ActiveSheet.PageSetup
　　　　　　.LeftHeader = ""
　　　　　　.CenterHeader = ""
　　　　　　.RightHeader = ""
　　　　　　.LeftFooter = ""
　　　　　　.CenterFooter = ""
　　　　　　.RightFooter = ""
　　　　　　.LeftMargin = Application.InchesToPoints(0.787)
　　　　　　.RightMargin = Application.InchesToPoints(0.787)
　　　　　　.TopMargin = Application.InchesToPoints(0.984)
　　　　　　.BottomMargin = Application.InchesToPoints(0.984)
　　　　　　.HeaderMargin = Application.InchesToPoints(0.512)
　　　　　　.FooterMargin = Application.InchesToPoints(0.512)
　　　　　　.PrintHeadings = False
　　　　　　.PrintGridlines = False
　　　　　　.PrintComments = xlPrintNoComments
　　　　　　.PrintQuality = 600
　　　　　　.CenterHorizontally = False
　　　　　　.CenterVertically = False
　　　　　　.Orientation = xlLandscape
　　　　　　.Draft = False
　　　　　　.PaperSize = xlPaperA3
　　　　　　.FirstPageNumber = xlAutomatic
　　　　　　.Order = xlDownThenOver
　　　　　　.BlackAndWhite = False
　　　　　　.Zoom = False
　　　　　　.FitToPagesWide = 1
　　　　　　.FitToPagesTall = 1
　　　　　　.PrintErrors = xlPrintErrorsDisplayed
　　　　End With
1 hits
▼ 【74625】Excel2003 ページ設定の動作を高速化したい アラユタン 13/8/13(火) 14:00 質問≪
【74627】Re:Excel2003 ページ設定の動作を高速化し... γ 13/8/13(火) 20:58 発言
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7696 / 76736 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free