Excel VBA教程:ConvertToShape方法

创建图形,该图形将具有指定的 FreeformBuilder对象的几何特性。返回Shape对象,该对象代表新建的图形。

注意   在使用 ConvertToShape方法之前,必须向 FreeformBuilder对象至少应用一次AddNodes方法。

expression.ConvertToShape

expression  必需。该表达式返回一个 FreeformBuilder对象。

Excel VBA教程:ConvertToShape方法·示例

本示例向myDocument 中添加带有五个顶点的任意多边形。


Set myDocument = Worksheets(1)
With myDocument.Shapes.BuildFreeform(msoEditingCorner, 360, 200)
    .AddNodes msoSegmentCurve, msoEditingCorner, _
        380, 230, 400, 250, 450, 300
    .AddNodes msoSegmentCurve, msoEditingAuto, 480, 200
    .AddNodes msoSegmentLine, msoEditingAuto, 480, 400
    .AddNodes msoSegmentLine, msoEditingAuto, 360, 200
    .ConvertToShape
End With

上页:Excel VBA教程:ConvertFormula方法 下页:Excel VBA教程:Copy方法

Excel VBA教程:ConvertToShape方法

Excel VBA教程:Copy方法 Excel VBA教程:CopyFromRecordset方法
Excel VBA教程:CopyPicture方法 Excel VBA教程:CreateCubeFile方法
Excel VBA教程:CreateNames方法 Excel VBA教程:CreateNewDocument方法
Excel VBA教程:CreatePivotTable方法 Excel VBA教程:获取有关 Macintosh 关键字的帮助
Excel VBA教程:CreateSummary方法 Excel VBA教程:CustomDrop方法
Excel VBA教程:CustomLength方法 Excel VBA教程:Cut方法
Excel VBA教程:DataLabels方法 Excel VBA教程:DataSeries方法
Excel VBA教程:DDEExecute方法 Excel VBA教程:DDEInitiate方法
Excel VBA教程:DDEPoke方法 Excel VBA教程:DDERequest方法
Excel VBA教程:DDETerminate方法 Excel VBA教程:Delete方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号