PowerPoint VBA教程:AddLine方法

创建线条。返回一个代表新线条的Shape对象。

expression.AddLine(BeginX, BeginY, EndX, EndY)

expression  必选。该表达式返回“应用于”列表中的对象之一。

BeginX 必选。Single 类型。线条起点相对于幻灯片左边缘的水平位置(以磅为单位)。

BeginY  必选。Single 类型。线条起点相对于幻灯片上边缘的垂直位置(以磅为单位)。

EndX  必选。Single 类型。线条终点相对于幻灯片左边缘的水平位置(以磅为单位)。

EndY  必选。Single 类型。线条终点相对于幻灯片上边缘的垂直位置(以磅为单位)。

VBA示例

本示例向 myDocument 中添加蓝色的虚线。


Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddLine(BeginX:=10, BeginY:=10, _
        EndX:=250, EndY:=250).Line
    .DashStyle = msoLineDashDotDot
    .ForeColor.RGB = RGB(50, 0, 128)
End With

上页:PowerPoint VBA教程:AddLabel方法 下页:PowerPoint VBA教程:AddMediaObject方法

PowerPoint VBA教程:AddLine方法

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