Excel VBA教程:TextShape属性

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

expression.TextShape

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

Excel VBA教程:TextShape属性·示例

下例向父节点添加一个子节点,并在父节点中显示指示了创建的子节点数的文本。


Sub CountChildNodes()
    Dim nodRoot As DiagramNode
    Dim shDiagram As Shape
    Dim intCount As Integer
    Dim shText As Shape
    Set shDiagram = ActiveSheet.Shapes.AddDiagram _
        (Type:=msoDiagramRadial, Left:=10, Top:=15, _
        Width:=400, Height:=475)
    Set nodRoot = shDiagram.DiagramNode.Children.AddNode
    ' Add 3 child nodes to the root node.
    For intCount = 1 To 3
        nodRoot.Children.AddNode
    Next
    ' Change text in node.
    For intCount = 1 To 4
        Set shText = shDiagram.DiagramNode.Children.Item(1).TextShape
        shText.TextFrame.Characters.Text = Str(intcount)
    Next intCount
End Sub

上页:Excel VBA教程:TextFrame属性 下页:Excel VBA教程:TextToDisplay属性

Excel VBA教程:TextShape属性

Excel VBA教程:TextToDisplay属性 Excel VBA教程:TextureName属性
Excel VBA教程:TextureType属性 Excel VBA教程:ThisCell属性
Excel VBA教程:ThisWorkbook属性 Excel VBA教程:ThousandsSeparator属性
Excel VBA教程:ThreeD属性 Excel VBA教程:ThrottleInterval属性
Excel VBA教程:TickLabelPosition属性 Excel VBA教程:TickLabels属性
Excel VBA教程:TickLabelSpacing属性 Excel VBA教程:TickMarkSpacing属性
Excel VBA教程:Time属性 Excel VBA教程:TintAndShade属性
Excel VBA教程:Title属性 Excel VBA教程:Top属性
Excel VBA教程:TopLeftCell属性 Excel VBA教程:TopMargin属性
Excel VBA教程:获取有关 Macintosh 关键字的帮助 Excel VBA教程:TotalLevels属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号