Question

求VBA解：按顺序提取excel内截图的照片名称

excel内照片是截图到表格内的照片名称没有规律，需把表格内的照片名称按从上到下的顺序提取照片名子，提取结果见黄色单元格。或用公式也行哈。解决了可以再额外加分谢谢。

Answer 1

代码：

Sub xxx()
 For Each pic In ActiveSheet.Pictures
  pic.TopLeftCell.Offset(0, 1) = pic.Name
 Next
End Sub

追问

您好，刚试了好用，但第1张图片不显示图片名子是怎么回事？？

追答

不清楚 看文件才知道，要看发我 1052974911@qq.com
可能第一个 不是 picture ,是其他的 组合图形

追问

给您发文件了，谢谢指点，就是有些图片没有显示出图片名子来。

追答

有些不是 VBA 意义上的Picture

Sub xxx()
Dim pic As Shape
 For Each pic In ActiveSheet.Shapes
  pic.TopLeftCell.Offset(0, 1) = pic.Name
 Next
End Sub