Hello,
I have a straight table with financial information and because the user can select one or months/years, the straight table size changes. I have a text box to the right (partially complete) that show 3-Month trends and I was hoping to have this textbox follow the size of the straight table. I have this macro (below) but the edit box keeps popping up when I got to execute. So if the user selects one month, then the textbox will move to a position, if they select two months another position... I only went to month 3 in my macro but I want to end up going out to 11 months.
Textbox ID: TX778
Month Filter: LB39
SUB Move1
set fld=Activedocument.Fields("LB39").Count
if fld=1 then
set p1 = ActiveDocument.GetSheetObject("TX778")
set fr = p1.GetFrameDef
set pos = fr.Rect
pos.Left = 1000
p1.SetFrame fr,true, ""
Else
if fld=2 then
set p1 = ActiveDocument.GetSheetObject("TX778")
set fr = p1.GetFrameDef
set pos = fr.Rect
pos.Left = 2000
p1.SetFrame fr,true, ""
Else
if fld=3 then
set p1 = ActiveDocument.GetSheetObject("TX778")
set fr = p1.GetFrameDef
set pos = fr.Rect
pos.Left = 3000
p1.SetFrame fr,true, ""
End IF
End IF
End IF
End sub
Thank you very much in advance!