Thread: Count of shapes
View Single Post
  #4  
Old 17-05-2018, 02:29
shark shark is offline
Senior Member
 
Join Date: Aug 2010
Location: Russia, Belgorod
Posts: 146
Default

use ActiveSelectionRange
Code:
Sub test()
Dim sr as ShapeRange
  Set sr = ActiveSelectionRange
  ActiveDocument.ClearSelection
  MsgBox sr.Count
End Sub
Reply With Quote