Question

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

excel内照片是截图到表格内的照片名称没有规律，需把表格内的照片名称按从上到下的顺序提取照片名子，提取结果见黄色单元格，需要把工作薄下的所有工作表一次性提取出照片名称哈。

Answer 1

以下代码能满足要求，其他细节问题（比如只提取A列图片等）可设条件达到：

Sub 提取照片名称()
Dim Ra As Range, Sp As Shape
For Each Sp In ActiveSheet.Shapes
   Sp.TopLeftCell.Offset(, 1) = Sp.Name
Next
End Sub

追问

您好，你的公式是可以提取一个工作表图片名子的且好用，如果要提取所有工作表图片名子能不能上次性处理完？工作表挺多的有9个工作表

追答

Sub 提取各表图片名称()
Dim Ra As Range, Sp As Shape, Sh As Worksheet
For Each Sh In Sheets
   For Each Sp In Sh.Shapes
      Sp.TopLeftCell.Offset(, 1) = Sp.Name
   Next
Next
End Sub