VBA之AddDiagram 方法
AddDiagram 方法expression.AddDiagram(Type, Left, Top, Width, Height)
expression 必选。该表达式返回“应用于”列表中的对象之一。
Type 必选。MsoDiagramType 类型。图示的类型。
MsoDiagramType 可以是下列 MsoDiagramType 类型常数之一。
msoDiagramCycle 显示持续循环的过程。
msoDiagramMixed 不用于此方法。
msoDiagramOrgChart 显示层次关系。
msoDiagramPyramid 显示基于基础的关系。
msoDiagramRadial 显示核心元素的关系。
msoDiagramTarget 显示实现目标的步骤。
msoDiagramVenn 显示元素间的重叠区域。
Left 必选。Single 类型。图示画布边界框左边缘相对于页面左边缘的位置（以磅为单位）。
Top 必选。Single 类型。图示画布边界框上边缘相对于页面上边缘的位置（以磅为单位）。
Width 必选。Single 类型。图示画布的边界框的宽度（以磅为单位）。
Height 必选。Single 类型。图示画布的边界框的高度（以磅为单位）。
示例：以下示例将一个带四个节点的棱锥图添加到当前演示文稿的第一张幻灯片中。
Sub CreatePyramidDiagram()
Dim dgnNode As DiagramNode
Dim shpDiagram As Shape
Dim intNodes As Integer
'Adds pyramid diagram and first child node
Set shpDiagram = ActivePresentation.Slides(1).Shapes _
.AddDiagram(Type:=msoDiagramPyramid, Left:=10, _
Top:=15, Width:=400, Height:=475)
Set dgnNode = shpDiagram.DiagramNode.Children.AddNode
'Adds three more child nodes to pyramid diagram
For intNodes = 1 To 3
dgnNode.AddNode
Next intNodes
End Sub
谢谢楼主啊！ 我该不会是最后一个顶的吧
页:
[1]