PowerPoint VBA教程：PasteSpecial方法·內(nèi)容正文

使用特定格式粘貼剪貼板內(nèi)容。盡管使用此方法的語法對“應(yīng)用于”列表中的所有對象來講是相同的，但是根據(jù)調(diào)用 PasteSpecial方法的對象的不同，操作還是有略微的區(qū)別。

expression.PasteSpecial(DataType, DisplayAsIcon, IconFileName, IconIndex, IconLabel, Link)

expression  必選。該表達(dá)式返回上述對象之一。

DataType  必選。PpPasteDataType 類型。將剪貼板內(nèi)容插入到文檔中所使用的格式。默認(rèn)值根據(jù)剪貼板上內(nèi)容的不同而變化。如果剪貼板內(nèi)容不支持 DataType參數(shù)中的指定數(shù)據(jù)類型，則會產(chǎn)生錯(cuò)誤。

DisplayAsIcon  可選。MsoTriState 類型。屬性值為 MsoTrue 時(shí)，將已嵌入（或鏈接）的對象顯示為圖標(biāo)。

IconFileName  可選。String 類型。如果 DisplayAsIcon 設(shè)置為 msoTrue，則此參數(shù)為存儲顯示圖標(biāo)的文件的路徑和文件名。如果 DisplayAsIcon 設(shè)置為 msoFalse，則忽略此參數(shù)。

IconIndex  可選。Long 類型。如果 DisplayAsIcon 設(shè)置為 msoTrue，則此參數(shù)為一個(gè)編號，該編號對應(yīng)于由 IconFilename 指定的要在程序文件中使用的圖標(biāo)。圖標(biāo)出現(xiàn)在“更改圖標(biāo)”對話框中，此對話框可從“常用”工具欄訪問（“插入”菜單，“對象”命令，“新建”選項(xiàng)）：值為 0（零）對應(yīng)于第一個(gè)圖標(biāo)，值為 1對應(yīng)于第二個(gè)圖標(biāo)，依次類推。如果忽略此參數(shù)，則使用第一個(gè)（默認(rèn)）圖標(biāo)。如果 DisplayAsIcon 設(shè)置為 msoFalse，則忽略此參數(shù)。如果 IconIndex 在有效范圍之外，則使用默認(rèn)圖標(biāo)（索引值為 0）。

IconLabel  可選。String 類型。如果 DisplayAsIcon 設(shè)置為 msoTrue，此參數(shù)為出現(xiàn)在該圖標(biāo)下的文本。如果此標(biāo)簽丟失，Microsoft PowerPoint 將基于剪貼板內(nèi)容生成一個(gè)圖標(biāo)標(biāo)簽。如果 DisplayAsIcon 設(shè)置為 msoFalse，則忽略此參數(shù)。

Link  可選。MsoTriState 類型。決定是否創(chuàng)建到剪貼板內(nèi)容的源文件的鏈接。如果剪貼板內(nèi)容不支持鏈接，則會產(chǎn)生錯(cuò)誤。

說明

調(diào)用 PasteSpecial方法時(shí)，如果剪貼板上沒有數(shù)據(jù)，則會產(chǎn)生錯(cuò)誤。

VBA示例

以下示例將一個(gè)位圖圖像以圖標(biāo)形式粘貼到另一窗口中。本示例假設(shè)有兩個(gè)打開的窗口，當(dāng)前選中的是第一個(gè)窗口中的位圖圖像。

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

PowerPoint VBA教程：PasteSpecial方法·相關(guān)導(dǎo)航

上頁：PowerPoint VBA教程：Paste方法 下頁：PowerPoint VBA教程：Patterned方法

PowerPoint VBA教程：PasteSpecial方法·相關(guān)鏈接

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