Setting AFrame height to the height of a graphic inside aframe plus padding

Question

Hello fellows,
I am trying to set a permanent bottom padding between an anchored frame and a graphic object (embedded Visio) that is inside the anchored frame.
However, instead of getting that padding below the graphic, the aframe becomes really small, and only 20% of the graphic is exposed.
The code goes like this:
SET vFrame = vCurrentDoc.FirstGraphicInDoc;
Loop While(vFrame)
IF vFrame.ObjectName = 'AFrame'
SET vFrame.AnchorType = AnchorBelow;
SET vFrame.GraphicIsSelected = 1;
SET vGraphic = vFrame.FirstGraphicInFrame // Select the 1st graphic in the frame
SET vFrame.Width = vFrame.TextLoc.InTextObj.Width;
SET vFrame.Height= vGraphic.Height + 5mm; //Here is the padding of 5mm
Set vGraphic.LocY = 0mm;
Set vGraphic.LocX = (vFrame.Width - vGraphic.Width) / 2;
ENDIF
Please, advise!
Thank you!

Answer 1

This works for me:
// Set a variable for the active document.
Set oDoc = ActiveDoc;
// Set a variable for the selected anchored frame.
Set oAFrame = oDoc.FirstSelectedGraphicInDoc;
// Update the anchored frame's position.
Set oAFrame.AnchorType = AnchorBelow;
// Set the width of the anchored frame to match the containing text column.
Set oAFrame.Width = oAFrame.TextLoc.InTextObj.Width;
// Get the first graphic in the anchored frame.
Set oGraphic = oAFrame.FirstGraphicInFrame;
// Make the anchored frame's height 5 mm taller than the graphic.
Set oAFrame.Height = oGraphic.Height + 5mm;
// Move the graphic to the top of the anchored frame.
Set oGraphic.LocY = 0;
// Center the graphic horizontally in the anchored frame.
Set oGraphic.LocX = (oAFrame.Width - oGraphic.Width) / 2;
After you get it tested, then put it in a function:
Set oDoc = ActiveDoc;
Set oAFrame = FirstSelectedGraphicInDoc;
Set iResult = AdjustAFrameAndGraphic{oAFrame};
Function AdjustAFrameAndGraphic oAFrame
Local oGraphic(0);
// Update the anchored frame's position.
Set oAFrame.AnchorType = AnchorBelow;
// Set the width of the anchored frame to match the containing text column.
Set oAFrame.Width = oAFrame.TextLoc.InTextObj.Width;
// Get the first graphic in the anchored frame.
Set oGraphic = oAFrame.FirstGraphicInFrame;
If oGraphic
  // Make the anchored frame's height 5 mm taller than the graphic.
  Set oAFrame.Height = oGraphic.Height + 5mm;
  // Move the graphic to the top of the anchored frame.
  Set oGraphic.LocY = 0;
  // Center the graphic horizontally in the anchored frame.
  Set oGraphic.LocX = (oAFrame.Width - oGraphic.Width) / 2;
EndIf
EndFunc // -------------------------------------------------------------------
-Rick