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

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

编辑#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

如果执行 re-copies.

，请注意避免名称冲突

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

excel Copy shapes from one worksheet to another

excel

vba

shapes