Excel VBA教程:AddLine方法

当本方法应用于 Shapes对象时,返回一个Shape对象,该对象代表工作表中的新线条。当本方法应用于 CanvasShapes对象时,返回一个 Shape对象,该对象代表绘图画布中的新线条。

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

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

BeginX, BeginY   Single 类型,必需。相对于文档的左上角,以磅为单位给出线条的起点位置。

EndX, EndY   Single 类型,必需。相对于文档的左上角,以磅为单位给出线条的终点位置。

Excel VBA教程:AddLine方法·示例

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


Set myDocument = Worksheets(1)
With myDocument.Shapes.AddLine(10, 10, 250, 250).Line
    .DashStyle = msoLineDashDotDot
    .ForeColor.RGB = RGB(50, 0, 128)
End With

上页:Excel VBA教程:AddLabel方法 下页:Excel VBA教程:AddMemberPropertyField方法

Excel VBA教程:AddLine方法

Excel VBA教程:AddMemberPropertyField方法 Excel VBA教程:AddNode方法
Excel VBA教程:AddNodes方法 Excel VBA教程:AddOLEObject方法
Excel VBA教程:AddPageItem方法 Excel VBA教程:AddPicture方法
Excel VBA教程:AddPolyline方法 Excel VBA教程:AddReplacement方法
Excel VBA教程:AddSet方法 Excel VBA教程:AddShape方法
Excel VBA教程:AddTextbox方法 Excel VBA教程:AddTextEffect方法
Excel VBA教程:AddToFavorites方法 Excel VBA教程:AdvancedFilter方法
Excel VBA教程:Align方法 Excel VBA教程:Apply方法
Excel VBA教程:ApplyCustomType方法 Excel VBA教程:ApplyDataLabels方法
Excel VBA教程:ApplyNames方法 Excel VBA教程:ApplyOutlineStyles方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号