全部显示

Convert 方法

将图示转换为另一种类型。

expression 必选。该表达式返回“应用于”列表中的对象之一。

Type 必选。MsoDiagramType 类型。要转换的图示类型。

说明

如果目标图示的 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