应用于 DiagramNodeChildren 对象的 AddNode 方法。
创建图表节点。返回一个 DiagramNode 对象,该对象代表新节点。
expression.AddNode(Index, nodeType)
expression 必需。该表达式返回一个 DiagramNodeChidren 对象。
Index Variant 类型,可选。节点的位置。
nodeType MsoDiagramNodeType 类型,可选。节点的类型。
MsoDiagramNodeType 可为以下 MsoDiagramNodeType 常量之一。 |
msoDiagramAssistant |
msoDiagramNode 默认值 |
应用于 DiagramNode 对象的 AddNode 方法。
创建图表节点。返回一个 DiagramNode 对象,该对象代表新节点。DiagramNode 对象。
expression.AddNode(pos, nodeType)
expression 必需。该表达式返回一个 DiagramNode 对象。
pos MsoRelativeNodePosition 类型,可选。相对于其他节点添加节点的位置。
MsoRelativeNodePosition 可为以下 MsoRelativeNodePosition 常量之一。 |
msoAfterLastSibling |
msoAfterNode 默认值 |
msoBeforeFirstSibling |
msoBeforeNode |
nodeType MsoDiagramNodeType 类型,可选。节点的类型。
MsoDiagramNodeType 可为以下 MsoDiagramNodeType 常量之一。 |
msoDiagramAssistant |
msoDiagramNode 默认值 |
本示例向活动工作表中的图表节点添加一个节点。
Sub DiagramNodeOBJ()
Dim nodDiagNode As DiagramNode
Dim shDiagram As Shape
Set shDiagram = ActiveSheet.Shapes.AddDiagram _
(Type:=msoDiagramOrgChart, _
Left:=10, _
Top:=15, _
Width:=400, _
Height:=475)
Set nodDiagNode = shDiagram.DiagramNode
'Add a root node to the diagram.
nodDiagNode.Children.AddNode
End Sub