[XLS/PPT 2003] VBA pour créer powerpoint à partir de graphes excel

' --------------------------------------------------------------------------------
' Copyright ©1999-2007, Shyam Pillai, All Rights Reserved.
' --------------------------------------------------------------------------------
' You are free to use this code within your own applications, add-ins,
' documents etc but you are expressly forbidden from selling or
' otherwise distributing this source code without prior consent.
' This includes both posting free demo projects made from this
' code as well as reproducing the code in text or html format.
' --------------------------------------------------------------------------------

 

Sub XlChartPasteSpecial()

   Dim xlApp As Object
   Dim xlWrkBook As Object
   Dim lCurrSlide As Long

    Set xlApp = CreateObject("Excel.Application")

   ' Open the Excel workbook

    Set xlWrkBook = xlApp.Workbooks.Open("C:\BOOK1.XLS")

   ' Copy picture of the 1st chart object onto the clipboard

    xlWrkBook.Worksheets(1).ChartObjects(1).CopyPicture

   ' Get the slide number

    lCurrSlide = ActiveWindow.Selection.SlideRange.SlideNumber

   ' Paste the picture onto the PowerPoint slide.

    ActivePresentation.Slides(lCurrSlide).Shapes.Paste

   ' Close the open workbook without saving changes

    xlWrkBook.Close (False)
    xlApp.Quit

    Set xlApp = Nothing
    Set xlWrkBook = Nothing

End Sub