Question

vba高手帮帮忙啊

代码：
Sheets("Sheet2").Select
Range("F11:J20").Select
Selection.Copy
Sheets("Sheet1").Select
Range("B4").Select
ActiveSheet.Pictures.Paste.Select
问题出在 ActiveSheet.Pictures.Paste.Select
如何按F8单步执行没有问题，直接运行出现“运行时错误 ‘1004’ microsoft excel无法粘贴数据”提示，但不管这个错误，再点一下运行又能成功执行。
分用完了，还请高手帮帮忙……

Answer 1

这个可能是你原来还有什么其他的操作，你的程序没有调试好……经过测试 这段代码使用起来没有问题啊
不知道你这段代码放在何处 是否与其他有冲突……
另外请检查你的代码、调试你的程序 、然后编译一下……如果代码始终处于调试阶段的话，应该在修改完后 首先跳出……然后再重新调试 然后编译……
下面是用你的代码测试的 运行正常……
Sub p_copy()
Sheets("Sheet2").Select
Range("F11:J20").Select
Selection.Copy
Sheets("Sheet1").Select
Range("B4").Select
ActiveSheet.Pictures.Paste.Select
End Sub

Answer 2

已发代码文件，注意查收

Answer 3

Sub tt()
Sheets("Sheet2").Select
Range("F11:J20").Select
Selection.Copy
Sheets("Sheet1").Select
Range("B4").Select
ActiveSheet.Pictures.Paste.Select

End Sub
没错啊,可运行