Excel VBA質問箱 IV

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

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


7694 / 76734 ←次へ | 前へ→

【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
4 hits

【74625】Excel2003 ページ設定の動作を高速化したい アラユタン 13/8/13(火) 14:00 質問
【74627】Re:Excel2003 ページ設定の動作を高速化し... γ 13/8/13(火) 20:58 発言

7694 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free