wps怎么复制框,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---