🚀 go-pugleaf

Well, I thought it was simple.

I am getting a "Type mismatch" on the line: "myWidth = myX2 - myX1".

Can someone tell me why? Here is the code:

Dim myInDesign As InDesign.Application
Set myInDesign = CreateObject("InDesign.Application.2.0")
Set myDocument = myInDesign.ActiveDocument

If myInDesign.Selection.Count > 0 Then
    Set mySelection = myInDesign.Selection
    Select Case TypeName(mySelection.Item(1))
        Case "Rectangle"
            Set myFrame = mySelection.Item(1)
            myY1 = myFrame.GeometricBounds(0)
            myX1 = myFrame.GeometricBounds(1)
            myY2 = myFrame.GeometricBounds(2)
            myX2 = myFrame.GeometricBounds(3)
            myStrokeWeight = myFrame.StrokeWeight
            MsgBox myStrokeWeight
            myWidth = myX2 - myX1
            myHeight = myY2 - myY1
            MsgBox "Width = " & myWidth & vbCrLf & _
            "Height = " & myHeight & vbCrLf & _
            "Stroke weight = " & myStrokeWeight
            End
        Case "TextFrame"
            MsgBox "Found Text Frame."
            End
        Case Else
            MsgBox "Must have Rectangle or Text Frame selected."
            End
    End Select
Else
    MsgBox "Must have Rectangle or Text Frame selected."
    End
End If

Cheers,
Dennis