excel 将形状从一个工作表复制到另一个工作表

Question

我正在尝试使用宏将所有形状（图像）从工作表复制到另一个工作表。我使用了记录宏来完成它，但它总是给形状一个随意的名称，当我们不知道形状的名称时就无法重现它。

Answer 1

这会将所有形状从Sheet1复制到Sheet2：

Sub CopyShape()
    Dim s As Shape
    For Each s In Sheets("Sheet1").Shapes
        s.Copy
        Sheets("Sheet2").Paste
    Next s
End Sub

复制完成后，您可以随意放置它们或重命名它们。
（另一种方法是复制整个工作表。） p>

编辑#1：

此代码还将自动为复制的形状分配名称和位置：

Sub CopyShape()
    Dim shp1 As Shape, nombre As String
    Dim s1 As Worksheet, s2 As Worksheet
    Dim shp2 As Shape

    Set s1 = Sheets("Sheet1")
    Set s2 = Sheets("Sheet2")

    For Each shp1 In s1.Shapes
            nombre = shp1.Name
            shp1.Copy
            s2.Paste
            Set shp2 = s2.Shapes(s2.Shapes.Count)
            shp2.Name = nombre
            shp2.Top = shp1.Top
            shp2.Left = shp1.Left
    Next shp1
End Sub

如果您执行重新复制，请小心避免名称冲突。