Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
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
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
did you try this?
set myObject = ActiveDocument.GetSheetObject("MB01")
set myObjectProperties = myObject.GetProperties
myObjectProperties.Layout.Style = 0 '0=Borders 1=Light
myObject.SetProperties myObjectProperties
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
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
Thanks Tim.