做一个胸卡的工作表如何调用文件夹中的照片

zhaolanhe

做一外胸卡的工作表如何调用文件夹中的照片，姓名和卡号已能正确显示，求助各位帮助解决调用照片问题。 胸卡制作示例.zip (177.2 KB, 下载次数: 163)

2013-7-7 09:47 上传

点击文件名下载附件

dajiahaoxinku12

建议使用邮件合并，论坛中有案例，有完整的视频            

zhaolanhe

谢谢，邮件合并使用不太方便，要用到两个软件，本示例只要解决照片问题就可以了，谢谢你的关心。

ljx63426

给个代码参考一下，你可修改即用。
Sub insertPic()
    Dim i As Integer
    Dim FilPath As String
    Dim rng As Range
    Dim s As String
    With Sheet1
        For i = 1 To .Range("a65536").End(xlUp).Row
            FilPath = ThisWorkbook.Path & "\相片\" & .Cells(i, 1).Text & ".jpg.*"
            If Dir(FilPath) <> "" Then
                .Pictures.Insert(ThisWorkbook.Path & "\相片\" & Dir(FilPath)).Select
                Set rng = .Cells(i, 4)
                With Selection
                    .Top = rng.Top + 1
                    .Left = rng.Left + 1
                    .Width = rng.Width - 1
                    .Height = rng.Height - 1
                End With
            End If
        Next
        .Cells(1, 1).Select
    End With
    If s <> "" Then
        MsgBox s & Chr(10) & "没有照片!"
    End If
End Sub

KrystalSteal

1. ActiveSheet.Pictures.Insert("D:\照片\王三.jpg").Select

复制代码

zhaolanhe

ljx63426 发表于 2013-7-7 10:13
给个代码参考一下，你可修改即用。
Sub insertPic()
    Dim i As Integer

谢谢你的关注，我不会用，请你给改一下。我试了一下不能用

Kelidai

将图片，换成图像控件。

Private Sub Worksheet_Change(ByVal Target As Range)
...
Image1.Picture = LoadPicture("D:\Download\胸卡制作示例\照片\" & Range("B2").Value & ".jpg")
...
End Sub

xbl7966

帮你做了一个，看看是不是你需要的！

zhaolanhe

Kelidai 发表于 2013-7-7 10:40
将图片，换成图像控件。

Private Sub Worksheet_Change(ByVal Target As Range)

谢谢你了，正是我需要的！！！

zhaolanhe

xbl7966 发表于 2013-7-7 11:03
帮你做了一个，看看是不是你需要的！

谢谢你了，做的不错，和我想想中的一样