用VBA函数按顺序提取excel内照片名称

lz79206966

excel内照片是截图到表格内的，需把表格内的照片按从上到下的顺序提取照片名称，提取结果见黄色单元格。
提取excel照片名称.rar (310.21 KB, 下载次数: 36)

2018-1-16 09:01 上传

点击文件名下载附件

温馨豆

1. Sub 提取照片名称()
   
2.     Dim r, i
   
3.     For r = 2 To 5
   
4.         i = i & " ，" & Cells(r, 2)
   
5.     Next
   
6.     MsgBox Trim(Mid(i, 3, 99))
   
7. End Sub
   

复制代码

lz79206966

温馨豆 发表于 2018-1-16 09:17

谢谢大神指点，请问我的图片有上千个，怎么只能提取前4个图片啊？？麻烦修改一下公式谢谢。

温馨豆

lz79206966 发表于 2018-1-16 09:52
谢谢大神指点，请问我的图片有上千个，怎么只能提取前4个图片啊？？麻烦修改一下公式谢谢。

问题是，你想提取了放在哪里

准提部林

Sub TEST()
Dim Pic As Picture
For Each Pic In ActiveSheet.Pictures
　　Pic.TopLeftCell(1, 2) = Pic.Name
Next
End Sub