在Excel表格上面插入图片后，其图片名会自动生成。有时要将这些图片名改成与单元格氇筐塘瓠里边的名称一致（名称不重复，便于后面查阅），修改量较少时，可以手动修改；值檄钕眇修改量较多时，还是使用VBA程序修改比较快捷。
工具/原料
计算机
Windows7
Excel2010
方法/步骤
1、要对指定单元格里边的图片进行重命名，主要是通过行、列的交叉点来比对图片的位置是否是需要重命名的图片，然后把单元里边的名称赋给图片。
2、在Excel表格的菜单栏上边点击【开发工具】、【VisualBasic】打开VBA编辑器。
3、在VBA编辑器的菜单栏上边点击【插入】、【模块】。
4、在“模块”的代码框里边输入以VBA下程序代码，然后按下【F5】键运行程序。Sub绯摺驼予PictureNameChange()Dimshp,jOnErrorRe霜杼厮贿sumeNext'忽略运行中可能出现的错误Setmysheet1=ThisWorkbook.Worksheets("Sheet1")'定义Sheet1工作表ForEachshpInmysheet1.Shapes'对工作表上面的图形执行一遍Ifshp.Left>mysheet1.Columns("D").LeftAndshp.Left<mysheet1.Columns("F").LeftThen'如果图片在D列和F列之间，则Forj=2To1000'从第二行到1000行Ifmysheet1.Cells(j,1)<>""Then'如果第一列对应的单元格不为空白，则Ifshp.Top>mysheet1.Cells(j,1).TopAndshp.Top<mysheet1.Cells(j+1,1).TopThen'如果图片的顶部位置位于指定的单元格，则shp.Name=mysheet1.Cells(j,1)'对图片进行重命名ExitFor'重命名后退出For循环EndIfEndIfNextEndIfNextEndSub
5、回到Excel表格界面，将会发现与它相关的图片已经被重命名。
6、如果是选择的自动插入图片，可以在以下经撰颧幌汪验引用的“With……EndWith”程序里边加入“.Name=mysheet1.Cells(i,1)”，自动插入图片时也会自动重命名。
