[求助]PowerPoint中的选择性粘贴VBA如何写？

OK999OK

查了半天帮助，也搜索了。。。就是没出来结果？ 好象是这个 ActiveWindow.Selection.SlideRange.Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile 可就是不对，哪位指点一下？

吃好饭

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 方法时，如果剪贴板上没有数据，则会产生错误。

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

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

[此贴子已经被作者于2005-8-14 10:16:04编辑过]

吃好饭

不知道对你有没有用。

[此贴子已经被作者于2005-8-14 10:34:00编辑过]

OK999OK

多谢版主，但是问题还没解决！ 我用的是OFFICE2000，系统提示没有PasteSpecial属性，而在OFFICE2003中则可以！不知道在OFFICE2000中如何处理？ 再麻烦一下，PP2000中的撤消命令，类似UNDO的，怎么也没有？

Melody123@

office365同问，那些选择性粘贴得选项贴进去都提示要定义变量，弄不懂