不懂VBA也编程

平東

果断收藏中{:soso_e113:}

liuym

好教材，学习了。

山菊花

在工作表中插入图片，会自动生成一个以序号为特征的名字。

如果觉得它的个性化不够强，可用VBA给图片重新命名。
按Alt+F11，在打开的VBE编辑器中，将下面的代码粘贴到光标处：

1. Sub 批量改名()
   
2.     Dim cName$, sp As Shape
   
3.     For Each sp In ActiveSheet.Shapes
   
4.         cName = Application.InputBox("当前选定 " & sp.TopLeftCell.Address(0, 0) _
   
5.             & " 位置的图片。" & Chr(13) & Chr(13) & "请输入图片名称：", "名称", sp.Name, Type:=2)
   
6.         If cName = "False" Then Exit Sub
   
7.         If cName <> "" Then sp.Name = cName
   
8.     Next
   
9. End Sub

复制代码

返回工作表。
使用方法：
1、选择要改名的图片；
2、按Alt+F8打开宏对话框；
3、选择“改名”，点击“执行”。

然后，按提示输入新的名字即可。

如果工作表中插入的图片较多，这样操作显得麻烦，可将代码改为：

1. Sub 批量改名()
   
2.     Dim cName$, sp As Shape
   
3.     For Each sp In ActiveSheet.Shapes
   
4.         cName = Application.InputBox("当前选定 " & sp.TopLeftCell.Address(0, 0) _
   
5.             & " 位置的图片。" & Chr(13) & Chr(13) & "请输入图片名称：", "名称", sp.Name, Type:=2)
   
6.         If cName = "False" Then Exit Sub
   
7.         If cName <> "" Then sp.Name = cName
   
8.     Next
   
9. End Sub

复制代码

同样，返回工作表后，按Alt+F8打开宏对话框执行“批量改名”。

Bettyexcel

山版主多谢指导，将认真学习了，谢谢！

bbmifox000

宝典啊~谢谢！

pochih23

支持~~~~~~~~~~~~~~~~

qwbz19

认真学习，辛苦了！

zzm1223

切合实际，精彩不断。

chs520

非常需要这种的方法

非洲大叔

山菊花 发表于 2008-11-18 12:52
打印准考证、成绩报告单、商品标签、入场券等，常常会使用Word的邮件合并工具。在Excel中批量打印的功能也 ...

还是木有看明白 愁死我了