E
edwardm
Does anyone know how to do this?
I've got to the point where I have powerpoint open but I can't create
new slide. The following opens powerpoint then falls over on the lin
"pres.slides.add 1 , pplayoutblank".
Set ppt = CreateObject("powerpoint.application")
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
ppt.Visible = True
Set pres = ppt.presentations.Add
pres.slides.Add 1, pplayoutblank
ppt.ActiveWindow.View.Past
I've got to the point where I have powerpoint open but I can't create
new slide. The following opens powerpoint then falls over on the lin
"pres.slides.add 1 , pplayoutblank".
Set ppt = CreateObject("powerpoint.application")
ActiveSheet.ChartObjects("Chart 1").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
ppt.Visible = True
Set pres = ppt.presentations.Add
pres.slides.Add 1, pplayoutblank
ppt.ActiveWindow.View.Past