Fernando -
Which line gives you the error? What is the error message? What
doesn't happen that you expected to happen? Is the error in the
PasteCharts routine?
I have some hints on this topic he
http://www.geocities.com/jonpeltier/Excel/XL_PPT.html
- Jon
-------
Jon Peltier, Microsoft Excel MVP
http://www.geocities.com/jonpeltier/Excel/index.html
_______
Fernando Ortiz wrote:
Hi, All Experts
I tried run Power Point and paste on it some Charts from excel with this
code.
Something is wrong and I don't what is.
Thanks for your expert advice
Sub RunPowerPoint_Automation()
Dim PowerApp As PowerPoint.Application
Dim PowerPres As PowerPoint.Presentation
Set PowerApp = CreateObject("PowerPoint.Application")
Set PowerPres = PowerApp.Presentations.Open _
("C:\PowerTest.ppt")
PowerApp.Visible = True
PasteCharts
Set PowerApp = Nothing
End Sub