PowerPoint VBA教程:TextShape属性

返回Shape对象,该对象代表与图示节点相关联的文本框的形状。

expression.TextShape

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

VBA示例

以下示例向一个父节点添加子节点,并在每个子节点中显示创建其的编号。


Sub CountChildNodes()
    Dim dgnNode As DiagramNode
    Dim shpDiagram As Shape
    Dim intNodes As Integer
    Dim shpText As Shape
    'Adds diagram and first node to first slide
    Set shpDiagram = ActivePresentation.Slides(1).Shapes _
        .AddDiagram(Type:=msoDiagramRadial, Left:=200, Top:=75, _
        Width:=300, Height:=475)
    Set dgnNode = shpDiagram.DiagramNode.Children.AddNode
    'Adds three child nodes to first node
    For intNodes = 1 To 3
        dgnNode.Children.AddNode
    Next intNodes
    'Enters node number into each child node
    For intNodes = 1 To dgnNode.Children.Count
        Set shpText = shpDiagram.DiagramNode.Children(1) _
            .Children(intNodes).TextShape
        shpText.TextFrame.TextRange.Text = CStr(intNodes)
    Next intNodes
End Sub

上页:PowerPoint VBA教程:TextRangeStart属性 下页:PowerPoint VBA教程:TextStyles属性

PowerPoint VBA教程:TextShape属性

PowerPoint VBA教程:TextStyles属性 PowerPoint VBA教程:TextToDisplay属性
PowerPoint VBA教程:TextUnitEffect属性 PowerPoint VBA教程:TextureName属性
PowerPoint VBA教程:TextureType属性 PowerPoint VBA教程:ThreeD属性
PowerPoint VBA教程:Time属性 PowerPoint VBA教程:TimeLine属性
PowerPoint VBA教程:Timing属性 PowerPoint VBA教程:TintAndShade属性
PowerPoint VBA教程:Title属性 PowerPoint VBA教程:TitleMaster属性
PowerPoint VBA教程:To属性 PowerPoint VBA教程:Top属性
PowerPoint VBA教程:ToX属性 PowerPoint VBA教程:ToY属性
PowerPoint VBA教程:Tracking属性 PowerPoint VBA教程:Transparency属性
PowerPoint VBA教程:TransparencyColor属性 PowerPoint VBA教程:TransparentBackground属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号