VBA关于do untill的问题

[轮子酱]

想请教一下各位大佬，VBA中我有遇到一个问题，有概率出现弹窗报错：类Range的copypicture方法无效，但这种情况通常点击调试之后点击继续即可正常运行

这种情况下，我是否有可能通过do untill的方式让报错语句自动循环执行直到不再报错？untill的条件应该怎么写？

[轮子酱]

报错的语句是：
Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap

[milaoshu1020]

试试这样行不行:

on error resume next
do
    err.clear
    Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap
loop until err.number = 0

[轮子酱]

引用 1 楼 qq_36368489 的回复:

报错的语句是：
Selection.CopyPicture Appearance:=xlScreen, Format:=xlBitmap

看起来好使！谢谢老哥！！！