将某种类型的图表转换为另一种类型的图表。
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 方法。
本示例创建一个三维棱锥图,然后将其转换为雷达图。
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
本示例将活动文档中所有的尾注转换为脚注。
Set endDocEndnotes = ActiveDocument.Endnotes
If endDocEndnotes.Count > 0 Then myEndnotes.Convert
本示例将选定内容的脚注转换为尾注。
If Selection.Footnotes.Count > 0 Then Selection.Footnotes.Convert
本示例转换活动文档中第一个列表模板。如果是多级列表模板,则将其转换为单级。如果是单级列表模板,则将其转换为多级。
ActiveDocument.ListTemplates(1).Convert