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中，它会显示运行时错误消息“Method Top of object shape failed”