Count of shapes

[ager]

For example, I have two selected any shapes.

Sub test()
Dim s as shape
  Set s=ActiveShape
  ActiveDocument.ClearSelection
  'How to know count of the shapes in 's'?
End Sub

How to know count of the shapes in 's'?

[knowbodynow]

Sorry I don't understand the question. If you have used ActiveDoucment,ClearSelection then the shape count should be 0.

Sub count()

MsgBox ActiveSelection.Shapes.count

End Sub

Note this treats grouped object as a single shape. The following makes a duplicate of the selection, ungroups it and counts all the shapes before deleting the duplicate.

Sub CountSelectedShapes()

Dim s As Shape
Dim n As Double

If ActiveSelection.Shapes.count > 0 Then
    
    Set s = ActiveSelection.Duplicate
    s.UngroupAll
    n = s.Shapes.count
    s.Delete
    
    MsgBox "The number of shapes is: " & n, vbInformation, "Active Selection Count"
    
Else

    MsgBox "Please select some shapes.", vbExclamation, "Oops!"

End If

End Sub

[ager]

Originally Posted by knowbodynow

If you have used ActiveDoucment,ClearSelection then the shape count should be 0.

No, the object "s" continues to exist. I do not delete it. So, the question is how to determine how many shapes are contained in the object "s".

[shark]

use ActiveSelectionRange

Sub test()
Dim sr as ShapeRange
  Set sr = ActiveSelectionRange
  ActiveDocument.ClearSelection
  MsgBox sr.Count
End Sub

[ager]

Thanks for the answers. But my function works with objects which type is "Shape", not "ShapeRange". As I understand, the object "Shape" can not give the information about number of shapes it really contains.

I discovered that object "Shape" can contain only one shape. If we have two (or more) selected shapes and execute this code, only one shape will be copied and pasted:

Sub test()
Dim s as Shape
  Set s=ActiveShape
  ActiveDocument.Copy
  ActiveDocument.ClearSelection
  ActiveLayer.Paste
End Sub

[shark]

Originally Posted by ager

I discovered that object "Shape" can contain only one shape

No. Object "shape" can be a "group" or "powerclip" and contain other objects. If you have selected some shapes and want to work with them, then use ShapeRange