export all objects to ppt

[rathnam_qv]

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.

[Anonymous]

ActiveDocument.Sheets("Main").ExportBitmapToFile "C:\MyImage.bmp"

[rathnam_qv]

Hi Konstantins,

thanks for your reply.

can you please send me the macro.

Regards,

Rathnam.

[Anonymous]

Sub Export

  ActiveDocument.Sheets("SH01").ExportBitmapToFile "C:\temp\SH01.png"

End Sub

[Anonymous]

Or directly to PPT file

[rathnam_qv]

to export to all objects to ppt wat i need to change

[rathnam_qv]

Hi Guys,

can any send me the vb script for this.

Regards,

Rathnam.

[Anonymous]

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

[rathnam_qv]

Hi konstantins,

Thanks for your reply.

i want to export each object separately not entire sheet as single object.

Regards,

Rathnam.

[marcus_sommer]

Have a look here: Macro to export more than one Sheet objects into PPT

- Marcus