如何用相应的图像替换文本

时间:2012-11-02 13:09:16

标签: excel excel-2010

我有一份包含超过300条记录的Excel文档。

在每条记录的第一行中,有一个User Image变量。 此记录将始终为username.jpg或为空。

我有一个包含相应图像的文件夹,所有文件都以完全相同的方式命名。

有没有办法自动将第一行中的文字替换为相关图像?

1 个答案:

答案 0 :(得分:0)

如果您的用户图像变量位于A列中,则此代码会将图片插入到A列中,并将行的高度调整为图片的高度。您可能需要稍微调整一下代码。

Sub insertPic()

Dim pic As String
Dim url As String
Dim r As Integer
Dim he As Integer



url = "C:\User\Pictures\" ' This is the variable to the folder

For r = 1 To 300
pic = Sheets("Sheet1").Range("A" & r).Value ' This is your username file
pic = url & pic



With ActiveSheet.Pictures.Insert(pic) ' Insert picture into active sheet
    .Left = ActiveSheet.Range("A" & r).Left ' left and top align the left and top of the picture with the specified cell
    .Top = ActiveSheet.Range("A" & r).Top
    he = .Height ' get height of image


End With
Sheets("Sheet1").Range("A" & r).Select
    Selection.RowHeight = he ' match row height to picture height
Next r


End Sub