Is there a macro that searches for and displays all active dimension objects? all pages?
I have one that selects all dimensions but only on the current page. I also put a little "extra" in it to allow me to set the text size and outline width.
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.