excel怎样批量在批注插入图片？

发布网友发布时间：2022-04-21 03:56

我来回答

共5个回答

热心网友时间：2022-06-17 20:52

Sub pztp()

On Error Resume Next

Dim c As Range, P$, i&, a$, b$, arr, w!

P = "F:\唐狮图片\唐狮图片\"

For Each c In Range([c2], Cells(Rows.Count, 3).End(3))

With c

.ClearComments

.AddComment

.Comment.Shape.Fill.UserPicture P & .Value & ".jpg"

a = get_file_dim(P & .Value & ".jpg")

For i = 1 To Len(a)

If Mid(a, i, 1) Like "[0-9x]" Then

b = b & Mid(a, i, 1)

End If

arr = Split(b, "x")

b = ""

w = 200 '设置图片宽度

.Comment.Shape.Width = w

.Comment.Shape.Height = Val(arr(1)) / Val(arr(0)) * w

End With

End Sub

Function get_file_dim(ByVal filepath As String)

arr = [{161,162,163,164,31}]

Dim brr(), sz, i As Byte

ReDim brr(1 To UBound(arr))

Set ObiFolder = CreateObject("shell.Application").Namespace(Left(filepath, InStrRev(filepath, "\")))

For i = 1 To UBound(arr)

sz = ObiFolder.getdetailsof(ObiFolder.Items.Item(Right(filepath, Len(filepath) - InStrRev(filepath, "\"))), arr(i))

If sz Like "*[0-9] x [0-9]*" Then

get_file_dim = sz

Exit For

End If

Next i

End Function

追答

只有鼠标悬停在有批注的单元格时才能显示批注，要在别的列悬停时显示，需在别的列插入批注。可将With c改成With c(1,2) ,并将 .Value & ".jpg"改成c.Value & ".jpg"

改动粗体数字2，即可更改插入的列

热心网友时间：2022-06-17 20:52

Excel在批量插入图片插入这个备注的话，可以直接选择有一个插入这个选项，点击，然后选择你的路径，把你所有的图片放进去就可以了。

热心网友时间：2022-06-17 20:53

批量的话，也不是不可以，
就是利用文件名，比如用数字，因为表是可以自动添加出来的，所以就可以了，

如果在公司给老板做，那么就一个一个的加吧，也不累，否则几分钟弄完了，做啥，玩手机？那……

热心网友时间：2022-06-17 20:53

Sub Macro1()
Dim 单元格
On Error Resume Next
For Each 单元格 In Selection
单元格.AddComment
单元格.Comment.Shape.Fill.UserPicture "D:\图片汇总\" & 单元格.Value & ".jpg"
单元格.Comment.Shape.Height = 200
单元格.Comment.Shape.Width = 200
Next 单元格

End Sub
图片名称要和单元格名称一致，选中要加入图片的名称单元格，然后运行程序，路径自己定义追问

大神你看看我是有哪里不对吗?显示不了图片，我比较小白





热心网友时间：2022-06-17 20:54

一般都用Excel插件（方方格子）来批量添加图片批注。