引用图片剪切粘贴变为EXCEL内独立图片,用VBA批量操作,请大神指点

[gyhmmt]

这是我录制的宏:

Sub 宏1()
    ActiveSheet.Shapes.Range(Array("Picture 8")).Select
    Selection.Cut
    Range("H22").Select
    ActiveSheet.Pictures.Paste.Select
End Sub

想通过批量的方法把上千个引用的图片
粘贴为本地的图片
红色字体为变量,自己是小白,想写一个循环的VBA程序,请大神支招,谢谢

[一如既往哈]

1、第一个问题：在B列前插入2列，B==>D； 2、提供一个思路： 添加对字典的引用 然后对表格中的所有shape进行循环，找出每一个shape的topleftcell对应单元格编号，并用字典记录这个编号和shape的name的对应关系， 接下来，就可以根据单元格编号找到对应的shape名称，然后一一复制即可。

[gyhmmt]

太好了,大神能帮我写一个吗,

[赵4老师]

在Excel 2003中开始记录宏，手动完成所需功能，结束记录宏，按Alt+F11键，查看刚才记录的宏对应的VBA代码。

[gyhmmt]

哈哈,已经搞定 Sub 宏1() Dim i As Long, n As Integer With ActiveSheet.Shapes n = .count For i = 1 To n ActiveSheet.Shapes.Range(Array("icture " & i)).Select Selection.Cut Range("d" & i).Select ActiveSheet.Pictures.Paste.Select Next End With End Sub