请帮忙改一点代码，把带相片的准考证中按钮保留下来，谢谢！

mcedu

各位专家网友好！
我现在被要求制作一页A4两个准考证，带相片和公章。

附件是我自己学习后东拼西揍
问题：
【1】现在的VBA能实现每次生成一张两个证的PDF文件，但一点  批量打印  就会把按钮删除了，如何才能把这个按钮保留下来下次还可以用。
【2】把所有的准考证都生成在同一个PDF文件，而不是现在的一个文件只能生成两张？

supermouse24

问题1：
文件→选项→自定义功能区→从下列位置选择命令
然后选择"宏"
选择一个组，没有就新建一个组
点击添加
然后你就会发现上面永远会有那个宏的按钮。无论你打开那个EXCEL。

MyLaLaLand

ActiveSheet.DrawingObjects.Delete的问题  利用DrawingObjects的name属性改了一下 你有更好的方法可以试试  现在代码是按照一页两个准考证排版的 如果有一百个学生你一页也放不下啊

125675117

第1个问题，PDF生成后，可以用PDF软件合并成一个文件来打印
第2个问题，请见附件。

supermouse24

问题1：
逻辑：
遍历所有图形，然后不删除“Button 1”

这一行代码：ActiveSheet.DrawingObjects.Delete
改为：
    For Each myShape In ActiveSheet.Shapes
        If myShape.Name <> "Button 1" Then
            myShape.Delete
        End If
    Next

mcedu

MyLaLaLand 发表于 2023-1-3 16:14
ActiveSheet.DrawingObjects.Delete的问题  利用DrawingObjects的name属性改了一下 你有更好的方法可以试试 ...

谢谢！就是想每两个学生的准考证打印在一张A4纸，不是要求把所有的学生准考证都打印在同张纸。只是想把后面的学生的也加入到同一个pdf文件,方便打印，不想就只能是先每两个一张做成一个文件，再用PDF阅读软件合成一下了。

supermouse24

问题1：
把代码：ActiveSheet.DrawingObjects.Delete
改为：
    For Each myShape In ActiveSheet.Shapes
        If myShape.Name <> "Button 1" Then
            myShape.Delete
        End If
    Next

mcedu

supermouse24 发表于 2023-1-3 16:14
问题1：
文件→选项→自定义功能区→从下列位置选择命令
然后选择"宏"

谢谢，我试一下

mcedu

MyLaLaLand 发表于 2023-1-3 16:14
ActiveSheet.DrawingObjects.Delete的问题  利用DrawingObjects的name属性改了一下 你有更好的方法可以试试 ...

谢谢！您那神来之笔，一下就帮我解决了大烦恼。

mcedu

125675117 发表于 2023-1-3 16:22
第1个问题，PDF生成后，可以用PDF软件合并成一个文件来打印
第2个问题，请见附件。

谢谢！您的代码是它要删除就让它删除吧，我最后再加按钮生成回来就是了，也很好解决了问题。