PowerPoint VBA教程:Shape属性

返回Shape对象,该对象代表表格单元格中的形状(Cell对象)、图示中的图示节点(DiagramNode对象)或具有动画效果的形状(Effect对象)。

expression.Shape

expression  必选。该表达式返回上述对象之一。

VBA示例

本示例在新演示文稿中创建一个 3x3 表格,并向表格的第一个单元格中插入一个十字星。


With Presentations.Add
    With .Slides.Add(1, ppLayoutBlank)
        .Shapes.AddTable(3, 3).Select
        .Shapes(1).Table.Cell(1, 1).Shape _
            .AutoShapeType = msoShape4pointStar
    End With
End With

以下示例创建一个图示并且向根节点添加子节点。在每个子节点添加完毕后,根节点将显示它所拥有的子节点数。


Sub CountChildNodes()
    Dim dgnNode As DiagramNode
    Dim shpDiagram As Shape
    Dim intNodes As Integer
    Set shpDiagram = ActivePresentation.Slides(1).Shapes.AddDiagram _
        (Type:=msoDiagramRadial, Left:=10, Top:=15, _
        Width:=400, Height:=475)
    shpDiagram.DiagramNode.Children.AddNode
    Set dgnNode = shpDiagram.DiagramNode.Root
    For intNodes = 1 To 3
        dgnNode.Children.AddNode
        dgnNode.Shape.TextFrame.TextRange.Text = intNodes
    Next intNodes
End Sub

上页:PowerPoint VBA教程:Shadow属性 下页:PowerPoint VBA教程:ShapeRange属性

PowerPoint VBA教程:Shape属性

PowerPoint VBA教程:ShapeRange属性 PowerPoint VBA教程:Shapes属性
PowerPoint VBA教程:ShowandReturn属性 PowerPoint VBA教程:ShowScrollbar属性
PowerPoint VBA教程:ShowSlideAnimation属性 PowerPoint VBA教程:ShowStartupDialog属性
PowerPoint VBA教程:ShowType属性 PowerPoint VBA教程:ShowWindowsInTaskbar属性
PowerPoint VBA教程:ShowWithAnimation属性 PowerPoint VBA教程:ShowWithNarration属性
PowerPoint VBA教程:Signatures属性 PowerPoint VBA教程:Size属性
PowerPoint VBA教程:Slide属性 PowerPoint VBA教程:SlideElapsedTime属性
PowerPoint VBA教程:SlideHeight属性 PowerPoint VBA教程:SlideID属性
PowerPoint VBA教程:SlideIDs属性 PowerPoint VBA教程:SlideIndex属性
PowerPoint VBA教程:SlideMaster属性 PowerPoint VBA教程:SlideNumber属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号