excel vba shape.copy在一个实例中工作，但在另一个实例中不工作

Question

如果（在Excel 2010中）我创建了一个形状对象，如下所示：

Set ws = ActiveSheet
Set sh = ws.Shapes.AddPicture(inpicfile, msoFalse, msoTrue, 0, 0, widpts1, htpts1)

然后我可以用一个声明将该图片复制到剪贴板：

sh.Copy

但是，如果我在单元格的评论中有一张图片，我会按照以下方式创建我的形状：

Set sh = Activecell.Comment.Shape

然后一个sh.copy语句给了我Run Tim错误＆＃39; 1004＆＃39 ;;应用程序定义或对象定义的错误。

任何人都知道为什么？

我找到了以下复制评论图片的方法，但我想了解这两种形状之间的区别＆＃39;。

Application.ScreenUpdating = False
c.Comment.Visible = True
sh.Select
sh.CopyPicture Appearance:=xlScreen, Format:=xlPicture
c.Comment.Visible = False
Application.ScreenUpdating = True

（c是单元格的范围对象。）