Question

全部显示

应用于 Diagram 对象的 Convert 方法。

将某种类型的图表转换为另一种类型的图表。

expression.Convert(Type)

expression 必需。该表达式返回一个 Diagram 对象。

TypeMsoDiagramType，必需。转换后的图表类型。

MsoDiagramType 可以是下列 MsoDiagramType 常量之一：

msoDiagramCycle 显示连续循环的过程。

msoDiagramMixed 不应用于该方法。

msoDiagramOrgChart 显示等级关系。

msoDiagramPyramid 显示基于基础的关系。

msoDiagramRadial 显示核心元素的关系。

msoDiagramTarget 显示达到目标的步骤。

msoDiagramVenn 显示元素间重叠的区域。

应用于 Endnotes 和 Footnotes 对象的 Convert 方法。

将尾注转换为脚注，或将脚注转换为尾注。

expression.Convert

expression 必需。该表达式返回以上的一个对象。

应用于 ListTemplate 对象的 Convert 方法。

将多级列表转换为单级列表，或将单级列表转换为多级列表。

expression.Convert(Level)

expression 必需。该表达式返回一个 ListTemplate 对象。

LevelVariant 类型，可选。新列表格式中的级别。将多级列表转换为单级列表时，该参数可以是 1 至 9 之间的数字。将单级列表转换为多级列表时，1 是唯一的有效值。如果忽略该参数，则默认值为 1。

说明

不能在来源于 ListGalleries 集合的列表模板上使用 Convert 方法。

示例

当应用于 Diagram 对象时。

本示例创建一个三维棱锥图，然后将其转换为雷达图。

Sub CreatePyramidDiagram()
    Dim dgnNode As DiagramNode
    Dim shpDiagram As Shape
    Dim intCount As Integer

    'Add pyramid diagram to current document
    Set shpDiagram = ThisDocument.Shapes.AddDiagram( _
        Type:=msoDiagramPyramid, Left:=10, _
        Top:=15, Width:=400, Height:=475)

    'Add four child nodes to the diagram
    Set dgnNode = shpDiagram.DiagramNode.Children.AddNode
    For intCount = 1 To 3
        dgnNode.AddNode
    Next intCount

    With dgnNode.Diagram

        'Automatically formats the diagram
        .AutoFormat = msoTrue

        'Converts the diagram from a pyramid to a radial diagram
        .Convert Type:=msoDiagramRadial
    End With

End Sub

当应用于 Endnotes 对象时。

本示例将活动文档中所有的尾注转换为脚注。

Set endDocEndnotes = ActiveDocument.Endnotes
If endDocEndnotes.Count > 0 Then myEndnotes.Convert

当应用于 Footnotes 对象时。

本示例将选定内容的脚注转换为尾注。

If Selection.Footnotes.Count > 0 Then Selection.Footnotes.Convert

当应用于 ListTemplate 对象时。

本示例转换活动文档中第一个列表模板。如果是多级列表模板，则将其转换为单级。如果是单级列表模板，则将其转换为多级。

ActiveDocument.ListTemplates(1).Convert