按钮触发更新批注内容，现在只能手动触发

jerryexcelhome

1. Sub addimg()
   
2.   Dim 单元格
   
3.   On Error Resume Next
   
4.   For Each 单元格 In Selection
   
5.    单元格.AddComment
   
6.    单元格.Comment.Shape.Fill.UserPicture "f:\pic" & 单元格.Value & ".jpg"
   
7.    单元格.Comment.Shape.Height = 200
   
8.    单元格.Comment.Shape.Width = 400
   
9.   Next 单元格
   
10. End Sub
    
11. 
    

复制代码

上面是现在用的代码，每次更新图片后要手动供选择更新注释内容

能否实现用按钮触发

每次触发后自动更新 以指定单元格内容为名称的F盘pic文件夹下面的图片？

比如

我按一下后

A10至A20 和C10至C20和E10至E20 注释分别对应显示  f:\pic\a1内容.jpg  f:\pic\a2内容.jpg  f:\pic\a3内容.jpg   f:\pic\a4内容.jpg………………

vbee

先选择你的单元格区域，定义一个名称：批注单元格

1. Sub addimg()
   
2. Dim 单元格
   
3. On Error Resume Next
   
4. Application.Goto Reference:="批注单元格"
   
5. For Each 单元格 In Selection
   
6. 单元格.AddComment
   
7. 单元格.Comment.Shape.Fill.UserPicture "f:\pic" & 单元格.Value & ".jpg"
   
8. 单元格.Comment.Shape.Height = 200
   
9. 单元格.Comment.Shape.Width = 400
   
10. Next 单元格
    
11. End Sub
    

复制代码

jerryexcelhome

已上传文件

jerryexcelhome

vbee 发表于 2018-6-15 08:38
先选择你的单元格区域，定义一个名称：批注单元格

已上传文件