批量打印厂牌求助

LangQueS

cycssky 发表于 2011-8-18 09:11
哥，我比较痴，你还是直接告诉我吧。

建议做个小的问题附件上传吧。

cycssky

改了一下附件，让各位高手更方便，下载后把所有的文件解压到同一个文件夹即可。谢谢。

cycssky

LangQueS 发表于 2011-8-18 10:05
建议做个小的问题附件上传吧。

超级版主，希望就在你身上啊，你务必帮小弟搞定哇。

LangQueS

cycssky.rar (195.79 KB, 下载次数: 83)

2011-8-18 10:25 上传

点击文件名下载附件

LangQueS

先高级筛选……

cycssky

楼上，我开始怀疑我的表达能力了。

cycssky

我这样问吧：

原稿里面的代码如下：

Sub 刷新4张照片()
On Error Resume Next     '忽略错误继续执行VBA代码,避免出现错误消息

AA1 = Range("D5")
    ActiveSheet.Shapes("Rectangle 127").Select
    Selection.ShapeRange.Fill.UserPicture AA1
   
AA2 = Range("K5")
    ActiveSheet.Shapes("Rectangle 128").Select
    Selection.ShapeRange.Fill.UserPicture AA2
   
AA3 = Range("D15")
    ActiveSheet.Shapes("Rectangle 129").Select
    Selection.ShapeRange.Fill.UserPicture AA3
   
AA4 = Range("Y15")
    ActiveSheet.Shapes("Rectangle 130").Select
    Selection.ShapeRange.Fill.UserPicture AA4
   
    Range("AL5").Select
End Sub

这个代码只能打印4张，我要求做到打印10张，于是我改成：


Sub 刷新10张照片()
On Error Resume Next     '忽略错误继续执行VBA代码,避免出现错误消息

AA1 = Range("D5")
    ActiveSheet.Shapes("Rectangle 127").Select
    Selection.ShapeRange.Fill.UserPicture AA1
   
AA2 = Range("K5")
    ActiveSheet.Shapes("Rectangle 128").Select
    Selection.ShapeRange.Fill.UserPicture AA2
   
AA3 = Range("R5")
    ActiveSheet.Shapes("Rectangle 129").Select
    Selection.ShapeRange.Fill.UserPicture AA3
   
AA4 = Range("Y5")
    ActiveSheet.Shapes("Rectangle 130").Select
    Selection.ShapeRange.Fill.UserPicture AA4
   
AA5 = Range("AF5")
    ActiveSheet.Shapes("Rectangle 131").Select
    Selection.ShapeRange.Fill.UserPicture AA5
        
AA6 = Range("D15")
    ActiveSheet.Shapes("Rectangle 132").Select
    Selection.ShapeRange.Fill.UserPicture AA6
            
AA7 = Range("K15")
    ActiveSheet.Shapes("Rectangle 133").Select
    Selection.ShapeRange.Fill.UserPicture AA7
               
AA8 = Range("R15")
    ActiveSheet.Shapes("Rectangle 134").Select
    Selection.ShapeRange.Fill.UserPicture AA8
   
AA9 = Range("Y15")
    ActiveSheet.Shapes("Rectangle 135").Select
    Selection.ShapeRange.Fill.UserPicture AA9
   
AA10 = Range("AF15")
    ActiveSheet.Shapes("Rectangle 135").Select
    Selection.ShapeRange.Fill.UserPicture AA10
        
    Range("AL5").Select
End Sub

我想表达的是，为什么我改成10张后，图片不能自动插入了？问题出现在哪里啊？
我整不明白。

cycssky

LangQueS 发表于 2011-8-18 10:36
先高级筛选……

哥，你还是帮我改一下附件中：“修改后不能用的表格”这个文件中的电子表格吧。你发过来的东西都好高深啊，像我这样的菜鸟，哪里看得懂，我还把那个代码翻译出来了呢：

   是这样的：

   起作用的表格，形状，矩形，选择，可供选择的东西，单元格形状，使填满，用户图片；

   可还是搞不懂。

LangQueS

15楼的附件可以直接使用……现在是4个证件，需要多个时，可以随意复制。

每次填写好当前页面的几个证件，清除后再填写就是继续……

cycssky

LangQueS 发表于 2011-8-18 11:17
15楼的附件可以直接使用……现在是4个证件，需要多个时，可以随意复制。

每次填写好当前页面的几个证件， ...

那比如我打印机卡纸了，要重新打印前一张，但是现在已经清除了，则何如？