Word VBA教程:Convert方法

应用于 Diagram对象的 Convert方法。

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

expression.Convert(Type)

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

Type  MsoDiagramType,必需。转换后的图表类型。

MsoDiagramType 可以是下列 MsoDiagramType 常量之一:
msoDiagramCycle  显示连续循环的过程。
msoDiagramMixed  不应用于该方法。
msoDiagramOrgChart  显示等级关系。
msoDiagramPyramid  显示基于基础的关系。
msoDiagramRadial  显示核心元素的关系。
msoDiagramTarget  显示达到目标的步骤。
msoDiagramVenn  显示元素间重叠的区域。

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

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

expression.Convert

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

应用于 ListTemplate对象的 Convert方法。

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

expression.Convert(Level)

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

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

说明

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

VBA示例

当应用于 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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号