打印人员信息时，Excel如何自动显示并将照片一起打印。

zzst2006

1.当打印人员信息时，Excel如何自动显示并将照片一起打印。
2.每个人的照片放各自单位的文件夹中，照片的名称与个人的序号一致

那么的帅

写段VBA代码，自动读取照片。

zzst2006

那么的帅 发表于 2011-11-30 21:01
写段VBA代码，自动读取照片。

你说的真好,你看看这段代码该如何修改,才能使照片自动填满J3单元格
Sub 打印()
For Each s In ActiveSheet.Shapes
   If s.Name Like "Picture*" Then s.Delete
Next
For i = [m4] To [m5] Step 1
[m2] = i
er = Sheets("原始表").[a65536].End(xlUp).Row
单位 = Application.VLookup(i, Sheets("原始表").Range("$A$2:$O$" & er), 2)

    ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & 单位 & "照片\" & [m2] & ".JPG").Select
   
    Selection.Top = [j3].Top + 1
      Selection.Left = [j3].Left + 1
         Selection.Height = [j3:j6].Height - 1
      
    [m2].Select
Me.PrintOut
Next
End Sub

那么的帅

zzst2006 发表于 2011-12-1 21:18
你说的真好,你看看这段代码该如何修改,才能使照片自动填满J3单元格
Sub 打印()
For Each s In ActiveSh ...

提供EXCEL数据附件和图片附件，便于测试