PowerPoint VBA教程:Paste方法

应用于 Shapes对象的 Paste方法。

在 z 顺序的最上端将剪贴板上的形状、幻灯片或文本粘贴到指定 Shapes集合中。每个粘贴对象都成为指定 Shapes集合的成员。如果剪贴板包含全部幻灯片,幻灯片将作为包含幻灯片图像的形状粘贴。如果剪贴板包含文本内容,该文本将粘贴到一个新创建的 TextFrame 形状中。返回一个代表粘贴对象的ShapeRange对象。

expression.Paste

expression  必选。该表达式返回上述对象之一。

 

应用于 Slides对象的 Paste方法。

将剪贴板上的幻灯片粘贴到演示文稿的 Slides集合中。指定要在何处使用 Index参数插入幻灯片。返回一个代表粘贴对象的SlideRange对象。每个粘贴的幻灯片都成为指定 Slides集合的成员。

expression.Paste(Index)

expression  必选。该表达式返回上述对象之一。

Index  可选。Integer 类型。表示剪贴板上的幻灯片要粘贴在其之前的幻灯片索引号。如果省略本参数,剪贴板上的幻灯片将粘贴在演示文稿的最后一张幻灯片后。

 

应用于 TextRange对象的 Paste方法。

将剪贴板上的文本粘贴到指定文本内容中,返回一个代表粘贴文本的 TextRange对象。

expression.Paste

expression  必选。该表达式返回上述对象之一。

 

应用于 View对象的 Paste方法。

将剪贴板上的内容粘贴到当前视图中。试图将对象粘贴到不接受它的视图中时出现一个错误。有关视图和要粘贴到视图中的对象的信息,请参阅“说明”一节。

expression.Paste

expression  必选。该表达式返回上述对象之一。

 

说明

将剪贴板内容粘贴到视图之前,请使用ViewType属性设置窗口的视图。下列表格显示了对每种视图可以插入的内容。

视图 可插入下列内容
幻灯片视图或备注页视图 形状、文本或整张幻灯片。如果从剪贴板粘贴一个幻灯片,该幻灯片的图像将作为嵌入对象被插入到幻灯片、母版或备注页中;如果选中形状,粘贴的文本将附加到形状文本之后;如果选中文本,粘贴的文本将替换选中的文本;如果选中任何其他对象,粘贴的文本将被放到它自己的文本框中。粘贴的形状将被放到 z 顺序的最上端且不会替换选中的形状。
大纲视图 文本或整张幻灯片。不能向大纲视图粘贴形状。粘贴的幻灯片将被插到插入点所在的幻灯片之前。
幻灯片浏览视图 整张幻灯片。不能向幻灯片浏览视图粘贴形状或文本。粘贴的幻灯片将被插到插入点处或演示文稿中最后选中的一张幻灯片之后。

VBA示例

应用于 Shapes对象。 

本示例将当前演示文稿第一张幻灯片的第一个形状复制到剪贴板,然后将其粘贴到第二张幻灯片。


With ActivePresentation
    .Slides(1).Shapes(1).Copy
    .Slides(2).Shapes.Paste
End With

本示例剪切当前演示文稿第一张幻灯片第一个形状的文本,将其放到剪贴板,然后将其粘贴到同一幻灯片第二个形状第一个字之后。


With ActivePresentation.Slides(1)
    .Shapes(1).TextFrame.TextRange.Cut
    .Shapes(2).TextFrame.TextRange.Words(1).InsertAfter.Paste
End With

应用于 Slides对象。 

本示例从演示文稿“Old Sales”中剪切第三张和第五张幻灯片,然后将它们插入到当前演示文稿第四张幻灯片之前。


Presentations("Old Sales").Slides.Range(Array(3, 5)).Cut
ActivePresentation.Slides.Paste 4

应用于 View对象。 

本示例在第一个窗口中复制选定幻灯片到剪贴板并将其复制到第二个窗口的视图中。如果剪贴板的内容不能粘贴到第二个窗口的视图中(例如:如果试图粘贴一形状到幻灯片浏览视图中)本示例失败。


Windows(1).Selection.Copy
Windows(2).View.Paste

本示例将第一个窗口中选中的内容复制到剪贴板(请确认第一个窗口在幻灯片视图中),然后将剪贴板内容复制到第二个窗口的视图。


Windows(1).Selection.Copy
With Windows(2)
    .ViewType = ppViewSlide
    .View.Paste
End With

上页:PowerPoint VBA教程:Paragraphs方法 下页:PowerPoint VBA教程:PasteSpecial方法

PowerPoint VBA教程:Paste方法

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方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号