🚀 go-pugleaf

Hi Ole!

Thanks for your help again. Maybe you can help me with this one, too:

Dim myInDesign
Dim myObjects
Set myInDesign = CreateObject("InDesign.Application.2.0")
Set myDocument = myInDesign.ActiveDocument
Set mySelection = myInDesign.Selection
Set myFrame = mySelection.Item(1)
myY1 = myFrame.GeometricBounds(0)
myX1 = myFrame.GeometricBounds(1)
myY2 = myFrame.GeometricBounds(2)
myX2 = myFrame.GeometricBounds(3)
Set myRectangle = myDocument.Pages.Item(1).Rectangles.Add
myRectangle.GeometricBounds = Array(myY1, myX1, myY2, myX2)
myRectangle.FillColor = myDocument.Colors.Item("Black")
myRectangle.FillTint = 20
myRectangle.StrokeColor = myDocument.Swatches.Item("None")
myRectangle.SendToBack

This one should add a rectangle around the selection. But somehow Indesign seems to have problems with this line:

myRectangle.GeometricBounds = Array(myY1, myX1, myY2, myX2)

Any idea what's wrong here? I'm sure you have :-)

Alex