vba,excel,身份证,照片

Posted 冷色008

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了vba,excel,身份证,照片相关的知识,希望对你有一定的参考价值。

Sub 插入图片()    调整单元格大小,以适应图片大小 功能 插入身份证照片打印 - 正面在单元格d6       反面单元格d10
 
   ActiveSheet.Pictures.Delete ‘清理过期照片
Range("d6").Select

   Dim aa
aa = ActiveSheet.Range("j1").Value 激活表的 J1的值 =照片(正)路径

    ActiveSheet.Pictures.Insert(aa).Select   
Dim sh As Shape
    For Each sh In ActiveSheet.Shapes
        sh.LockAspectRatio = False
        sh.Left = sh.TopLeftCell.Left
        sh.Top = sh.TopLeftCell.Top
        sh.Width = sh.TopLeftCell.Width
        sh.Height = sh.TopLeftCell.Height
    Next sh

Call cha

End Sub
Sub cha()
Range("d10").Select

   Dim aa
aa = ActiveSheet.Range("j2").Value 激活表的 J2的值=照片(反)路径
    ActiveSheet.Pictures.Insert(aa).Select        当前文件所在目录下以单元内容为名称的.jpg图片
Dim sh As Shape
    For Each sh In ActiveSheet.Shapes
        sh.LockAspectRatio = False
        sh.Left = sh.TopLeftCell.Left
        sh.Top = sh.TopLeftCell.Top
        sh.Width = sh.TopLeftCell.Width
        sh.Height = sh.TopLeftCell.Height
    Next sh
  
End Sub

功能 插入身份证照片打印 - 正面在单元格d6       反面单元格d10

 

以上是关于vba,excel,身份证,照片的主要内容,如果未能解决你的问题,请参考以下文章

Excel VBA批量处理寸照名字

Excel2013 vba窗体程序如何通过image控件将工作表中得图片(不是本地照片)

Excel VBA批量处理寸照名字(类模块加FSO版)

改进 Excel VBA 中的 SQL 查询

如何用EXCEL VBA批量提取JPG文件日期时间信息到表格中?

在EXCEL中VBA编程检验身份证号码有效性