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

相关推荐