Excel VBA教程:CopyPicture方法

应用于 Range对象的 CopyPicture方法。

将选定对象作为图片复制到剪贴板。Variant 类型。

expression.CopyPicture(Appearance, Format)

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

Appearance  XlPictureAppearance 类型,可选。指定图片的复制方式。

XlPictureAppearance 可为以下 XlPictureAppearance 常量之一。
xlPrinter 图片将按其打印效果进行复制。
xlScreen default 图片将尽可能按照其屏幕显示进行复制。

Format  XlCopyPictureFormat 类型,可选。图片的格式。

XlCopyPictureFormat 可为以下 XlCopyPictureFormat 常量之一。
xlBitmap
xlPicture default

 

应用于 ChartObject、ChartObjects、OLEObject 和 OLEObjects对象的 CopyPicture方法。

将选定对象作为图片复制到剪贴板。Variant 类型。

expression.CopyPicture(Appearance, Format)>

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

Appearance  XlPictureAppearance 类型,可选。指定图片的复制方式。

XlPictureAppearance 可为以下 XlPictureAppearance 常量之一。
xlPrinter 图片将按其打印效果进行复制。
xlScreen default. 图片将尽可能按照其屏幕显示进行复制。

Format  XlCopyPictureFormat 类型,可选。图片的格式。

XlCopyPictureFormat 可为以下 XlCopyPictureFormat 常量之一。
xlBitmap
xlPicture default

 

应用于 Chart对象的 CopyPicture方法。

将选定对象作为图片复制到剪贴板。

expression.CopyPicture(Appearance, Format, Size)

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

Appearance  XlPictureAppearance 类型,可选。指定图片的复制方式。

XlPictureAppearance 可为以下 XlPictureAppearance 常量之一。
xlPrinter 图片将按其打印效果进行复制。
xlScreen default 图片将尽可能按照其屏幕显示进行复制。

Format  XlCopyPictureFormat 类型,可选。图片的格式。

XlCopyPictureFormat 可为以下 XlCopyPictureFormat 常量之一。
xlBitmap
xlPicture default

Size  XlPictureAppearance 类型,可选。当指定的对象是图表中的图(不是内嵌工作表中的图)时,此参数代表复制到剪贴板的图片大小。

XlPictureAppearance 可为以下 XlPictureAppearance 常量之一。
xlPrinter default 复制到剪贴板的图片大小将尽可能与打印输出的大小一致。
xlScreen 复制到剪贴板的图片大小将尽可能与其屏幕显示的大小一致。

应用于 Shape对象的 CopyPicture方法。

将选定对象作为图片复制到剪贴板。

expression.CopyPicture(Appearance, Format)

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

Appearance  XlPictureAppearance 类型,可选。指定图片的复制方式。

XlPictureAppearance 可为以下 XlPictureAppearance 常量之一。
xlPrinter 图片将按其打印效果进行复制。
xlScreen default 图片将尽可能按照其屏幕显示进行复制。

Format  XlCopyPictureFormat 类型,可选。图片的格式。

XlCopyPictureFormat 可为以下 XlCopyPictureFormat 常量之一。
xlBitmap
xlPicture default

 

说明

如果复制区域,它必须由相邻单元格构成。

示例

本示例将工作表 Sheet1 上 A1:D4 单元格的屏幕图像复制到剪贴板,并将其位图粘贴到工作表 Sheet1 上的另一位置。


Worksheets("Sheet1").Range("A1:D4").CopyPicture xlScreen, xlBitmap
Worksheets("Sheet1").Paste _
    Destination:=Worksheets("Sheet1").Range("E6")

上页:Excel VBA教程:CopyFromRecordset方法 下页:Excel VBA教程:CreateCubeFile方法

Excel VBA教程:CopyPicture方法

Excel VBA教程:CreateCubeFile方法 Excel VBA教程:CreateNames方法
Excel VBA教程:CreateNewDocument方法 Excel VBA教程:CreatePivotTable方法
Excel VBA教程:获取有关 Macintosh 关键字的帮助 Excel VBA教程:CreateSummary方法
Excel VBA教程:CustomDrop方法 Excel VBA教程:CustomLength方法
Excel VBA教程:Cut方法 Excel VBA教程:DataLabels方法
Excel VBA教程:DataSeries方法 Excel VBA教程:DDEExecute方法
Excel VBA教程:DDEInitiate方法 Excel VBA教程:DDEPoke方法
Excel VBA教程:DDERequest方法 Excel VBA教程:DDETerminate方法
Excel VBA教程:Delete方法 Excel VBA教程:DeleteAll方法
Excel VBA教程:DeleteChartAutoFormat方法 Excel VBA教程:DeleteCustomList方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号