Border of Objects in Macros

[sagarkharpude]

Hi,

I am using the VBScript macros to export the objects(Text boxes/Chart) to PPT. Export is working fine but border of the object is not coming in PPT. IS there any code to display the border?

Thanks

Sagar

[zhadrakas]

did you try this?

set myObject = ActiveDocument.GetSheetObject("MB01")

set myObjectProperties = myObject.GetProperties

myObjectProperties.Layout.Style = 0 '0=Borders 1=Light

myObject.SetProperties myObjectProperties

[sagarkharpude]

Hi Tim,

I am using below code.

ActiveDocument.GetSheetObject("TX293").CopyBitmapToClipboard 

ActiveDocument.GetApplication.WaitForIdle

  PPSlide.Shapes.Paste 

  PPSlide.Shapes(PPSlide.Shapes.Count).Top = 2

  PPSlide.Shapes(PPSlide.Shapes.Count).Left = 10

  PPSlide.Shapes(PPSlide.Shapes.Count).Width = 85 

  PPSlide.Shapes(PPSlide.Shapes.Count).Height = 55

  ActiveDocument.GetApplication.WaitForIdle

Where I can insert your Layout code in my above code.

Thanks 

[zhadrakas · Accepted solution]

sorry that won' work.you can use this to set a the line manually after exporting the object

With PPSlide.Shapes.Paste 

  PPSlide.Shapes(PPSlide.Shapes.Count).Top = 2

  PPSlide.Shapes(PPSlide.Shapes.Count).Left = 10

  PPSlide.Shapes(PPSlide.Shapes.Count).Width = 85 

  PPSlide.Shapes(PPSlide.Shapes.Count).Height = 55

  PPSlide.Shapes(PPSlide.Shapes.Count).Line.Weight=8

  PPSlide.Shapes(PPSlide.Shapes.Count).Line.Forecolor.RGB = RGB(0,0,0)

PPSlide.Shapes(PPSlide.Shapes.Count).Line.Visible = true

End With

[sagarkharpude]

Thanks Tim.