将图示转换为另一种类型。
expression.Convert(Type)
expression 必选。该表达式返回“应用于”列表中的对象之一。
Type 必选。MsoDiagramType 类型。要转换的图示类型。
MsoDiagramType 可以是下列 MsoDiagramType 类型常数之一。 |
msoDiagramCycle |
msoDiagramMixed |
msoDiagramOrgChart |
msoDiagramPyramid |
msoDiagramRadial |
msoDiagramTarget |
msoDiagramVenn |
如果目标图示的 Type 属性值为一组织结构图 (msoDiagramTypeOrgChart),该方法将产生一个错误。
以下示例将一个棱锥图添加到幻灯片中并将其转换为射线图。
Sub ConvertPyramidDiagram()
Dim dgnNode As DiagramNode
Dim shpDiagram As Shape
Dim intNodes As Integer
'Adds pryamid diagra 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 additional child nodes
For intNodes = 1 To 3
dgnNode.AddNode
Next intNodes
'Automatically formats the diagram and converts it to a radial diagram
With dgnNode.Diagram
.AutoFormat = msoTrue
.Convert Type:=msoDiagramRadial
End With
End Sub