Excel 怎样利用VBA批量修改图片名称

Answer 1

'更换图片名称
Private Sub SetPicName()
Dim Pic As Object

Set Pic = ActiveSheet.Shapes("图片 6")
Pic.Name = "图片 2"
Set Pic = Nothing
End Sub