如何批量在单元格内插入图片？

菜菜鸟

求助：如何在表格中批量插入相同的图片（隔行插入）？

欢欢

Sub 在隔行插入图片大小调整为所在单元大小()
k = 1
For h = 1 To 10 Step 2
Range("A" & h).Select
ActiveSheet.Pictures.Insert("D:\My Documents\欢乐小爪.jpg").Select
Selection.Name = "图片" & k
ActiveSheet.Shapes("图片" & k).Top = ActiveSheet.Range("a" & h).Top
ActiveSheet.Shapes("图片" & k).Left = ActiveSheet.Range("a" & h).Left
ActiveSheet.Shapes("图片" & k).Height = ActiveSheet.Range("a" & h).Height
k = k + 1
Next
End Sub

菜菜鸟

能不能不用VBA？

欢欢

那你手工插入!!!!!!!!!!!![:31] [:50]

菜菜鸟

一次性插入几十次，一张张去粘贴太费事了，而且又不想用VBA

pureshadow

技巧可以做到的,不过这貌似别的版的关题,不好在这里公布方法.