エクセルＶＢＡで改ページの挿入の記述方法を教えてください

質問

エクセルで選択したセルの下の行にに改ページを挿入するためのＶＢＡの記述方法を教えてください

回答No.1

okormazd · ベストアンサー

普通は、
Selection.PageBreak = xlPageBreakManual
で、
選択したセルの上に改ページを挿入する。
わざわざ下に入れるなら、

r = Selection.Row
Rows(r + 1).PageBreak = xlPageBreakManual

とでもするか。

お礼

ありがとうございました
どうしても下に入れたかったので

回答No.2

imogasi

こんなのを、ここに質問するまでもなく、マクロの記録をとって
マクローマクロー編集で見れば、すぐ判ります。
VBAで何かあったら、まずマクロの記録は役に立たないかと考えてください。
操作は
セルを選択
挿入
改ページ
結果例
Sub Macro1()
Range("B5").Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
End Sub
HPageBreaksかVPageBreaksかどちらか不要ならコードを抹消。
--
またWEB照会もすべきです。検索語は
「エクセル　改ページ　VBA」

お礼

すみませんでした。
今度はもっと探してから
質問します