Problem with setting TOP & LEFT position to CurrentSelectionBox

[#1]

Hello QV Experts,

I am getting below error while executing below code please help

error: Object doesn't support this property or method: 'prop.SetRect'

set obj=ActiveDocument.Sheets("Main").CreateCurrentSelectionBox

set prop=obj.GetRect

prop.Top=200

prop.Left=20

prop.SetRect prop

[#2 · Accepted solution]

Hi All,

I found way to achive. Below is the code might help others

set mybox = ActiveDocument.Sheets("Main").CreateCurrentSelectionBox

set fr = mybox.GetFrameDef

pos = fr.Rect

pos.Top = 300 + 20

pos.Left = 15

mybox.SetFrameDef fr