怎样在excel中批量插入图片并调整大小和单元格相符?

请教一下,现在需要做一个产品目录,B列是型号,C列是相对应的图片,因为有一千多个型号,要一张一张的插入图片并且调整图片大小的工作量实在太恐怖了,有没有什么办法能够尽量简化?我不太懂软件,如果牵扯到宏之累的麻烦高手指点的时候能够将操作流程尽量详细一点。

补充一点,假设5129是产品型号,这款产品有三个颜色,表格里B列就会有三个5129,但图库里图片的名称是5129蓝色,5129红色,5129白色,这样批量处理的时候会不会对应不上?是不是应该把产品型号改一下?

        要批量插入图片,而且图片大小要根据单元格大小的变化进行自动调整,使用VBA编码可以快速智能的做到:

        比如a列是姓名,b列插入照片,下面是我写的代码


Sub 图片()

For Each shps In Shapes

    If shps.Type <> 8 Then shps.Delete

Next


rw = Application.CountA([a:a])

For Each a In Range("a2:a" & rw)

    lujing = ThisWorkbook.Path & "\" & a & ".jpg"

    Set rg = Cells(a.Row, 2)

    Shapes.AddPicture lujing, True, True, rg.Left, rg.Top, rg.Width, rg.Height

Next a

End Sub



点击图片可以看到执行结果,b列被调整时,图片大小也随之发生变化。

温馨提示:内容为网友见解,仅供参考
第1个回答  2009-09-05
http://zhidao.baidu.com/question/98446751.html?si=2

你参考这个试试,不行的话,就直接hi回答这个问题的人,他会帮你搞定的
第2个回答  2009-09-05
VBA简单搞定啦 见我空间
第3个回答  2009-09-05
确实是个难题呀本回答被网友采纳
相似回答