excel中打印图片帮忙修改下，不会做

zhshdaan · 发表于 2018-9-13 08:17

本帖最后由 zhshdaan 于 2018-9-13 10:42 编辑

照片和数据源在同一表格下，放在桌面，点击打印预览时，提示图片中内容，可能是路径不对，自己不懂，求大神指点下，照片的命名就是学生的身份证号

zhshdaan · 发表于 2018-9-13 08:18

最后大神能说明下每个代码的含义，想学习下

少少飞翔 · 发表于 2018-9-13 09:17

本帖最后由少少飞翔于 2018-9-13 16:46 编辑

我错了
打印的代码没问题
预览代码ActiveSheet.Pictures.Insert(ThisWorkbook.Path & ":\" & Range("$F$2") & ".JPG").Select 标红的:去掉，2改成7这个表格课正常使用的要求是
数据源的所有学生的照片必须要全，意思就是比如要打印或者预览的序号1到10的学生信息，这个10个学生的照片必要要有，不然就会出错

zhshdaan · 发表于 2018-9-13 14:33

少少飞翔发表于 2018-9-13 09:17
打印代码：ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & Range("$F$7d") & ".JPG").Select 标 ...

代码没有你说的这个，我下载你发过来的这个还是不行

xyxcc177 · 发表于 2018-9-13 16:35

http://club.excelhome.net/forum. ... ead&tid=1430120

少少飞翔 · 发表于 2018-9-13 16:38

Private Sub CommandButton1_Click() 批量打印VBA名字，不用在意
For i = Range("I3") To Range("I4")       设置变量I的值在从单元格I3的值递增到I4的值，增量默认为1
Range("I2") = i                               设置单元格I2的值为I3的初始值
Range("G8:G13" & i).Select             选择G8:G13单元格区域
ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & Range("$F$7") & ".JPG").Select 在G8:G13单元格区域插入图片，该图片的路径为ThisWorkbook.Path & "\" & Range("$F$7") & ".JPG" 图片名字为F7单元格的值，后缀名为JPG
Selection.ShapeRange.LockAspectRatio = msoFalse 选择的图片取消锁定纵横比
Selection.ShapeRange.Height = 84.75                      选择的图片高设置为84.75
Selection.ShapeRange.Width = 77.25                      选择的图片宽设置为77.25
Selection.ShapeRange.Rotation = 0#                      角度旋转为0度
Range("A1", "G51").Select                                        选择A1:G51区域
ActiveSheet.PageSetup.PrintArea = Selection.Address '设置打印区域为所选区域，保证只打印采集表
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True '开始打印
Next i                                                                      开始下一个I值，例如刚才I=1，则现在I=2，循环递增到I4的值则停止
End Sub

少少飞翔 · 发表于 2018-9-13 17:23

zhshdaan 发表于 2018-9-13 14:33
代码没有你说的这个，我下载你发过来的这个还是不行

我错了
打印的代码没问题
预览代码ActiveSheet.Pictures.Insert(ThisWorkbook.Path & ":\" & Range("$F$2") & ".JPG").Select 标红的:去掉，2改成7这个表格课正常使用的要求是
数据源的所有学生的照片必须要全，意思就是比如要打印或者预览的序号1到10的学生信息，这个10个学生的照片必要要有，不然就会出错

zhshdaan · 发表于 2018-9-14 07:01

本帖最后由 zhshdaan 于 2018-9-14 07:04 编辑

少少飞翔发表于 2018-9-13 09:17
我错了
打印的代码没问题
预览代码ActiveSheet.Pictures.Insert(ThisWorkbook.Path & ":\" & Range("$F$2 ...

大神能不能帮忙修改下，现在急需，改成如果有错提醒也行，因为身份证命名，也可能命错

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

[求助] excel中打印图片帮忙修改下，不会做