Excel VBA教程：Paste方法

应用于 Chart对象的 Paste方法。

将剪贴板中的图表数据粘贴到指定的图表中。

expression.Paste(Type)

expression   必需。该表达式返回一个Chart对象。

Type   Variant 类型，可选。如果剪贴板中有图表，本参数指定要粘贴的图表信息。可为以下 XlPasteType 常量之一：xlFormats、xlFormulas 或 xlAll。默认值为 xlAll。如果剪贴板中是数据不是图表，则不能使用本参数。

说明

本方法将更改当前的选定区域。

应用于 Floor、Point、Series 和 Walls对象的 Paste方法。

对于 Floor 和 Walls对象，将剪贴板中的图片粘贴到选定图表的基底或背景墙上。对于 Point 和 Series对象，将剪贴板中的图片作为标志粘贴到选定的数据点或系列上。本方法可用于柱形图、条形图、折线图或雷达图，并且将 MarkerStyle属性设置为 xlMarkerStylePicture。

expression.Paste

expression   必需。该表达式返回上面的对象之一。

应用于 SeriesCollection对象的 Paste方法。

将剪贴板中的数据粘贴到指定的系列集合中。

expression.Paste(Rowcol, SeriesLabels, CategoryLabels, Replace, NewSeries)

expression   必需。该表达式返回一个SeriesCollection对象。

Rowcol  XlRowCol 类型，可选。指定对应于特定数据系列的数值是处于行中还是列中。

XlRowCol 可为以下 XlRowCol 常量之一。

xlColumns 默认值

xlRows

SeriesLabels   Variant 类型，可选。若为 True，则用每一行的第一列（或每一列的第一行）中的单元格内容作为该行（或列）中数据系列的名称。若为 False，则用每一行的第一列（或每一列的第一行）中的单元格内容作为数据系列的第一个数据点。默认值为 False。

CategoryLabels   Variant 类型，可选。若为 True，则用选定区域的第一行（或第一列）中的内容作为图表的分类。若为 False，则用选定区域的第一行（或第一列）中的内容作为图表的第一个数据系列。默认值为 False。

Replace   Variant 类型，可选。若为 True，则在用被复制区域的信息取代现有的分类时应用分类。若为 False，则插入新分类而不替换任何原有分类。默认值为 True。

NewSeries   Variant 类型，可选。若为 True，则将数据作为新系列粘贴。若为 False，则将数据作为原有系列的新数据点粘贴。默认值为 True。

应用于 Worksheet对象的 Paste方法。

将剪贴板中的内容粘贴到工作表上。

expression.Paste(Destination, Link)

expression   必需。该表达式返回一个Worksheet对象。

Destination   Variant 类型，可选。Range对象，指定用于粘贴剪贴板中内容的目标区域。如果省略本参数，就使用当前的选定区域。仅当剪贴板中的内容能被粘贴到某区域时，才能指定本参数。如果指定了本参数，就不能使用 Link参数。

Link   Variant 类型，可选。若为 True，就建立与被粘贴数据的源之间的链接。如果指定了本参数，就不能使用 Destination参数。默认值为 False。

说明

如果未指定 Destination参数，那么必须在使用本方法之前选定目标区域。

本方法可能会修改工作表的选定区域，这取决于剪贴板中的内容。

Excel VBA教程：Paste方法·示例

应用于 Chart对象。

本示例将 Sheet1 上单元格区域 B1:B5 中的数据粘贴到 Chart1 中。

Worksheets("Sheet1").Range("B1:B5").Copy
Charts("Chart1").Paste

应用于 Point 或 Series对象。

本示例将剪贴板中的图片粘贴到 Chart1 上的第一个系列中。

Charts("Chart1").SeriesCollection(1).Paste

应用于 SeriesCollection对象。

本示例将剪贴板中的图片粘贴到 Chart1 上的第一个系列中。

Worksheets("Sheet1").Range("C1:C5").Copy
Charts("Chart1").SeriesCollection.Paste

应用于 Worksheet对象。

本示例将 Sheet1 上单元格区域 C1:C5 中的数据复制到单元格区域 D1:D5 中。

Worksheets("Sheet1").Range("C1:C5").Copy
ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("D1:D5")