《CopyPicture方法.docx》由会员分享，可在线阅读，更多相关《CopyPicture方法.docx（3页珍藏版）》请在三一文库上搜索。
1、CopyPicture 方法g应用于Range对象的CopyPicture 方法。将选定对象作为图片复制到剪贴板。Variant类型。expression.CopyPicture(Appearance, Format)expression 必需。该表达式返回上述对象之一。Appearance XlPictureAppearance 类型，可选。指定图片的复制方式。XlPictureAppearance可为以下 XlPictureAppearance吊里一。xlPrinter图片将按其打印效果进行复制。xlScreen default图片将尽可能按照其屏幕显示进行复制。Format XlCopy
2、PictureFormat类型，可选。图片的格式。XlCopyPictureFormat可为以下 XlCopyPictureFormat吊里一。xlBitmapxlPicture default 应用于 ChartObject、ChartObjects、OLEObject 和 OLEObjects 对象的 CopyPicture 方法。将选定对象作为图片复制到剪贴板。Variant类型。expression.CopyPicture(Appearance, Format)expression 必需。该表达式返回上述对象之一。Appearance XlPictureAppearance 类型，可选
3、。指定图片的复制方式。XlPictureAppearance可为以下 XlPictureAppearance吊里一。xlPrinter图片将按其打印效果进行复制。xlScreen default.图片将尽可能按照其屏幕显示进行复制。Format XlCopyPictureFormat类型，可选。图片的格式。XlCopyPictureFormat可为以下 XlCopyPictureFormat吊里一。xlBitmapxlPicture default应用于Chart对象的CopyPicture 方法。将选定对象作为图片复制到剪贴板。expression.CopyPicture(Appearanc
4、e, Format, Size)expression 必需。该表达式返回上述对象之一。Appearance XlPictureAppearance 类型，可选。指定图片的复制方式。XlPictureAppearance可为以下 XlPictureAppearance吊里一。xlPrinter图片将按其打印效果进行复制。xlScreen default图片将尽可能按照其屏幕显示进行复制。Format XlCopyPictureFormat 类型，可选。图片的格式。XlCopyPictureFormat可为以下 XlCopyPictureFormat吊里一。xlBitmapxlPicture de
5、faultSize XlPictureAppearance 类型，可选。当指定的对象是图表中的图(不是内 嵌工作表中的图)时，此参数代表复制到剪贴板的图片大小。XlPictureAppearance可为以下 XlPictureAppearance常量之一。xlPrinter default复制到剪贴板的图片大小将尽可能与打印输出的大小一致。xlScreen复制到剪贴板的图片大小将尽可能与其屏幕显示的大小一致。应用于Shape对象的CopyPicture 方法。将选定对象作为图片复制到剪贴板。expression.CopyPicture(Appearance, Format)expression
6、 必需。该表达式返回上述对象之一。Appearance XlPictureAppearance 类型，可选。指定图片的复制方式。XlPictureAppearance可为以下 XlPictureAppearance吊里一。xlPrinter图片将按其打印效果进行复制。xlScreen default图片将尽可能按照其屏幕显示进行复制。Format XlCopyPictureFormat 类型，可选。图片的格式。XlCopyPictureFormat 可为以下 XlCopyPictureFormat常量之一。xlBitmapxlPicture default说明如果复制区域，它必须由相邻单元格构成。示例本示例将工作表Sheetl上A1：D4单元格的屏幕图像复制到剪贴板，并将其位 图粘贴到工作表Sheet1上的另一位置。Worksheets(Sheet1).Range(A1:D4).CopyPicture xlScreen, xlBitmapWorksheets(Sheet1).Paste _Destination:=Worksheets(Sheet1).Range(E6)