excel vba 批量复制图片报错“方法'copy'作用于对象'shape'时失败”

cgzn

cgzn

在copy语句前后各加一句试试，

mhps159357

加一句，on error resume next

skylake

cgzn 发表于 2020-11-26 16:09
在copy语句前后各加一句试试，

木有用，后面加的.Activate肯定是解决不了问题的

skylake

mhps159357 发表于 2020-11-26 16:33
加一句，on error resume next

加了这句，肯定不报错，但是图片也不会执行复制了

mhps159357

Sheet2.Shapes("图片" & i & "2").Copy
这一句本身没错，但是你表格中图片名称有些重复了，不信你自己提取图片名称看看，有几张图片名称根本跟你这句代码对应不上；所以会报错！
以下是我提取的图片名称：
图片102
图片103
图片103
图片112
图片12
图片122
图片123
图片13
图片132
图片133
图片142
图片142
图片143
图片152
图片153
图片162
图片163
图片172
图片173
图片182
图片183
图片22
图片23
图片32
图片33
图片42
图片43
图片52
图片53
图片62
图片63
图片72
图片73
图片82
图片83
图片92
图片93

mhps159357

skylake 发表于 2020-11-26 16:44
加了这句，肯定不报错，但是图片也不会执行复制了

你表格中图片名称有些重复了，有些跟你的代码也对应不上，所以报错了，不信你自己提取图片名称试试！

mhps159357

下面是我提取出来的名称，有些跟你这句代码Sheets("sheet1").Shapes("图片" & i & "3").Copy根本不匹配，有些重复，肯定要报错，换其他方法吧，用图片地址处理！
图片102
图片103
图片103
图片112
图片12
图片122
图片123
图片13
图片132
图片133
图片142
图片142
图片143
图片152
图片153
图片162
图片163
图片172
图片173
图片182
图片183
图片22
图片23
图片32
图片33
图片42
图片43
图片52
图片53
图片62
图片63
图片72
图片73
图片82
图片83
图片92
图片93

skylake

mhps159357 发表于 2020-11-26 18:43
下面是我提取出来的名称，有些跟你这句代码Sheets("sheet1").Shapes("图片" & i & "3").Copy根本不匹配，有 ...

图片重复的问题是因为有些图片边缘到相邻单元格了，用代码命名的时候导致重复了，前面已经有小伙伴中指出来了，但是报错的原因不是因为图片重复，我猜想是因为速度太快没来得及找到图片，但是添加了Application.   ScreenUpdating 也没用，想不通啊

skylake

测试成功了，报错的原因还真是运行太快的原因，我在copy前面添加了延时，就能顺利运行下去了感谢@cgzn的提示

1. Sub test()
   
2. 
   
3. Dim i As Integer
   
4. 
   
5. Dim t As Date
   
6. 
   
7. For i = 1 To Sheet2.Cells(Rows.Count, 1).End(xlUp).Row - 1
   
8. 
   
9.     Sheets.Add after:=Sheets(Sheets.Count)
   
10.    
    
11.     With Sheets(Sheets.Count)
    
12.    
    
13.         .Name = "图片" & i
    
14.         
    
15.         .Range("a1").ColumnWidth = 30
    
16.         
    
17.         .Range("a1").RowHeight = 120
    
18.         
    
19.         .Range("b1").ColumnWidth = 30
    
20.         
    
21.         .Range("b1").RowHeight = 120
    
22.         
    
23.         t = Timer
    
24.         
    
25.         Do While Timer < t + 0.05
    
26.         
    
27.             DoEvents
    
28.             
    
29.         Loop
    
30.         
    
31.         Sheet2.Shapes("图片" & i & "2").Copy
    
32.         
    
33.         .Range("a1").Select
    
34.         
    
35.         .Paste
    
36.         
    
37.          Sheet2.Shapes("图片" & i & "3").Copy
    
38.          
    
39.          .Range("b1").Select
    
40.         
    
41.          .Paste
    
42.         
    
43.     End With
    
44. 
    
45. Next
    
46. 
    
47. End Sub

复制代码