在excel的d2,d10,d18……d34单元格批量的分别插入图片

显示全部楼层 · 2010-5-20 09:07:20

我要做一个学生卡片档案。如d2贴张三的照片,d10贴李四照片d18贴王五的照片等等共50张。一张一张的贴，太不容易了。请高手编写一段vb程序，（设我的照片文件夹在桌面档案）代码要全。因为并不懂vb.
先谢谢了
要贴照片在D列，从D2开始，每8行要插入一张照片，直至50张照片插完，就是一个等差数列。想要一个能在excel中运行的宏代码。
非常感谢您的劳动。但只能正确插入一张。似乎插入没有在D列移动，而是在第2行平动，我试了5张，只有第一张正确插入，最后落点在AP2单元格。另外名子如果在B列或者I列呢？参数是哪一个，怎么修改？还请不吝教诲。本人十分感谢！

千问 · 2010-5-20 09:07:20

经测试如下代码可执行：Sub Macro()'假设A列分别为学生的姓名，同时照片文件存放在d:\pic\文件夹下，且照片按学生的名字进行命名，照片的类型为JPGDim strName As StringFor i = 2 To 2 + 8 * 49 Step 8strName = Cells(i, 1).ValueCells(2, i).SelectActiveSheet.Pictures.Insert("d:\pic\" + strName + ".jpg").SelectSelection.ShapeRange.Top = Cells(i, 4).TopSelection.ShapeR