Paste Excel chart with embeded workbook: PowerPoint for Mac

5amuel · #1 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!

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Way to lock a workbook but still allow moving datapoints on a chart?	omahadivision	Excel Programming	1	01-31-2013 11:33 PM
Height and Width blank - Excel Chart in Powerpoint	Metronome	PowerPoint	1	04-06-2012 06:20 AM
Chart from Excel to Powerpoint	narendra1302	PowerPoint	2	04-05-2012 03:19 AM
option Paste special...as 'Microsoft Excel Chart Object' NOT available	Intruder	PowerPoint	0	12-24-2010 06:28 AM
Paste chart from Excel	bielak01	Word	4	04-29-2009 02:42 PM