PowerPoint VBA教程:Convert方法

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

expression.Convert(Type)

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

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

MsoDiagramType 可以是下列 MsoDiagramType 类型常数之一。
msoDiagramCycle
msoDiagramMixed
msoDiagramOrgChart
msoDiagramPyramid
msoDiagramRadial
msoDiagramTarget
msoDiagramVenn

说明

如果目标图示的Type属性值为一组织结构图 (msoDiagramTypeOrgChart),该方法将产生一个错误。

VBA示例

以下示例将一个棱锥图添加到幻灯片中并将其转换为射线图。


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

上页:PowerPoint VBA教程:Colors方法 下页:PowerPoint VBA教程:ConvertToAfterEffect方法

PowerPoint VBA教程:Convert方法

PowerPoint VBA教程:ConvertToAfterEffect方法 PowerPoint VBA教程:ConvertToAnimateBackground方法
PowerPoint VBA教程:ConvertToAnimateInReverse方法 PowerPoint VBA教程:ConvertToBuildLevel方法
PowerPoint VBA教程:ConvertToShape方法 PowerPoint VBA教程:ConvertToTextUnitEffect方法
PowerPoint VBA教程:Copy方法 PowerPoint VBA教程:CreateNewDocument方法
PowerPoint VBA教程:CustomDrop方法 PowerPoint VBA教程:CustomLength方法
PowerPoint VBA教程:Cut方法 PowerPoint VBA教程:Delete方法
PowerPoint VBA教程:DeleteText方法 PowerPoint VBA教程:DiscardConflict Method
PowerPoint VBA教程:Distribute方法 PowerPoint VBA教程:DoVerb方法
PowerPoint VBA教程:DrawLine方法 PowerPoint VBA教程:Duplicate方法
PowerPoint VBA教程:EndConnect方法 PowerPoint VBA教程:EndDisconnect方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号