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

skylake · 发表于 2020-11-24 16:34

本帖最后由 skylake 于 2020-11-27 09:19 编辑

vba新手，在学习的时候，写了一段代码，是用来从总表中将图片归类保存在分表中的，现在代码调试都是成功的，但点运行一段后就报错，请大神给分析分析

Sub test()
Dim i As Integer
For i = 1 To Sheet2.Cells(Rows.Count, 1).End(xlUp).Row
Sheets.Add after:=Sheets(Sheets.Count)
With Sheets(Sheets.Count)
.Name = "图片" & i
.Range("a1").ColumnWidth = 30
.Range("a1").RowHeight = 120
.Range("b1").ColumnWidth = 30
.Range("b1").RowHeight = 120
Sheet2.Shapes("图片" & i & "2").Copy
.Range("a1").Select
.Paste
Sheet2.Shapes("图片" & i & "3").Copy
.Range("b1").Select
.Paste
End With
Next
End Sub

复制代码

skylake · 发表于 2020-11-25 08:32

哪位大神来指点一下啊，感激不尽

yes363001640 · 发表于 2020-11-25 08:51

11111111111111111111111111111

skylake · 发表于 2020-11-25 09:26

yes363001640 发表于 2020-11-25 08:51
11111111111111111111111111111

可能我没表达清楚，我测试的功能时将总表里面的图片，将其对应项保存在分表里面，比如序号1对应两张图片，我要新建一个图片1的sheet，然后将这两张图片放在sheets(“图片1”)的a1和b1单元格内。后期我要将sheets(“图片1”)这个另存成一个excel文件做处理的。
另外你的这个代码我测试仍然报错

skylake · 发表于 2020-11-25 14:38

哪位大师帮忙分析一下啊

简七 · 发表于 2020-11-25 16:14

113 图片命名是103

简七 · 发表于 2020-11-25 16:20

行数比图片数多1 循环结束范围需要减去1

简七 · 发表于 2020-11-25 16:21

把你原来的改改就行

skylake · 发表于 2020-11-26 08:55

简七发表于 2020-11-25 16:14
113 图片命名是103

113图片位置靠上了，所以命名重复了，感谢指正

skylake · 发表于 2020-11-26 08:56

简七发表于 2020-11-25 16:20
行数比图片数多1 循环结束范围需要减去1

没考虑周全，感谢指正

		自动登录	找回密码
密码			免费注册

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