Hi Don,
FrameScript would certainly pay for itself with this job alone. If you
decide to try it, here is the code to add a 1 point border to all of the
imported graphics on body pages in the document.
If ActiveDoc = 0
MsgBox 'There is no active document.';
LeaveSub;
Else
Run ProcessDoc oDoc(ActiveDoc);
EndIf
Sub ProcessDoc
//
Set oGraphic = oDoc.FirstGraphicInDoc;
Loop While(oGraphic)
// See if the graphic is an imported graphic.
If oGraphic.ObjectName = 'Inset'
// See if the graphic is on a body page.
If oGraphic.Page.ObjectName = 'BodyPage'
Set oGraphic.Pen = FillBlack;
Set oGraphic.BorderWidth = 1pt;
EndIf
EndIf
Set oGraphic = oGraphic.NextGraphicInDoc;
EndLoop
//
EndSub
Without FrameScript, you could save your documents as MIF and use a text
editor to add the border. See the online MIF Reference for the syntax
details.
Rick Quatro
Carmen Publishing
585-659-8267
www.frameexpert.com
All,
Is there a way to automate putting an outline on a graphic object. (Other
than using FrameScript which I don't have.)
I can do this manually by selecting the object then the Tools Palette but
I've got about 1200 graphic objects to modify.
If not, I'll look at modifying the actual graphic to put a border on them.
Thanks,
Don.
--
Don Rinderknecht -- KD5MVV
Meteorologist Instructor/Developer ~ Warning Decision Training Branch
[EMAIL PROTECTED] ~ http://wdtb.noaa.gov
_______________________________________________
_______________________________________________
You are currently subscribed to Framers as [EMAIL PROTECTED]
Send list messages to [EMAIL PROTECTED]
To unsubscribe send a blank email to
[EMAIL PROTECTED]
or visit
http://lists.frameusers.com/mailman/options/framers/archive%40mail-archive.com
Send administrative questions to [EMAIL PROTECTED] Visit
http://www.frameusers.com/ for more resources and info.
