VBAテストコード

Sub Pagebreak()

Dim cl As HPageBreak
Dim ws As Worksheet
Dim shp As Shape
Dim rng As Range
Dim flg As Boolean

For Each cl In ActiveSheet.HPageBreaks

    
    printColCount = ActiveSheet.Range(Sheets("Sheet1").PageSetup.PrintArea).Columns.Count
    Debug.Print ("列数=" & printColCount)

    '
    If Not ActiveSheet.Cells(cl.Location.Row, Cells(cl.Location.Row, printColCount).End(xlToLeft).Column).Value = "" Then
        
        ActiveSheet.Cells(cl.Location.Row, Cells(cl.Location.Row, printColCount).End(xlToLeft).Column).Select
        
        Do Until ActiveCell.Offset(-1, 0).Value = ""
        ActiveCell.Offset(-1, 0).Select
        
        Loop
        Dim iRow
        iRow = ActiveCell.Row
    
        Range("A" & iRow).Pagebreak = xlManual
    End If
    
    
    Set rng = ActiveSheet.Cells(cl.Location.Row, 5)
    
    '
    For Each shp In ActiveSheet.Shapes
    If Intersect(ActiveSheet.Range(shp.TopLeftCell, shp.BottomRightCell), rng) Is Nothing = False Then
    
        shp.TopLeftCell.Select
        
        Dim iRow2
        iRow2 = ActiveCell.Row
    
        Range("A" & iRow2).Pagebreak = xlManual
    
    End If
    Next

    Next cl
End Sub