你好,这个过程是正确的;
我详细给你说明下:
Sub 添加图片批注()
Dim 单元格
On Error Resume Next
For Each 单元格 In Selection
单元格.AddComment "你们好"
'单元格.Comment.Shape.Fill.UserPicture "c:\1.png"
'单元格.Comment.Shape.Height = 120
'单元格.Comment.Shape.Width = 200
Next 单元格
End Sub
--------------------------------------------
这三行是添加批注图片的,楼主在C盘下放一张JPG的图片,小一点
'单元格.Comment.Shape.Fill.UserPicture "c:\1.JPG"
'单元格.Comment.Shape.Height = 120
'单元格.Comment.Shape.Width = 200
(单引号是注释,这个懂?)
--------------------------------------------
或直接运行我最上面的代码也行;记得先选中一些单元格区域;
不知道你这个代码是不是完整的,首先“F:产品图”就是错的,应该是“F:\产品图”,而且建议变量及名称尽量使用英文,excel不是中国人开发的,难说有什么问题。