Copying Excel content into PowerPoint

Automatically copying content from Excel to PowerPoint saves a lot of time. What we need to do now is select data, copy it, and then paste that into yet another newly inserted slide.

In this recipe, we will be copying a table into PowerPoint.

Getting ready

Make sure that PPoint_Interaction.xlsm is still open. Activate Sheet1, and enter the following data:

Figure 18.6 – Working data

How to do it…

Follow these steps to copy text from Excel to PowerPoint:

1. Before selecting anything in Excel, we need to insert a new blank slide in PowerPoint. Add the following lines of code:

   Sub CreatePowPntShow()
       Dim PowPntApp As PowerPoint.Application
       Dim PowPntPrsnt As PowerPoint.Presentation
       Dim PowPntSlide As PowerPoint.Slide
       
       Set PowPntApp = New PowerPoint.Application
      ...