Hi Robert
Please visit -
http://www.excelitems.com/2009/09/export-excel-2007-charts-to-powerpoint.html
for full code and usage.
or use the code below
'Check that a slide exits, if it doesn't add 1 slide. Else use
the last slide for the paste operation
If ppApp.ActivePresentation.Slides.Count = 0 Then
Set ppSlide = ppApp.ActivePresentation.Slides.Add(1,
ppLayoutBlank)
Else
If AddSlidesToEnd Then
'Appends slides to end of presentation and makes last
slide active
ppApp.ActivePresentation.Slides.Add
ppApp.ActivePresentation.Slides.Count + 1, ppLayoutBlank
ppApp.ActiveWindow.View.GotoSlide
ppApp.ActivePresentation.Slides.Count
Set ppSlide = ppApp.ActivePresentation.Slides
(ppApp.ActivePresentation.Slides.Count)
Else
'Sets current slide to active slide
Set ppSlide = ppApp.ActiveWindow.View.Slide
End If
End If
--------------------------------------------------------------------------
Thanks & Regards
Ashish Jain
Ph. No. - 0x25402CF2B
http://www.excelitems.com
* Excel,VBA,VSTO Trainer*
http://www.openexcel.com
* (Developer of OpenXL)*
http://www.mastweekend.com
* (Make different, this weekend)*
---------------------------------------------------------------------------
--~--~---------~--~----~------------~-------~--~----~
----------------------------------------------------------------------------------
Some important links for excel users:
1. Excel and VBA Tutorials(Video and Text), Free add-ins downloads at
http://www.excelitems.com
2. Excel tutorials at http://www.excel-macros.blogspot.com
3. Learn VBA Macros at http://www.vbamacros.blogspot.com
4. Excel Tips and Tricks at http://exceldailytip.blogspot.com
To post to this group, send email to excel-macros@googlegroups.com
If you find any spam message in the group, please send an email to:
Ayush Jain @ jainayus...@gmail.com or
Ashish Jain @ 26may.1...@gmail.com
<><><><><><><><><><><><><><><><><><><><><><>
HELP US GROW !!
We reach over 6,500 subscribers worldwide and receive many nice notes about the
learning and support from the group. Our goal is to have 10,000 subscribers by
the end of 2009. Let friends and co-workers know they can subscribe to group at
http://groups.google.com/group/excel-macros/subscribe
-~----------~----~----~----~------~----~------~--~---
