Free for PREMIUM members
Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium
Dim shp As Shape
If TypeName(Selection) = "DrawingObjects" Then
For Each shp In Selection.ShapeRange
Open in new window
Dim oShp As Shape
For Each oShp In ActiveWindow.Selection.ShapeRange
We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!