在准考证里面插入头像

ly8421 · 发表于 2023-12-20 21:49

这么晚了，实在不好意思，还麻烦大家！请大家帮个忙，把相片文件夹里面考生对应的相片链接到相应相片框里面。每张A4上面设置4个准考证。谢谢！

问题.rar (139.75 KB, 下载次数: 26)

mykitami · 发表于 2023-12-20 22:25

发现你这个要一边嵌入一边打印才行吧？
看你的文件知道，你这个版本很低，高版本的可以直接把照片嵌进单元格里。

ly8421 · 发表于 2023-12-21 07:33

mykitami 发表于 2023-12-20 22:25
发现你这个要一边嵌入一边打印才行吧？
看你的文件知道，你这个版本很低，高版本的可以直接把照片嵌进单元 ...

我的是office2013版本

yellowhawk · 发表于 2023-12-21 08:49

这个建议使用制卡软件，导入EXCEL数据，图片编号，对应即可。

3190496160 · 发表于 2023-12-21 10:19

Sub charudayin()
Dim a%, b$, c$, abc$, i, s, m, hh, lh, f, shp
Dim rr
With Sheets("准考证打印")
rr = Array(4, 3, 4, 9, 21, 3, 21, 9)
a = .Cells(42, 2).Value
b = .Cells(42, 5).Value
For Each shp In .Shapes
      If shp.TopLeftCell.Row < 30 And shp.TopLeftCell.Row > 2 Then
         shp.Delete
      End If
Next shp
For i = a To Val(b) Step 4
      m = 0
      For s = i To i + 3
         If s <= Val(b) Then
            m = m + 2
            .[d17] = s
            hh = rr(m - 2) - 1
            lh = rr(m - 1) - 1
            f = Dir(ThisWorkbook.Path & "\相片\" & CStr(.Cells(hh, lh)) & ".jpg")
            If f <> "" Then
                  Cells(hh + 1, lh + 1).Resize(4, 2).Select
                  .Pictures.Insert(ThisWorkbook.Path & "\相片\" & f).Select
                  With Selection.ShapeRange
                  Selection.ShapeRange.LockAspectRatio = msoFalse
                  .Top = Cells(hh + 1, lh + 1).Resize(4, 2).Top + 1
                  .Left = Cells(hh + 1, lh + 1).Resize(4, 2).Left + 1
                  .Width = Cells(hh + 1, lh + 1).Resize(4, 2).Width
                  .Height = Cells(hh + 1, lh + 1).Resize(4, 2).Height
                  End With
            End If
         End If
      Next s
      .PrintOut
Next i
End With
MsgBox "打印结束", 64, "打印"
End Sub

3190496160 · 发表于 2023-12-21 10:19

问题.rar (136.53 KB, 下载次数: 24)

ly8421 · 发表于 2024-3-18 10:52

3190496160 发表于 2023-12-21 10:19

不能刷新头像

3190496160 · 发表于 2024-3-18 11:25

ly8421 发表于 2024-3-18 10:52
不能刷新头像

呵呵呵呵，你试过吗？
去年的帖子，现在才来回复，

3190496160 · 发表于 2024-3-18 11:26

		自动登录	找回密码
密码			免费注册

[求助] 在准考证里面插入头像