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)”，自动插入图片时也会自动重命名。
