如何用VBA给把已EXCEL中图片再插入到批注中？

54mikeho

网上的例子都如下，需要提供图片的路径，但如果图片已经在文档中，要怎么用VBA来插入到批注中呢？
Sub Test()
Dim tRan As Range
Dim Path As String
Set tRan = ActiveCell  '批注所在单元格
Path = "E:\1.jpg"      '图片路径
tRan.ClearComments
tRan.AddComment.Shape.Fill.UserPicture Path
End Sub

上面的代码不能实现我想要的功能，如果图片已经被插入在单元格了，还想用VBA把它插入到所在单元格的批注里，如何实现呢？这样图片相当于小图，鼠标移过去时，显示大图。