Excel VBA：复制和粘贴范围，因为图片在单步通过时起作用，但得到；运行时错误'；1004'&引用；跑步时
我对下面的代码有问题。我已经编写了一个宏来复制和粘贴一系列行的图片，当我一步一步地通过它时，它就会工作。但是，当我运行宏时，它往往会卡在一个随机粘贴上（通常不是单个粘贴）。请建议如何更好地编写此代码，以避免在运行宏时出现此问题Excel VBA：复制和粘贴范围，因为图片在单步通过时起作用，但得到；运行时错误'；1004'&引用；跑步时,excel,vba,runtime-error,copy-paste,step-through,Excel,Vba,Runtime Error,Copy Paste,Step Through,我对下面的代码有问题。我已经编写了一个宏来复制和粘贴一系列行的图片，当我一步一步地通过它时，它就会工作。但是，当我运行宏时，它往往会卡在一个随机粘贴上（通常不是单个粘贴）。请建议如何更好地编写此代码，以避免在运行宏时出现此问题 子演示文稿\u格式化（） 将wb设置为工作簿 暗淡的图片 尺寸i为整数，j为整数 将内容设置为工作表 作为工作表的演示文稿 i=5 j=7 设置内容=工作表（“恢复指示器内容”） 设置演示文稿=工作表（“恢复指示器”） 设置wb=ActiveWorkbook '删除除右上
子演示文稿\u格式化（）
将wb设置为工作簿
暗淡的图片
尺寸i为整数，j为整数
将内容设置为工作表
作为工作表的演示文稿
i=5
j=7
设置内容=工作表（“恢复指示器内容”）
设置演示文稿=工作表（“恢复指示器”）
设置wb=ActiveWorkbook
'删除除右上角的照片之外的所有现有照片
对于每张图片（以页为单位）（“恢复指示器”）。图片
如果图片名称为“Picture 65”，则
图.删除
如果结束
下一张照片
直到我超过62岁
wb.工作表（“恢复指标内容”）。选择
范围（单元格（i，1），单元格（i+12，4））。CopyPicture外观：=xlScreen，格式：=xlPicture
工作分解表（“恢复指标”）。选择
范围（单元格（i+9,3）、单元格（i+21,6））。选择
活动表。粘贴
i=i+14
环
MsgBox（“完成！”）
端接头