I’ve been trying to maintain compatibility between Mac and Windows versions of Excel/VBA apps for a while now, and it’s a pain.
These notes refer to versions 16.14 of both Excel and Powerpoint.
Here are some of my recent threads on answers.microsoft.com
Passing a user-defined object to a sub As Object passes an object with all Null properties. Passing As MyClass works. Methods work, just not properties.
Interoperability between Excel 2016 for Mac and Powerpoint 2016 for Mac is very frustrating.
To get VBA to copy a picture of a chart to a slide, I’ve tried four different ways.
Only in the latest Insider Build 16.14 does the obvious Copy / Paste method work but even that requires copying and pasting as an image in Excel first and then copying amd pasting the static picture.
1) Manual copy and paste works, as it does in Windows. I want to automate this for what could be 100 slides.
2) The CopyPicture method fails for all objects. Range gives error 1004 CopyPicture method of Range class failed. ChartArea gives error 438 Object doesn’t support this property or method. Chart.Copypicture the result when pasting is a shape with text “The picture can’t be displayed”. (Update 8-May-18: Excel 16.14 (180507) Chart.Copypicture now works, includes a TIFF format in the copied data. And to save a picture of a range as a file, we can now do range.copypicture followed by adding a temporary chart by chartobjects.add and then chartobject.chart.paste of the picture, then chart.export as PNG)
See my post on answers.microsoft.com.
To work around this, create the picture in Excel:
oChart.ChartArea.Copy
' ws is the target sheet for the picture
ws.Cells(30, 9).Select 'below the chart; to anchor the Paste
ws.PasteSpecial 'default Format Link:=False,DisplayAsIcon:=False
'Format: 0=PNG,1=JPEG,2=GIF,3=Enhanced metafile,4=Bitmap,5=DrawingObject
' but UI offers only PDF/TIFF/Drawingobject
Set oShp = ws.Shapes(ws.Shapes.Count)
oShp.Copy
3) There is no Slide.PasteSpecial method in Mac Powerpoint VBA. Slide.Paste takes NO data type argument.
4) ApplescriptTask can be used to execute the Paste in Powerpoint. Thanks to Ron de Bruin for help here.
This code is in the VBA:
myChartObject.Copy
AppleScriptTask "CopyPasteScript.applescript", "PastePowerpoint", ""
Save this code in a file eg “CopyPasteScript.applescript” in the special folder
/Users/myusername/Library/Application Scripts/com.microsoft.Excel
on PastePowerpoint()
-- Paste into Powerpoint
tell application "Microsoft PowerPoint" to activate
delay 0.1
tell application "System Events"
tell process "microsoft powerpoint" to keystroke "v" using command down
end tell
end PastePowerpoint
5) Another method is to export the Chart as a picture and then import it in PowerPoint
Dim oChart As Chart, sFile As String
Set oChart = ThisWorkbook.Worksheets(1).ChartObjects(1).Chart
oChart.Parent.Activate ' Chartobject
sFile = ThisWorkbook.Path & Application.PathSeparator & "test.png"
oChart.Export sFile, "png"
' Only works on Excel for Mac 16.14 or later; 16.9 to 16.13 produces zero bytes file
oSlide.Shapes.AddPicture(sFile, False, True, 185, 110, -1, -1)
6) In practice, the above method is agonisingly slow, so what I really do is write a VBA script with lines that create a presentation, add slides, set the title text, and call AddPicture using the file names created.
Then I create a temporary presentation in PowerPoint, import that VBA code, execute it, and close the temporary presentation without saving it.
7) Before Chart.Export started to work in Excel 16.14 or later, I did try the ugliest workaround, and it works but it’s really a kludge.
7.1 Create a temporary workbook with a sheet for each slide and copy/paste the title and chart image into it. Add needed properties to the .AlternativeText of the pictures.
7.2 Save the workbook as html.
7.3 Open the tabstrip.htm file, read the text, split it at “<a href=” and extract the tab names.
7.4 for each tab file name, open its htm file, read the text, split it at “<v:shape id=” and parse out the picture file names and properties.
7.5 Now I have the picture file name, add a line to the PowerPoint VBA file I create in (6) above to add a slide using the right title and picture filename.
Horrible, isn’t it?