Question

在 表格中批注插入图片怎么插入,代码怎么写,一批货号,要在看货号的时候也顺便也能看到图片?高分悬赏

在 表格中批注插入图片怎么插入,代码怎么写，一批货号，要在看货号的时候也顺便也能看到图片？高分悬赏

Answer 1

举例 : 代码如下：

Sub pztp()
Dim p
Dim i, w, h As Long
For i = 1 To 3
    If Not Range("A" & i).Comment Is Nothing Then Range("A" & i).ClearComments
    Set p = ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & Range("B" & i))
    h = p.ShapeRange.Height
    w = p.ShapeRange.Width
    p.Delete
    With Range("A" & i).AddComment.Shape
        .Width = w
        .Height = h
        .Fill.UserPicture (ThisWorkbook.Path & "\" & Range("B" & i))
    End With
Next
End Sub

追问

亲，你这代码，。。。一看就不行啊。。。什么地址栏的地址也没。。

追答

一看你就不懂VBA ,还瞎评论,  有单元格的 VBA 都是录的，就是 菜鸟才用的

如下 Gif