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

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