Excel VBA質問箱 IV

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

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


6952 / 13644 ツリー ←次へ | 前へ→

【42054】ページ設定の余白をコピーしたいのですが よっしー 06/8/30(水) 16:56 質問[未読]
【42056】Re:ページ設定の余白をコピーしたいのですが りん 06/8/30(水) 17:30 回答[未読]
【42117】Re:ページ設定の余白をコピーしたいのですが よっしー 06/9/1(金) 15:18 お礼[未読]

【42054】ページ設定の余白をコピーしたいのですが
質問  よっしー  - 06/8/30(水) 16:56 -

引用なし
パスワード
   あるシートのページ設定の余白を、別のシートにコピーしたいのです。
マクロの記録で一応は可能なのですが、特定の余白設定になってしまい汎用性のあるマクロにはなりません。
いろいろなシートのページ設定をコピーしたいものですから、よろしくお願いします。

【42056】Re:ページ設定の余白をコピーしたいので...
回答  りん E-MAIL  - 06/8/30(水) 17:30 -

引用なし
パスワード
   ▼よっしー さん:
>あるシートのページ設定の余白を、別のシートにコピーしたいのです。
>マクロの記録で一応は可能なのですが、特定の余白設定になってしまい汎用性のあるマクロにはなりません。
>いろいろなシートのページ設定をコピーしたいものですから、よろしくお願いします。

ベタですが。
Sub test()
  Dim ps(1 To 2) As PageSetup
  '配列(変数)にセット
  With Application.ActiveWorkbook
   Set ps(1) = .Worksheets(1).PageSetup '参照元シートのページ設定
   Set ps(2) = .Worksheets(2).PageSetup '反映先シートのページ設定
  End With
  '
  With ps(2)
   .TopMargin = ps(1).TopMargin '上余白
   .BottomMargin = ps(1).BottomMargin '下余白
   .RightMargin = ps(1).RightMargin '右余白
   .LeftMargin = ps(1).LeftMargin '左余白
  End With
  Erase ps
End Sub

余白だけならこんな感じです。

【42117】Re:ページ設定の余白をコピーしたいので...
お礼  よっしー  - 06/9/1(金) 15:18 -

引用なし
パスワード
   りんさん、ありがとうございました。
pagesetupの各marginをコピーすると言うことですね。
大変参考になりました。
またよろしくです。

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