vba如何获取形状格式

Question

这可能非常简单但我无法在下面的代码中发现错误，该错误应该复制名为xx的形状的格式并将其应用于名为yy的形状。谢谢你的帮助。

  Sub CopyPasteShapeFormat()
  Set myDocument = Worksheets("Shape Object - Methods")
  With myDocument
        .Shapes("xx").PickUp
        .Shapes("yy").Apply
  End With
  End Sub