Breaking News: Grepper is joining You.com. Read the official announcement!

How to export CHARTS in Excel to PowerPoint (CHR XLS PPT)

ShowGo Shane answered on October 5, 2022 Popularity 5/10 Helpfulness 1/10

answer How to export CHARTS in Excel to PowerPoint (CHR XLS PPT)

related How to export CHARTS in Word to PowerPoint (CHR WORD PPT)

How to export CHARTS in Excel to PowerPoint (CHR XLS PPT)

Comment

Sub SendExcelFiguresToPowerPoint()
    'Set reference to Microsoft Powerpoint Object Library
    'Declare your variables
        Dim PP As PowerPoint.Application
        Dim PPPres As PowerPoint.Presentation
        Dim PPSlide As PowerPoint.Slide
        Dim i As Integer
    'Check for charts; exit if no charts exist
        Sheets("Slide Data").Select
            If ActiveSheet.ChartObjects.Count < 1 Then
                MsgBox "No charts existing the active sheet"
                Exit Sub
            End If
    'Open PowerPoint and create new presentation
        Set PP = New PowerPoint.Application
        Set PPPres = PP.Presentations.Add
        PP.Visible = True
    'Start the loop based on chart count
            For i = 1 To ActiveSheet.ChartObjects.Count
            'Copy the chart as a picture
                ActiveSheet.ChartObjects(i).Chart.CopyPicture _
                Size:=xlScreen, Format:=xlPicture
                Application.Wait (Now + TimeValue("0:00:1"))
            'Count slides and add new slide as next available slide number
                ppSlideCount = PPPres.Slides.Count
                Set PPSlide = PPPres.Slides.Add(SlideCount + 1, ppLayoutBlank)
                PPSlide.Select
            'Paste the picture and adjust its position; Go to next chart
                PPSlide.Shapes.Paste.Select
                PP.ActiveWindow.Selection.ShapeRange.Align msoAlignCenters, True
                PP.ActiveWindow.Selection.ShapeRange.Align msoAlignMiddles, True
            Next i
    'Memory Cleanup
        Set PPSlide = Nothing
        Set PPPres = Nothing
        Set PP = Nothing
End Sub

Popularity 5/10 Helpfulness 1/10 Language vb

Source: yonkov.github.io

Tags: charts excel export powerpoint vba xls

Link to this answer
Share Copy Link

Contributed on Oct 05 2022

ShowGo Shane

0 Answers Avg Quality 2/10

Closely Related Answers

How to export CHARTS in Word to PowerPoint (CHR WORD PPT)

Comment

Sub ExcelTableInWord()
    'Set reference to Microsoft Word Object library
    'Declare your variables
        Dim MyRange As Excel.Range
        Dim wd As Word.Application
        Dim wdDoc As Word.Document
        Dim WdRange As Word.Range
    'Copy the defined range
       Sheets("Revenue Table").Range("B4:F10").Cop
    'Open the target Word document
        Set wd = New Word.Application
        Set wdDoc = wd.Documents.Open _
        (ThisWorkbook.Path & "\" & "PasteTable.docx")
        wd.Visible = True
    'Set focus on the target bookmark
        Set WdRange = wdDoc.Bookmarks("DataTableHere").Rangе
    'Delete the old table and paste new
        On Error Resume Next
        WdRange.Tables(1).Delete
        WdRange.Paste 'paste in the table   
    'Adjust column widths
        WdRange.Tables(1).Columns.SetWidth _
        (MyRange.Width / MyRange.Columns.Count), wdAdjustSameWidth
    'Reinsert the bookmark
        wdDoc.Bookmarks.Add "DataTableHere", WdRange
    'Memory cleanup
        Set wd = Nothing
        Set wdDoc = Nothing
        Set WdRange = Nothing
End Sub

Popularity 3/10 Helpfulness 1/10 Language whatever

Source: yonkov.github.io

Tags: whatever charts powerpoint word export

Link to this answer
Share Copy Link

Contributed on Oct 05 2022

ShowGo Shane

0 Answers Avg Quality 2/10

How to export CHARTS in Excel to PowerPoint (CHR XLS PPT)

Contents

More Related Answers

How to export CHARTS in Excel to PowerPoint (CHR XLS PPT)

Closely Related Answers

How to export CHARTS in Word to PowerPoint (CHR WORD PPT)

Grepper

Documentation

Social

Legal

Contact

Oops, You will need to install Grepper and log-in to perform this action.