EXCEL,批量导入图片

pixie929

需要在EXCEL里根据产品代码插入相应的图片。。有很多很多很多很多很多很多。。。
有没有办法让EXCEL根据产品代码自己导入图片到相应的CELL里？

在网上找到个插件。。可惜是中文的。。公司电脑英文的。。不能用。。。

然后看见一堆超长的命令。。。COPY到CELL里。。。没反应。。。

求高人指点！~~~~

pixie929

补充。。。分分伺候高人。。。。

napolian

you want to insert a pic into a cell??

大饼

如果知道哪个照片要放到哪个cell，可以用Marcro搞定。举个例子
Range("A1").Select
ActiveSheet.Pictures.Insert("D:\Photos\DSCFxxxx.JPG").Select
没有确定的对应关系，就麻烦了

eurekana

不太清楚你的具体要求是什么样的。比如产品代码怎么和图片（名称）联系起来；比如怎么读到所有产品代码；
图片的插入格式（比如一行插入几张？每张大小？单元格和产品的对应关系？）
写了一个最简单的例子：在名为"Pic"的Sheet的“A1”单元格插入一个Example.jpg的图片，大小和"A1"单元格一致。运行这段程序时Example.jpg和Excel文件要在同一个目录下。不知道是否对你有用。
你可以读取所有产品代码，根据对应关系得到每个代码的图片名称（路径），然后插入到你希望插入的单元格中。

' define the sheet
Dim sheetPic As Worksheet
Set sheetPic = Worksheets("Pic")

' define the picture file path
dim strFile as String
strFile = ActiveWorkbook.Path & "\" & "Example.jpg"

'insert picture
Dim oPic As Object  
Set oPic = sheetPic.Pictures.Insert(strFile)
With sheetPic.Cells(1, 1)
     oPic.Top = .Top
     oPic.Left = .Left
     oPic.Width = .ColumnWidth
     oPic.Height = .RowHeight
End With
Set oPic = Nothing

pixie929

原帖由 eurekana 于 2010-3-30 17:24 发表
不太清楚你的具体要求是什么样的。比如产品代码怎么和图片（名称）联系起来；比如怎么读到所有产品代码；
图片的插入格式（比如一行插入几张？每张大小？单元格和产品的对应关系？）
写了一个最简单的例子：在名为 ...

请问这段命令我是直接加一个‘=’然后就PASTE在CELL里嘛？汗。。 这个我不太懂。。。。
我的情况是。。设。。
A1 到A100。。全部是PRODUCT CODE。
B1 到B100。。需要相应的图片
所有图片都以PRODUCT CODE保存在同一个文件夹里。。

要如何让B1 到B100一次性输入图片到相应的CELL里。。如果可能是否可以自动修改图片到要求的尺寸？

不知道我表达的清楚不。。

pixie929

今天到公司狗了一下LS两位高人的提议。。汗自己一下。。原来要会VBA啊。。。。 。。先看下教程怎么弄VBA。。。

pixie929

原帖由 大饼 于 2010-3-30 17:22 发表
如果知道哪个照片要放到哪个cell，可以用Marcro搞定。举个例子
Range("A1").Select
ActiveSheet.Pictures.Insert("D:\Photos\DSCFxxxx.JPG").Select
没有确定的对应关系，就麻烦了

不懂。 。。没找到MARCRO里你说的东西

eurekana

根据您的描述，做了个小sample，不过我的用户组发不上来，就把程序拷贝给您吧。随便搞个button来调用这段程序。同时要有一个叫“Pics”的Sheet作为结果的sheet.这个sheet的A列先写好所有的Code,然后执行这段程序，B列就插入所有的图片，图片名字是，例如，A1为“Sample”,则B1插入Sample.jpg;
图片大小和B列单元格大小一致

Sub InertPic_Click()
    ' define the sheet
    Dim sheetPic As Worksheet
    Set sheetPic = Worksheets("Pics")
   
    ' define the picture file path
    Dim strFile As String
    Dim nCnt As Integer
    Dim i As Integer
   
    sheetPic.Pictures.Delete
   
    nCnt = sheetPic.UsedRange.Rows.Count
    For i = 1 To nCnt
        If sheetPic.Cells(i, 1) = vbNullString Then
            Exit For
        End If
        'insert picture
        strFile = ActiveWorkbook.Path & "\" & sheetPic.Cells(i, 1) & ".jpg"
        Dim oPic As Picture
        Set oPic = sheetPic.Pictures.Insert(strFile)
        oPic.ShapeRange.LockAspectRatio = msoFalse
        With sheetPic.Cells(i, 2)
            oPic.Top = .Top
            oPic.Left = .Left
            oPic.Width = .Width
            oPic.Height = .Height
        End With
        Set oPic = Nothing
    Next i
   
    sheetPic.Activate
   
End Sub