Paste Excel Chart into Powerpoint using VBA

by

Given I dont have your file locations to work with I have attached a routine below that

  1. Created a new instance of PowerPoint (late binding, hence the need to define constants for ppViewSlide etc)
  2. Loops through each chart in a sheet called Chart1 (as per your example)
  3. Adds a new slide
  4. Pastes each chart, then repeats

Did you need to format each chart picture before exporting for size, or can you change your default chart size?

Const ppLayoutBlank = 2
Const ppViewSlide = 1

Sub ExportChartstoPowerPoint()
    Dim PPApp As Object
    Dim chr
    Set PPApp = CreateObject("PowerPoint.Application")
    PPApp.Presentations.Add
    PPApp.ActiveWindow.ViewType = ppViewSlide
    For Each chr In Sheets("Chart1").ChartObjects
        PPApp.ActivePresentation.Slides.Add PPApp.ActivePresentation.Slides.Count + 1, ppLayoutBlank
        PPApp.ActiveWindow.View.GotoSlide PPApp.ActivePresentation.Slides.Count
        chr.Select
        ActiveChart.CopyPicture Appearance:=xlScreen, Size:=xlScreen, Format:=xlPicture
        PPApp.ActiveWindow.View.Paste
        PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
        PPApp.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
    Next chr
    PPApp.Visible = True
End Sub

More Related Contents:

  1. Print function selecting wrong Type of Change option excel vba
  2. Format Cell Contents
  3. Excel formula checklist in employees
  4. How do I put double quotes in a string in vba?
  5. What is the difference between .text, .value, and .value2?
  6. How can I URL encode a string in Excel VBA?
  7. What is the difference between “Form Controls” and “ActiveX Control” in Excel 2010?
  8. Check if the file exists using VBA
  9. How can I create a progress bar in Excel VBA?
  10. VBA rounding problem
  11. VBA – Write all possible combinations of 4 columns of data [duplicate]
  12. Pasting an Excel range into an email as a picture
  13. Remove duplicates from array using VBA
  14. 2 ways for “ClearContents” on VBA Excel, but 1 work fine. Why? [duplicate]
  15. Excel 2013 VBA Clear All Filters macro
  16. Rounding in MS Access
  17. Count unique values in Excel
  18. Sum function in VBA
  19. Excel error 1004 “Unable to get …. property of WorksheetFunction class” appearing inconsistently
  20. How can I install/use “Scripting.FileSystemObject” in Excel 2010 for MAC?
  21. How to save Excel Workbook to Desktop regardless of user?
  22. How to add an attachment to an email using VBA in Excel
  23. Get Timezone Information in VBA (Excel)
  24. How to change Format of a Cell to Text using VBA
  25. Excel VBA Run-time error ’13’ Type mismatch
  26. ThisWorkbook.FullName returns a URL after syncing with OneDrive. I want the file path on disk
  27. VBA: Modify chart data range
  28. VBA Excel simple Error Handling
  29. How to do a “Save As” in vba code, saving my current Excel workbook with datestamp?
  30. How to save semi-colon delimited csv file using VBA?

Leave a Comment