按顺序提取excel内照片名称
发布网友
发布时间：2022-04-26 08:23
共2个回答
热心网友
时间：2022-06-25 18:58
代码:
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
热心网友
时间：2022-06-25 18:59
//实现代码如下：
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
