使用特定格式粘贴剪贴板内容。尽管使用此方法的语法对“应用于”列表中的所有对象来讲是相同的,但是根据调用 PasteSpecial 方法的对象的不同,操作还是有略微的区别。
对象 | 操作 |
---|---|
Shapes | 以指定格式将该形状添加到形状集合中。如果指定数据类型为文本数据类型,则创建一个具有文本的新文本框。如果粘贴成功,PasteSpecial 方法将返回一个 ShapeRange 对象,该对象代表粘贴的形状范围。 |
TextRange | 以指定格式用剪贴板上的内容替换文本范围。此对象的有效数据类型为 ppPasteText、ppPasteHTML 和 ppPasteRTF 类型(任何其他格式都会产生错误)。如果粘贴成功,此方法将返回一个 TextRange 对象,该对象代表粘贴的文本范围。 |
View | 将剪贴板上的当前内容粘贴到 View 对象代表的视图中。PasteSpecial 方法的有效视图与 Paste 方法的有效视图相同。如果数据类型不能粘贴到视图中(例如,试图将图片粘贴到“幻灯片浏览视图”中),则会产生错误。 |
expression.PasteSpecial(DataType, DisplayAsIcon, IconFileName, IconIndex, IconLabel, Link)
expression 必选。该表达式返回上述对象之一。
DataType 必选。PpPasteDataType 类型。将剪贴板内容插入到文档中所使用的格式。默认值根据剪贴板上内容的不同而变化。如果剪贴板内容不支持 DataType 参数中的指定数据类型,则会产生错误。
PpPasteDataType 可以是下列 PpPasteDataType 类型常数之一。 |
ppPasteBitmap |
ppPasteDefault 默认值 |
ppPasteEnhancedMetafile |
ppPasteGIF |
ppPasteHTML |
ppPasteJPG |
ppPasteMetafilePicture |
ppPasteOLEObject |
ppPastePNG |
ppPasteRTF |
ppPasteShape |
ppPasteText |
DisplayAsIcon 可选。MsoTriState 类型。属性值为 MsoTrue 时,将已嵌入(或链接)的对象显示为图标。
MsoTriState 可以是下列 MsoTriState 类型常数之一。 |
msoCTrue 不应用于此方法。 |
msoFalse 默认值。不将已嵌入(或链接)的对象显示为图标。 |
msoTriStateMixed 不应用于此方法。 |
msoTriStateToggle 不应用于此方法。 |
msoTrue 将已嵌入(或链接)的对象显示为图标。 |
IconFileName 可选。String 类型。如果 DisplayAsIcon 设置为 msoTrue,则此参数为存储显示图标的文件的路径和文件名。如果 DisplayAsIcon 设置为 msoFalse,则忽略此参数。
IconIndex 可选。Long 类型。如果 DisplayAsIcon 设置为 msoTrue,则此参数为一个编号,该编号对应于由 IconFilename 指定的要在程序文件中使用的图标。图标出现在“更改图标”对话框中,此对话框可从“常用”工具栏访问(“插入”菜单,“对象”命令,“新建”选项):值为 0(零)对应于第一个图标,值为 1 对应于第二个图标,依次类推。如果忽略此参数,则使用第一个(默认)图标。如果 DisplayAsIcon 设置为 msoFalse,则忽略此参数。如果 IconIndex 在有效范围之外,则使用默认图标(索引值为 0)。
IconLabel 可选。String 类型。如果 DisplayAsIcon 设置为 msoTrue,此参数为出现在该图标下的文本。如果此标签丢失,Microsoft PowerPoint 将基于剪贴板内容生成一个图标标签。如果 DisplayAsIcon 设置为 msoFalse,则忽略此参数。
Link 可选。MsoTriState 类型。决定是否创建到剪贴板内容的源文件的链接。如果剪贴板内容不支持链接,则会产生错误。
MsoTriState 可以是下列 MsoTriState 类型常数之一。 |
msoCTrue 不应用于此方法。 |
msoFalse 默认值。不创建到剪贴板内容的源文件的链接。 |
msoTriStateMixed 不应用于此方法。 |
msoTriStateToggle 不应用于此方法。 |
msoTrue 创建到剪贴板内容源文件的链接。 |
调用 PasteSpecial 方法时,如果剪贴板上没有数据,则会产生错误。
以下示例将一个位图图像以图标形式粘贴到另一窗口中。本示例假设有两个打开的窗口,当前选中的是第一个窗口中的位图图像。
Sub PasteOLEObject()
Windows(1).Selection.Copy
Windows(2).View.PasteSpecial DataType:=ppPasteOLEObject, _
DisplayAsIcon:=msoTrue, IconLabel:="New Bitmap Image"
End Sub