Excel表格的图片快速重命名

1、要对指定单元格里边的图片进行重命名，主要是通过行、列的交叉点来比对图片的位置是否是需要重命名的图片，然后把单元里边的名称赋给图片。

2、在Excel表格的菜单栏上边点击【开发工具】、【Visual Basic】打开VBA编辑器。

3、在VBA编辑器的菜单栏上边点击【插入】、【模块】。

4、在“模块”的代码框里边输入以VBA下程序代码，然后按下【F5】键运行程序。

Sub PictureNameChange()

Dim shp, j

On Error Resume Next                                '忽略运行中可能出现的错误

Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")    '定义Sheet1工作表

For Each shp In mysheet1.Shapes                     '对工作表上面的图形执行一遍

 If shp.Left > mysheet1.Columns("D").Left And shp.Left < mysheet1.Columns("F").Left Then

  '如果图片在D列和F列之间，则

 For j = 2 To 1000                     '从第二行到1000行

  If mysheet1.Cells(j, 1) <> "" Then   '如果第一列对应的单元格不为空白，则

   If shp.Top > mysheet1.Cells(j, 1).Top And shp.Top < mysheet1.Cells(j + 1, 1).Top Then

    '如果图片的顶部位置位于指定的单元格，则

    shp.Name = mysheet1.Cells(j, 1)        '对图片进行重命名

    Exit For      '重命名后退出For循环

   End If

  End If

  Next

 End If

Next

End Sub

5、回到Excel表格界面，将会发现与它相关的图片已经被重命名。

6、如果是选择的自动插入图片，可以在以下经验引用的“With……End With”程序里边加入“.Name = mysheet1.Cells(i, 1)”，自动插入图片时也会自动重命名。