表格里有图表怎么复制粘贴（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---

赞 (0)

相关推荐