EXCEL 如何制作瀑布图,对于有些数据做图表非常适合用瀑布图，比如生活开支......
Excel表格的图片快速重命名
来源：互联网
2023-02-20 17:46:20 版权归原作者所有，如有侵权，请联系我们
在Excel表格上面插入图片后，其图片名会自动生成。有时要将这些图片名改成与单元格里边的名称一致（名称不重复，便于后面查阅），修改量较少时，可以手动修改；修改量较多时，还是使用VBA程序修改比较快捷。
工具/原料
- 计算机
- Windows 7
- Excel 2010
方法/步骤
要对指定单元格里边的图片进行重命名，主要是通过行、列的交叉点来比对图片的位置是否是需要重命名的图片，然后把单元里边的名称赋给图片。
在Excel表格的菜单栏上边点击【开发工具】、【Visual Basic】打开VBA编辑器。
在VBA编辑器的菜单栏上边点击【插入】、【模块】。
在“模块”的代码框里边输入以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
回到Excel表格界面，将会发现与它相关的图片已经被重命名。
如果是选择的自动插入图片，可以在以下经验引用的“With……End With”程序里边加入“.Name = mysheet1.Cells(i, 1)”，自动插入图片时也会自动重命名。
10Excel表格自动插入图片
注意事项
- 个人经验，仅供参考。
以上方法由办公区教程网编辑摘抄自百度经验可供大家参考！
上一篇：wps云文档的使用 下一篇：用EXCEL表格如何快速制作工资条
