表格裡有圖表怎麼複製貼上（Excel怎麼複製貼上表格）

在此Excel中，可以生動展示工作表的方法，不外乎使用圖形方式。在這些圖形的使用中有一些需要掌握的程式碼來進行操作。

本節介紹一下，如何對工作表中的圖形進行復制、貼上的方法。

如上圖所示簡單複製了幾個文字框，和其它圖表一個道理使用方法一樣。

這樣會用到一個物件Shape，代表繪圖層中的物件，例如自選圖形、任意多邊形、OLE 物件或圖片。

基本方法如下圖所示：

程式碼

Me.Shapes(2).OnAction = "ShowX" '指定巨集 Me.Shapes(2).Copy '複製 Me.Paste '貼上 'Selection.Delete '刪除 Me.Shapes(2).PickUp '複製格式 Me.Shapes(3).Apply '引用格式 Set xobj = Me.Shapes(2).Duplicate '複製並返回Shape引用 With xobj     .Top = 20     .Left = 20     .Width = 200     .Height = 200 End With Me.Shapes(2).OnAction = "" '取消巨集

解釋

1、如果想讓一個Shape具體自動化功能，可對其進行一個巨集的操作。

可以使用OnAction方法設定一個過程

Me.Shapes(2).OnAction = "ShowX" '指定巨集

Me.Shapes(2).OnAction = "" '取消巨集

2、如果要把一個Shape的模式應用到另一個Shape可以使用如下兩行程式碼：

Me.Shapes(2).PickUp '複製格式

Me.Shapes(3).Apply '引用格式

3、如果要複製並返回一個Shape，可以使用下面的程式碼。

Set xobj = Me.Shapes(2).Duplicate '複製並返回Shape引用

物件xobj就是複製並返回的物件。

掌握上述幾點，就可以基本瞭解了一些Shape物件的複製和使用方法。

歡迎關注、收藏

---END---