1、要对指定单元格里边的图片进行重命名，主要是通过行、列的交叉点来比对图片的位置是否是需要重命名的图片，然后把单元里边的名称赋给图片。
2、在Excel表格的菜单栏上边点击【开发工具】、【Visual Basic】打开VBA编辑器。
3、在VBA编辑器的菜单栏上边点击【插入】、【模块】。
4、在“模块”的代码框里边输入以VBA下程序代码，然后按下【F5】键运行程序。Sub PictureNameChange()Dim shp, jOn 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 NextEnd IfNextEnd Sub
5、回到Excel表格界面，将会发现与它相关的图片已经被重命名。
6、如果是选择的自动插入图片，可以在以下经撰颧幌汪验引用的“With……End With”程序里边加入“.Name = mysheet1.Cells(i, 1)”，自动插入图片时也会自动重命名。
