Skip navigation
Currently Being Moderated

Global changes to Anchored Frames?

Mar 4, 2010 8:38 AM

Has anyone run across a plug-in or FrameScript that applies the same set of global properties to all anchored frames in a file or book?

 

I'm working on a legacy document and I need to change all anchored frames to have a 1 pt black rule, right align, have the same width, and be set to Below Current Line.
Bonus points for setting the graphic inside to 0/0 offset.

 

(ImpGraph does some of this for newly imported graphics, but this is applying changes to existing frames... more of a global S&R operation.)

 

Thanks,

Art

 
Replies
  • Currently Being Moderated
    Mar 4, 2010 11:48 AM   in reply to Art Campbell

    Hi Art,

     

    This is a really short script (without bonus points). Like this:

     

    Local lvObj lvDoc(ActiveDoc) lvCount(0) lvColor;

    Get Object DocObject(lvDoc) Type(Color) Name('Black') NewVar(lvColor);

     

    Set lvObj = lvDoc.FirstGraphicInDoc;

    Loop While(lvObj)

      If (lvObj.ObjectName = 'AFrame')

        Set lvCount = lvCount + 1;

        Set lvObj.Pen = FillBlack;

        Set lvObj.BorderWidth = 1; // metrics in pt

        Set lvObj.Color = lvColor;

        Set lvObj.Alignment = AlignRight;

        Set lvObj.AnchorType = AnchorBelow;

        Set lvObj.Width = 35mm;

      EndIf

      Set lvObj = lvObj.NextGraphicInDoc;
    EndLoop

    Display '# of changes: ' + lvCount;
    Careful: Untested!
    HTH,
    - Michael

     
    |
    Mark as:
  • Currently Being Moderated

    Did anyone use this script with success? I need to re-align all the graphics in some docs to the left, but not make any other changes. I'm thinking I can use just the alignment command in this script to accomplish this.

     
    |
    Mark as:

More Like This

  • Retrieving data ...

Bookmarked By (0)

Answers + Points = Status

  • 10 points awarded for Correct Answers
  • 5 points awarded for Helpful Answers
  • 10,000+ points
  • 1,001-10,000 points
  • 501-1,000 points
  • 5-500 points