Public Enum Paste Format xl_Link = 0 xl_HTML = 1 xl_Bitmap = 2 End Enum Sub Copy_Paste_to_Power Point(By Ref pp App As Object, By Ref pp Slide As Object, By Val Object Sheet As Worksheet, _ By Ref Paste Object As Object, Optional By Val Paste_Type As Paste Format) ' Modified version of code originally posted here: ' Copy Picture Appearance:=1, Format:=-4147 pp Slide. kb_id=370 ' Modified by : Krishnakumar @ Excel ' Used Late binding so that no issues when users have multiple Excel version Dim Paste Range As Boolean Dim obj Chart As Chart Object Dim lng SU As Long Select Case Type Name(Paste Object) Case "Range" If Not Type Name(Selection) = "Range" Then Application. Cells(1) Paste Range = True Case "Chart": Set obj Chart = Paste Object.
But of course her change means you have to start all over with the copy and pastes… In the Oil and Gas industry, I constantly have monthly reports to assess the performance of our operating assets. Create a new worksheet and paste in all the charts you need for the presentation. To show the developer tab, click on the Microsoft Office Button and click Excel Options. Click Popular and then select the Show Developer tab in the Ribbon. Click on the Developer tab in the ribbon and click Visual Basic. In your VBA Editor window, click File = References. To make this easy, draw a rectangle shape in your Excel worksheet which contains all the charts you want to export to Power Point. Please enter your name & email address below and I will update you as soon as our class opens for enrollment.
Save your workbook as "Excel macro-enabled workbook".
Press , then click the "No" button in the "The following features cannot be saved in macro-free workbook" warning dialog. Choose "Excel macro-enabled workbook" from the "Save as type" drop-down list and click the Save button.
Below you find a macro and a function that you can use to create a folder if it not exists in the Root folder named : UBF8T346G9.
Most people like me and you are not real Microsoft Office gurus.