Question

如何将EXCEL的批注长度和宽度设置成与外部图片一致？

求EXCEL高手帮忙解决，下面是用宏做的，自动添加批注的背景图片。

Sub 添加图片批注()
Dim 单元格
On Error Resume Next
For Each 单元格 In Selection
单元格.AddComment
单元格.Comment.Shape.Fill.UserPicture ActiveWorkbook.Path & "\image\" & 单元格.Value & ".jpg"
单元格.Selection.ShapeRange.Fill.Visible = msoTrue
单元格.Comment.Shape.Height = 320
单元格.Comment.Shape.Width = 300
Next 单元格
End Sub

我希望下面的长度和宽度，设置和粘贴的图片一样大小。
单元格.Comment.Shape.Height = 320
单元格.Comment.Shape.Width = 300
我插入的每张图片大小都不一样。 希望批注框能根据图片的尺寸自动调整长宽。

Answer 1

删除
单元格.Comment.Shape.Height = 320
单元格.Comment.Shape.Width = 300
添加
With ActiveCell.Comment

.Shape.TextFrame.AutoSize = True

End With

应该是没问题

追问

这个不行，.Shape.TextFrame.AutoSize是根据注释里的文字自动调节窗口大小，但我插入的是背景图片，实际上注释里面没有任何内容。

我原来的思路是先获取外部图片的尺寸，然后直接改注释的尺寸，但我没找到用excel的宏获得外部图片的尺寸的代码。。。。。。