PowerPoint VBA教程:HasDiagram属性

如果形状是图示,则使用 MsoTrue属性值。只读。MsoTriState 类型。

MsoTriState 可以是下列 MsoTriState 类型常数之一。
msoCTrue 不应用于此属性。
msoFalse 此形状不是图示。
msoTriStateMixed 不应用于此属性。
msoTriStateToggle 不应用于此属性。
msoTrue 此形状是图示。

expression.HasDiagram

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

VBA示例

本示例搜索当前文档查找带有节点的图示,如果发现了带有节点的图示,则创建一个带有白色粗体文字的黑色气球。


Sub HasDiagramProperties()
    Dim shpDiagram As Shape
    Dim shpNode As DiagramNode
    Dim shpBalloon As Shape
    Dim sldFirst As Slide
    Set sldFirst = ActivePresentation.Slides(1)
    'Looks through the current document and when it finds a diagram
    'with one or more diagram nodes, creates a balloon with text
    For Each shpDiagram In sldFirst.Shapes
        If shpDiagram.HasDiagram = msoTrue And _
            shpDiagram.HasDiagramNode = msoTrue Then
                Set shpBalloon = sldFirst.Shapes.AddShape( _
                    Type:=msoShapeBalloon, Left:=350, _
                    Top:=75, Width:=150, Height:=150)
                With shpBalloon
                    With .TextFrame
                        .WordWrap = msoTrue
                        With .TextRange
                            .Text = "This is a diagram with nodes."
                            .Font.Color.RGB = RGB(Red:=255, _
                                Green:=255, Blue:=255)
                            .Font.Bold = True
                            .Font.Name = "Tahoma"
                            .Font.Size = 15
                        End With
                    End With
                    .Line.BackColor.RGB = RGB( _
                        Red:=0, Green:=25, Blue:=25)
                    .Fill.ForeColor.RGB = RGB( _
                        Red:=0, Green:=25, Blue:=25)
                End With
        End If
    Next shpDiagram
End Sub

上页:PowerPoint VBA教程:HasChildShapeRange属性 下页:PowerPoint VBA教程:HasDiagramNode属性

PowerPoint VBA教程:HasDiagram属性

PowerPoint VBA教程:HasDiagramNode属性 PowerPoint VBA教程:HasRevisionInfo属性
PowerPoint VBA教程:HasTable属性 PowerPoint VBA教程:HasText属性
PowerPoint VBA教程:HasTextFrame属性 PowerPoint VBA教程:HasTitle属性
PowerPoint VBA教程:HasTitleMaster属性 PowerPoint VBA教程:Header属性
PowerPoint VBA教程:HeadersFooters属性 PowerPoint VBA教程:Height属性
PowerPoint VBA教程:Hidden属性 PowerPoint VBA教程:HideWhileNotPlaying属性
PowerPoint VBA教程:HorizontalAnchor属性 PowerPoint VBA教程:HorizontalFlip属性
PowerPoint VBA教程:HTMLProject属性 PowerPoint VBA教程:HTMLVersion属性
PowerPoint VBA教程:Hyperlink属性 PowerPoint VBA教程:Hyperlinks属性
PowerPoint VBA教程:Id属性 PowerPoint VBA教程:IncludeNavigation属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号