|
▼よっしー さん:
>あるシートのページ設定の余白を、別のシートにコピーしたいのです。
>マクロの記録で一応は可能なのですが、特定の余白設定になってしまい汎用性のあるマクロにはなりません。
>いろいろなシートのページ設定をコピーしたいものですから、よろしくお願いします。
ベタですが。
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
余白だけならこんな感じです。
|
|