Re: A frame for the image

Article View: adobe.scripting.indesign

Article #19677

Back to adobe.scripting.indesign Previous Next

#19677

From: roberto soto
Date: Fri, 29 Nov 2002 20:47

24 lines
1322 bytes

Hi Pieter,

Try this,

Private Sub Command2_Click()
 Set myInDesign = CreateObject("InDesign.Application.2.0")
 Set myDocPage = myInDesign.Documents.Add

Set myRectangle = myDocPage.Rectangles.Add
 myRectangle.GeometricBounds = Array("8p", "3p6", "22p", "22p6")
 Set myColor = myDocPage.Colors.Add
 myColor.ColorValue = Array(0, 100, 100, 0) 'RED COLOR

myRectangle.Place ("C:\file30.TIF")

myRectangle.Fit idProportionally
 myRectangle.Fit idFrameToContent

myRectangle.StrokeWeight = 5
 myRectangle.StrokeColor = myColor
End Sub

Thx
Roberto

Technical Details

Message-ID: <1de6ce19.1@WebX.la2eafNXanI>

Path:

arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-08!supernews.com!newsfeed.news2me.com!newsfeed.icl.net!newsfeed.fjserv.net!newsfeed.freenet.de!eusc.inter.net!newsfeed01.sul.t-online.de!t-online.de!WebX

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

Show Full Headers

Complete Article Headers

X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: f939a,321b5970335d9db3
X-Google-Attributes: gidf939a,public
X-Google-ArrivalTime: 2002-11-29 13:07:41 PST
From: "roberto soto" <roberto1soto@hotmail.com>
Path: arc1-ca.pugleaf.net!archiver1.google.com!news1.google.com!sn-xit-02!sn-xit-06!sn-xit-08!supernews.com!newsfeed.news2me.com!newsfeed.icl.net!newsfeed.fjserv.net!newsfeed.freenet.de!eusc.inter.net!newsfeed01.sul.t-online.de!t-online.de!WebX
Newsgroups: adobe.scripting.indesign
Subject: Re: A frame for the image
Message-ID: <1de6ce19.1@WebX.la2eafNXanI>
Date: Fri, 29 Nov 2002 12:47:34 -0800
References: <1de6ce19.-1@WebX.la2eafNXanI>
Lines: 24
MIME-Version: 1.0
Content-Type: text/plain; charset="ISO-8859-1"
Content-Transfer-Encoding: 8bit

Reply to Parent Message