count shapes

Sub GetLastShape()
Dim i As Integer
With ActiveDocument
  For i = 1 To .Paragraphs.Count
    With .Paragraphs(i).Range
      If .ShapeRange.Count > 0 Then .ShapeRange(.ShapeRange.Count).Select
    End With
  Next i
End Wit
End Sub

Sub Test()
Msgbox ActiveDocument.Paragraphs.Count
End Sub

Sub GetLastShape()
Dim oShp As Shape
Dim CellAddr As String
Dim i As Integer
Dim j As Integer
i = 0
j = 0
With ActiveSheet
  For Each oShp In .Shapes
    CellAddr = oShp.BottomRightCell.Address(ReferenceStyle:=xlR1C1)
    If Right(Split(CellAddr, "C")(0), Len(Split(CellAddr, "C")(0)) - 1) >= i Then
      If Split(CellAddr, "C")(1) >= j Then
        i = Right(Split(CellAddr, "C")(0), Len(Split(CellAddr, "C")(0)) - 1)
        j = Split(CellAddr, "C")(1)
      End If
    End If
  Next
MsgBox Cells(i, j).Address
End With
End Sub

Sub GetLastShape_2()
Dim oShp As Shape
Dim ShLast As Single
Dim ShName As String
'
  For Each oShp In ActiveSheet.Shapes
   If oShp.BottomRightCell.Row > ShLast Then
   ShLast = oShp.BottomRightCell.Row: ShName = oShp.Name
  End If
  Next oShp
MsgBox "Last is " & ShName
ActiveSheet.Shapes(ShName).Select
End Sub

Sub GetLastShape()
Dim oShp As Shape
Dim i As Integer
Dim j As Integer
i = 0
j = 0
With ActiveSheet
  For Each oShp In .Shapes
    CellAddr = oShp.BottomRightCell.Address(ReferenceStyle:=xlR1C1)
    If oShp.BottomRightCell.Row >= i Then
      If oShp.BottomRightCell.Column >= j Then
        i = oShp.BottomRightCell.Row
        j = oShp.BottomRightCell.Column
      End If
    End If
  Next
MsgBox Cells(i, j).Address
End With
End Sub

Sub GetLastShape_2()
Dim oShp As Shape
Dim ShLast As Single
Dim ShName As String
'
  For Each oShp In ActiveSheet.Shapes
   If oShp.BottomRightCell.Row > ShLast Then
   ShLast = oShp.BottomRightCell.Row: ShName = oShp.Name
  End If
  Next oShp
' MsgBox "Last is " & ShName          'needed?
'ActiveSheet.Shapes(ShName).Select    'no longer needed
'
'Identify the page num.
Range("A1").Select
ActiveWindow.View = xlPageBreakPreview
 For Each PB In ActiveSheet.HPageBreaks
 PB.Location.Select
 NextPRow = ActiveCell.Row
 PCount = PCount + 1
If NextPRow >= ShLast Then Exit For
Next PB
ActiveWindow.View = xlNormalView
'
'print pages
ActiveWindow.SelectedSheets.PrintOut From:=1, To:=PCount, Copies:=1, Collate:=True
End Sub