Convert 方法

将当前图表转换成其他图表。

expression.Convert(Type)

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

Type MsoDiagramType 类型，必需。要转换成的图表类型。

MsoDiagramType 可为以下 MsoDiagramType 常量之一。

msoDiagramCycle 具有连续循环图表类型的过程图表。

msoDiagramMixed 混合图表类型。

msoDiagramOrgChart 分级结构关系图表类型。

msoDiagramPyramid 关系图表类型的基础。

msoDiagramRadial 显示核心元素关系的图表类型。

msoDiagramTarget 显示目标实现步骤的图表类型。

msoDiagramVenn 显示元素之间重叠区域的图表类型。

示例

本示例向活动工作表添加一个射线式图表，然后将其转换成目标图表。

Sub ConvertDiagram()

    Dim wksSheet As Worksheet
    Dim shDiagram As Shape

    Set wksSheet = ActiveSheet
    Set shDiagram = wksSheet.Shapes.AddDiagram( _
        Type:=msoDiagramRadial, _
        Left:=20, Top:=40, _
        Width:=400, Height:=200)

    ' Fill the diagram to make it visible to the user
    shDiagram.Fill.Visible = msoTrue

    ' Convert the diagram.
    shDiagram.Diagram.Convert Type:=msoDiagramTarget

End Sub