MacExcel VBA - копировать диаграмму из Excel в Word

Question

Мне нужно скопировать форму из Excel и вставить ее в файл Word. После вставки мне нужно повернуть его на 90 градусов, а затем изменить размеры диаграммы.

Ниже код отлично работает на ОС Windows, но не на MAC. Кто-нибудь может мне помочь сделать его совместимым с Mac, пожалуйста?

shTPSRanking.Shapes("grpTPSRanking").CopyPicture
w.Application.Selection.PasteSpecial
With w.ActiveDocument.Shapes(w.ActiveDocument.Shapes.Count)
    .IncrementRotation -90
    .Top = 173.65
    .Left = 0 '-139
    .Width = 773.8
    .Height = 337.5
End With

В Mac выдает ошибку времени выполнения с сообщением "Метод Top of object shape failed"