PasteSpecial方法

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教程：PasteSpecial方法·相关导航

-

上页：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方法

Feiesoft.com - PowerPoint VBA教程 - PasteSpecial方法

Feiesoft - Software Technology