End If
Set d = CreateObject("scripting.dictionary")
For Each a In Sheets("毕业生登记表").Pictures
a.Delete
Next
On Error Resume Next '忽略错误继续执行VBA代码,避免出现错误消息
fs1 = ThisWorkbook.Path & "\照片\" & CStr(Sheets("毕业生登记表").[b3]) & ".jpg"
If d.ExistsFile(fs1) = True Then
Range("G3:H6").Select
ActiveSheet.Pictures.Insert(fs1).Select
With Selection.ShapeRange
Selection.ShapeRange.LockAspectRatio = msoFalse
.Top = Range("G3:H6").Top + 1
.Left = Range("G3:H6").Left + 1
.Width = Range("G3:H6").Width
.Height = Range("G3:H6").Height
End With
End If
[j1].Select
Application.ScreenUpdating = True
End Sub
给“打印登记表”按钮控件指定宏 ， 宏代码如下：
Sub 打印登记表()
　Sheets("毕业生登记表").PrintOut From:=1, To:=1, Copies:=1
　[j1] = [j1] + 1
End Sub
最后 ， 还要注意设置打印区域 ， 并把文件另存为启用宏的工作簿 ， 就大功告成了！
最后的最后 ， 使用过程一定要启用EXCEL的宏功能 ， 并且你只需要第一步点生成照片 ， 第二步点打印登记表 。就可以打印出高大上的毕业生登记表了 。

• 复旦大学毕业生被举报作弊起诉母校 律师质疑复旦
• 杭州调整大学毕业生落户政策 博士生可先落户后就业
• 杭州调整大学毕业生落户政策 博士研究生可享“先落户、后就业”
• 《野马分鬃》周游饰毕业生释放野性引期待
• 这些专业的毕业生，一毕业月薪轻松上万元
• 紫燕子公寓:为初入职场的毕业生做好后勤工作
• 海南要求小学毕业生今年8月底前全部学会游泳
• 小学毕业生8月底前全部学会游泳 海南提出最新要求
• 美团今年拟招近万名2022届毕业生 分布于全国300多个城市
• 走出校园终点站，走入社会始发站，德邦快递为毕业生送“惊喜”！