自动填充照片.doc

1、居民身份证制证用数字相片样式： 2、照片规格:358像素（宽）×441像素（高），分辨率350dpi。 3、颜色模式:24位RGB真彩色。 4、要求: 公民本人的近期彩色相片图像,图像背景为纯白色，不着制式服装或白色上衣,常戴眼镜的居民应配戴眼镜。要求人像清晰，层次丰富，神态自然，无明显畸变。 5、头像大小及位置：为确保相片质量和人相的尺寸、角度、姿态、色彩等的统一，公安部制定并公布了居民身份证制证用数字相片技术标准(GA461-2004)。所用相片必须是近期正面免冠彩色头像，头部占照片尺寸的2／3，白色背景无边框，人像清晰，层次丰富，神态自然，无明显畸变，照片尺寸为32mm×26mm。 然后将每个工作表中的B2单元格调整一下行高与列宽，以便放入图片。 也可以用代码自动调整成一样的行高与列宽，见下面代码,设置行高为150,列宽为36： Sub 自动调整行高与列宽()Dim x As Integer 行高Dim y As Integer 列宽行高以磅为单位，1个单位为0.3528mmx = 150列宽的大小与字体及分辨率有关，1个单位列宽=2.2733mmy = 36For i = 1 To Sheets.Count??? Sheets(i).[b2].RowHeight = x??? Sheets(i).[b2].ColumnWidth = yNextEnd Sub 下面就是自动插入图片的代码了： Sub 批量插入图片()Dim wj As StringDim rng As RangeFor i = 1 To Sheets.Count??? na = Sheets(i).Name 得到工作表名字，并以此名查找图片??? wj = d:\图片 \ na .jpg 图片文件存储的路径与格式（.jpg）??? If Dir(wj) Then??????? Sheets(i).Select??????? [b2].Select 图片插入到B2单元格??????? Sheets(i).Pictures.Insert(wj).Select??????? Set rng = Sheets(i).[b2] 根据B2单元格的大小调整图片??????? With Selection??????????? .Top = rng.Top + 1??????????? .Left = rng.Left + 1??????????? .Width = rng.Width - 1??????????? .Height = rng.Height - 1??????? End With??? End IfNextMsgBox 图片插入完毕End Sub ??????? 这个代码也很容易理解，大致意思是用各个工作表的标签名在 D:\图片 文件夹中查找，找到相同名字的图片后就插入到该工作表的B2单元格中，并以B2单元格的大小来调整图片的尺寸。 运行代码后就自动将图片插入到各工作表中，效果如下图所示：