PowerPoint VBA教程:AddMediaObject方法

创建多媒体对象。返回一个代表新多媒体对象的Shape对象。

expression.AddMediaObject(FileName, Left, Top, Width, Height)

expression  必选。该表达式返回一个 Shapes对象。

FileName  必选。String 类型。创建多媒体对象所依据的文件。如果未指定路径,则使用当前工作文件夹。

Left,Top  可选。Single 类型。多媒体对象边界框左上角相对于文档左上角的位置,以磅为单位。

Width,Height  可选。Single 类型。多媒体对象边界框的宽度和高度,以磅为单位。

VBA示例

本示例向myDocument添加名为“Clock.avi”的影片。


Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddMediaObject FileName:="C:\WINNT\clock.avi", _
    Left:=5, Top:=5, Width:=100, Height:=100

上页:PowerPoint VBA教程:AddLine方法 下页:PowerPoint VBA教程:AddNode方法

PowerPoint VBA教程:AddMediaObject方法

PowerPoint VBA教程:AddNode方法 PowerPoint VBA教程:AddNodes方法
PowerPoint VBA教程:AddOLEObject方法 PowerPoint VBA教程:AddPeriods方法
PowerPoint VBA教程:AddPicture方法 PowerPoint VBA教程:AddPlaceholder方法
PowerPoint VBA教程:AddPolyline方法 PowerPoint VBA教程:AddShape方法
PowerPoint VBA教程:AddTable方法 PowerPoint VBA教程:AddTextbox方法
PowerPoint VBA教程:AddTextEffect方法 PowerPoint VBA教程:AddTitle方法
PowerPoint VBA教程:AddTitleMaster方法 PowerPoint VBA教程:AddToFavorites方法
PowerPoint VBA教程:Align方法 PowerPoint VBA教程:Apply方法
PowerPoint VBA教程:ApplyTemplate方法 PowerPoint VBA教程:Arrange方法
PowerPoint VBA教程:AutomaticLength方法 PowerPoint VBA教程:Background方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号