Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
Hi All,
i have a macro to export only charts to ppt.But, i want to export all objects(charts, tables, listboxes....etc) to ppt.
Can anyone help me out ..Its Urgent.
Regards,
Rathnam.
ActiveDocument.Sheets("Main").ExportBitmapToFile "C:\MyImage.bmp"
Hi Konstantins,
thanks for your reply.
can you please send me the macro.
Regards,
Rathnam.
Sub Export
ActiveDocument.Sheets("SH01").ExportBitmapToFile "C:\temp\SH01.png"
End Sub
Or directly to PPT file
to export to all objects to ppt wat i need to change
Hi Guys,
can any send me the vb script for this.
Regards,
Rathnam.
Sub Export
ActiveDocument.Sheets("SH01").ExportBitmapToFile "C:\temp\SH01.png"
End Sub
sub ExportToPPT
Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True
Set objPresentation = objPPT.Presentations.Add
Set PPSlide = objPresentation.Slides.Add(1,11)
ActiveDocument.ActiveSheet.CopyBitmapToClipboard
PPSlide.Shapes.Paste
Set PPSlide = Nothing
Set PPPres = Nothing
Set PPApp = Nothing
end Sub
Hi konstantins,
Thanks for your reply.
i want to export each object separately not entire sheet as single object.
Regards,
Rathnam.
Have a look here: Macro to export more than one Sheet objects into PPT
- Marcus