Re: [VBScript] How does moveTo work?

Article View: adobe.scripting.indesign

Article #16838

Back to adobe.scripting.indesign Previous Next

#16838

From: maxdunn
Date: Thu, 31 Jul 2003 05:39

18 lines
1308 bytes

Try more like:

Dim myInDesign
Dim myObjects
Dim myBounds
Set myInDesign = CreateObject("InDesign.Application.2.0")
Set myDocument = myInDesign.ActiveDocument
Set mySelection = myInDesign.Selection
Set myFrame = mySelection.Item(1)
myBounds = myFrame.GeometricBounds
Set myRectangle = myDocument.Pages.Item(1).Rectangles.Add
myRectangle.GeometricBounds = myBounds
myRectangle.FillColor = myDocument.Colors.Item("Black")
myRectangle.FillTint = 20
myRectangle.StrokeColor = myDocument.Swatches.Item("None")
myRectangle.SendToBack

Max

Technical Details

Message-ID: <1dea22ed.2@WebX.la2eafNXanI>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-08!supernews.com!news.tele.dk!news.tele.dk!small.news.tele.dk!lnewspeer00.lnd.ops.eu.uu.net!emea.uu.net!newsfeed01.sul.t-online.de!t-online.de!WebX

References: <1dea22ed.-1@WebX.la2eafNXanI>

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: f939a,7f15b4c91645e124
X-Google-Attributes: gidf939a,public
X-Google-ArrivalTime: 2003-07-30 23:07:36 PST
From: maxdunn <maxdunn@siliconpublishing.com>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-08!supernews.com!news.tele.dk!news.tele.dk!small.news.tele.dk!lnewspeer00.lnd.ops.eu.uu.net!emea.uu.net!newsfeed01.sul.t-online.de!t-online.de!WebX
Newsgroups: adobe.scripting.indesign
Subject: Re: [VBScript] How does moveTo work?
Message-ID: <1dea22ed.2@WebX.la2eafNXanI>
Date: Wed, 30 Jul 2003 22:39:15 -0700
References: <1dea22ed.-1@WebX.la2eafNXanI>
Lines: 18
MIME-Version: 1.0
Content-Type: text/plain; charset="ISO-8859-1"
Content-Transfer-Encoding: 8bit

Reply to Parent Message