如何批量在单元格内插入图片？ - Office中国论坛/Access中国论坛

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

作者: 菜菜鸟 时间: 2008-4-27 19:28
能不能不用VBA？

作者: 欢欢 时间: 2008-4-27 19:32
那你手工插入!!!!!!!!!!!![:31] [:50]

作者: 菜菜鸟 时间: 2008-4-27 19:43
一次性插入几十次，一张张去粘贴太费事了，而且又不想用VBA

作者: pureshadow 时间: 2008-4-28 16:25
技巧可以做到的,不过这貌似别的版的关题,不好在这里公布方法.

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)