PowerPoint VBA教程:PasteSpecial方法

使用特定格式粘贴剪贴板内容。尽管使用此方法的语法对“应用于”列表中的所有对象来讲是相同的,但是根据调用 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方法时,如果剪贴板上没有数据,则会产生错误。

VBA示例

以下示例将一个位图图像以图标形式粘贴到另一窗口中。本示例假设有两个打开的窗口,当前选中的是第一个窗口中的位图图像。


Sub PasteOLEObject()
    Windows(1).Selection.Copy
    Windows(2).View.PasteSpecial DataType:=ppPasteOLEObject, _
        DisplayAsIcon:=msoTrue, IconLabel:="New Bitmap Image"
End Sub

上页:PowerPoint VBA教程:Paste方法 下页:PowerPoint VBA教程:Patterned方法

PowerPoint VBA教程:PasteSpecial方法

PowerPoint VBA教程:Patterned方法 PowerPoint VBA教程:PickUp方法
PowerPoint VBA教程:Picture方法 PowerPoint VBA教程:Play方法
PowerPoint VBA教程:PointsToScreenPixelsX方法 PowerPoint VBA教程:PointsToScreenPixelsY方法
PowerPoint VBA教程:PresetDrop方法 PowerPoint VBA教程:PresetGradient方法
PowerPoint VBA教程:PresetTextured方法 PowerPoint VBA教程:Previous方法
PowerPoint VBA教程:PrevNode方法 PowerPoint VBA教程:PrintOut方法
PowerPoint VBA教程:Publish方法 PowerPoint VBA教程:Quit方法
PowerPoint VBA教程:Range方法 PowerPoint VBA教程:RangeFromPoint方法
PowerPoint VBA教程:Regroup方法 PowerPoint VBA教程:ReloadAs方法
PowerPoint VBA教程:Remove方法 PowerPoint VBA教程:RemoveBaseline方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号