Pictures.Paste.Select代码运行时报错，请帮忙看下

股理乾坤

如下图，做步调测试的时候都不会报错，一做自动运行就报错，点击调试后如下图

报错定位代码为这一句，我做了很多努力都没有解决，请大神帮忙看下，是哪里的错误
ActiveSheet.Pictures.Paste.Select

1. sub 图片()
   
2. Sheet11.Select
   
3. Range("O3:S30").Select
   
4. Selection.CopyPicture
   
5. ActiveSheet.Pictures.Paste.Select
   
6. With Selection
   
7. .Copy
   
8. With ActiveSheet.ChartObjects.Add(0, 0, Selection.Width, Selection.Height).Chart
   
9. ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Line.Visible = msoFalse '粘贴为图片后去除边框
   
10. .Paste
    
11. .Export i02 '"C:\Users\Administrator\Desktop\竖向封面.jpg"
    
12. .Parent.Delete
    
13. End With
    
14. .Delete
    
15. End With
    
16. end sub

复制代码

taller

请参考 https://blog.csdn.net/taller_2000/article/details/89506025

ivccav

你把Sheet11.Select改为Sheet11.activate，改为激活工作表就行了