admin管理员组

文章数量:1122847

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 ShapeFor Each sh In ActiveSheet.Shapessh.LockAspectRatio = Falsesh.Left = sh.TopLeftCell.Leftsh.Top = sh.TopLeftCell.Topsh.Width = sh.TopLeftCell.Widthsh.Height = sh.TopLeftCell.HeightNext shCall chaEnd Sub
Sub cha()
Range("d10").SelectDim aa
aa = ActiveSheet.Range("j2").Value '激活表的 J2的值=照片（反）路径ActiveSheet.Pictures.Insert(aa).Select        '当前文件所在目录下以单元内容为名称的.jpg图片
Dim sh As ShapeFor Each sh In ActiveSheet.Shapessh.LockAspectRatio = Falsesh.Left = sh.TopLeftCell.Leftsh.Top = sh.TopLeftCell.Topsh.Width = sh.TopLeftCell.Widthsh.Height = sh.TopLeftCell.HeightNext shEnd Sub

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

 

转载于:.html

本文标签： VBAEXCEL身份证照片

版权声明：本文标题：vba,excel,身份证,照片 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.betaflare.com/biancheng/1701522950a426080.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。