Question

按顺序提取excel内照片名称

excel内照片是截图到表格内的，需把表格内的照片按从上到下的顺序提取照片名称，提取结果见黄色单元格。

Answer 1

代码:

Sub xxx()
Dim pic As Shape
 for each sht in thisworkbook.sheets
   For Each pic In sht.Shapes
    pic.TopLeftCell.Offset(0, 1) = pic.Name
   Next
 next
End Sub

Answer 2

//实现代码如下：
Public Sub PicName()
Dim Pth As String
Dim Pic As String
ActiveSheet.Range("A1").Select  '选中激活窗口的A1
Pth = "C:\Users\Public\Pictures\Sample Pictures"
'路径，系统自带图片的地方
Pic = Dir(Pth & "\*.jpg")   '查看JPG格式的图片名称
Do While Pic <> ""
        Selection = Pic         '赋值
        Pic = Dir               
        Selection.Offset(1, 0).Select
Loop
End Sub

追问

您好，我是想把excel中的图片提取图片名子，不是文件夹内的图片啊，我刚用您给的VBA代码，执行后结果是取的文件夹内图片名子，麻烦修改一下，谢谢，见下图

追答

你写在单元格的名字，本身就和图片没关系。只是做了图片的标注而以。
这还需要用什么代码，直接选中，复制，不就好了。

追问

知道图片的名子我是有其它用途的

追答

那你自己整吧，取单元格值，要匹配图片文件，这怎么可能。图片是Layer层，扯谈。

追问

其他神人已经用VBA解决了，只是您仍需修炼自己的VBA知识

追答

那你找别人啊，还和我墨迹？
你能，你自己来喽

追问

不管怎样还是要感谢您，谢谢尽心解答和耐心回复