批注自动获取图片

hong471

我的需求是这样的，不知道能做到吗？当工作表里面有批注的时候，自动显示当前单元格相匹配的图片。图片是保存在电脑的另外一个文件夹内，并且按照相同的大小显示，比如10*10或是20*20
如果当前单元格没有批注，那肯定就不显示图片，只有我手动添加批注，就会自动显示与之匹配的图片。

PS：因为表格里面会添加很多图片，所以可能表格内存会很大，各位大佬有什么好的方法，既可以让表格内存小，又可以看到在表格里面看到图片呢！我所能想到的就是图片跟工作簿分开。


我现在的表格已经快200M了，每次打开都很卡，所以来论坛求助

zhanglei1371

可以把图片批量压缩下，1张图片10k以内

hong471

zhanglei1371 发表于 2022-2-25 13:31
可以把图片批量压缩下，1张图片10k以内

如果压缩到10k 那画质真的是太差了，而且零配件肯定要大 清晰才能看得到

楚雪飞扬

Public Sub 技巧5_029()
    Dim myFile As String, myFileName As String
    Dim myRange As Range
    Set myRange = ThisWorkbook.Worksheets("Sheet1").Range("B1")      '指定放置图表的单元格
    myFileName = "myChart.jpg"    '指定图表图像文件名
    myFile = ThisWorkbook.Path & "\" & myFileName    '指定代完整目录的图表图像文件名
    On Error Resume Next
    myRange.Comment.Delete    '删除原有的批注
    On Error GoTo 0
    With myRange.AddComment.Shape
        .Height = 300
        .Width = 500
        .Fill.UserPicture myFile
    End With
    myRange.Comment.Visible = False
    Set myRange = Nothing
End Sub
可以试下以上代码