选中多个图片后一起拷贝并粘贴成一张图片并命名新的图片名？

north00

如题：


请教高手：假如工作表sheet1中有3张图片，名称为pic1，pic2，pic3，如何用VBA代码同时选中这三张图片，并且用类似pastespecial的方法将这三张图片一起粘贴成一张图片，并将这一张图片命名为pic4?

谢谢！！

aman1516

pastespecial 与 图片组合有何差别

1. Sub Test()
   
2.     ActiveSheet.Shapes.Range(Array("Pic 1", "Pic 2", "Pic 3")).Select
   
3.     Selection.Copy
   
4.     ActiveSheet.PasteSpecial Format:="í¼Æ¬(PNG)", Link:=False, DisplayAsIcon:=False
   
5.     Selection.Name = "Pic 4"
   
6. End Sub

复制代码