Hi Scott,
You can't read the ScaleHeigth and ScaleWidth values, but you can retrieve them with code like:
Sub GetShapeScales()
Dim oShp As Shape
Dim sHeight As Single
Dim sWidth As Single
Dim ScaleHeight As Single
Dim ScaleWidth As Single
Application.ScreenUpdating = False
For Each oShp In ActiveDocument.Shapes
With oShp
sHeight = .Height
sWidth = .Width
.ScaleHeight 1, True
.ScaleWidth 1, True
ScaleHeight = sHeight / .Height
ScaleWidth = sWidth / .Width
.ScaleHeight ScaleHeight, True
.ScaleWidth ScaleWidth, True
MsgBox "Shape: " & .Name & vbCrLf & _
"ScaleHeight: " & Format(ScaleHeight, "0.0%") & vbCrLf _
& "ScaleWidth: " & Format(ScaleWidth, "0.0%")
End With
Next oShp
Application.ScreenUpdating = True
End Sub
