在此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---