(Re-post) Why doesn't this macro work in X7?

Myron
over 6 years ago

Sub DimensionsToFTNew()
Dim sr As New ShapeRange, s As Shape
For Each s In ActivePage.FindShapes(Type:=cdrLinearDimensionShape)
sr.Add s
s.Dimension.Linear.Units = cdrDimensionUnitFT
Next s
End Sub

© Corel Corporation. All rights reserved. The content herein is in the form of a personal web log ("Blog") or forum posting. As such, the views expressed in this site are those of the participants and do not necessarily reflect the views of Corel Corporation, or its affiliates and their respective officers, directors, employees and agents. Terms of Use / Privacy​ ​/ ​Cookies / Terms and Conditions / User Guidelines.