how to set borders to Excel in macro

[#1]

hi,

when download  to excel activesheet which is pivot chart,

how can i set borders to this chat?

followings are expression i wrote in qv module

sub download_excel

set obj = ActiveDocument.GetSheetObject("CH01")

  frame = obj.frame

  frame.BorderEffect = 1

  obj.SetBorder frame

obj.SendToExcel

end sub

when i excute this script then

displayed property is not supported by object.

does anyone know some solutions about this case?

Regards,

[#2]

sorry,

not supported property is  'obj.frame'

[#3]

HI,

Try this

Sub download_excel

Set obj = ActiveDocument.GetSheetObject("CHo1")

Set P = obj.GetProperties

P.Layout.Frame.BorderEffects=1

obj.SetProperties P

End Sub

Best of luck

[#4]

hi, Satish

thank you for your advice.

i tryed script you wrote,

but it occured same error...

'script -------------------------------------------------------------------

sub download_excel

  set obj = ActiveDocument.GetSheetObject("CH01")

                    Set P = obj.GetProperties

                    P.Layout.Frame.BorderEffects=1

                    obj.SetProperties P

          obj.SendToExcel

End Sub