Is there a macro that searches for and displays all active dimension objects? all pages?
cscartdept said:Is there a macro that searches for and displays all active dimension objects? all pages?
Could you clarify what you mean by, "displays all active dimension objects"?
I want to find all dims and see if any and how many. does not work in the 'find' tool..WTH??
https://drive.google.com/open?id=1OtYz-XrruPIs-LpLffr2RPKOdCUvsJ8n
Current page only. Needs modified for all pages.
Sub CountDimensions() Dim sr As New ShapeRange Dim s As Shape, d As Long d = ActiveSelectionRange.CountFor Each s In ActivePage.FindShapes(Type:=cdrLinearDimensionShape)sr.Add sNext s sr.AddToSelection MsgBox dEnd Sub
Cool. Thanks Myron. Weird - it only shows the count as 0 (zero) even if two are selected.
still working out the kinks
I worked out a kink.
MsgBox sr.Count