Microsoft Office Forums - View Single Post - [Solved] Paste Excel chart with embeded workbook: PowerPoint for Mac

5amuel · 02-11-2014, 05:57 PM

Hi
The following VBA code pastes Excel graphs to PowerPoint with the *workbook embeded* (same as clicking Paste Special -> Keep source formatting and embed workbook.

Can anyone assist in translating this code into Excel for Mac 2011? It breaks on "ExecuteMso"

Code:

Public PPApp As PowerPoint.Application
Public PPPres As PowerPoint.Presentation
Public PPSlide As PowerPoint.Slide
Sub ExcelToExistingPowerPoint()
    ActiveSheet.Select
    ActiveSheet.Copy
    ActiveSheet.Shapes(xChart).Copy
    Set PPSlide = PPPres.Slides.Add(PPPres.Slides.Count + 1, 2)
    PPSlide.CustomLayout = PPPres.Designs(1).SlideMaster.CustomLayouts(2)
    PPApp.ActiveWindow.View.GotoSlide PPSlide.SlideIndex
    PPSlide.Shapes.Placeholders(3).Select msoTrue
    PPApp.CommandBars.ExecuteMso "PasteExcelChartSourceFormatting"
End Sub

Thanks in advance!