This will copy all the shapes from Sheet1 to Sheet2 : Sub CopyShape() Dim s As Shape For Each s In Sheets("Sheet1").Shapes s.Copy Sheets("Sheet2").
確定! 回上一頁