VBAテストコード２

Sub Pagebreak()

    Dim cl As HPageBreak
    Dim ws As Worksheet
    Dim shp As Shape
    Dim rng As Range
    Dim flg As Boolean
    Dim loopCount As Integer: loopCount = 1
    
    Do While ActiveSheet.HPageBreaks.Count + 1 <> loopCount
        Set cl = ActiveSheet.HPageBreaks(loopCount)
        
        printColCount = ActiveSheet.Range(Sheets("Sheet1").PageSetup.PrintArea).Columns.Count
        Debug.Print ("改ページ＝" & ActiveSheet.HPageBreaks.Count)
    
        '
        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
        
        loopCount = loopCount + 1
   Loop
End Sub