PowerPoint VBA教程:Selected属性

如果已选择指定的表格单元格,则属性值为 True。只读。Boolean 类型。

expression.Selected

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

VBA示例

本示例中,如果指定表格的第一个单元格为选中状态,则在其周围放置边框。


Sub IsCellSelected()
    Dim celSelected As Cell
    Set celSelected = ActivePresentation.Slides(1).Shapes(1) _
        .Table.Columns(1).Cells(1)
    If celSelected.Selected Then
        With celSelected
            .Borders(ppBorderTop).DashStyle = msoLineRoundDot
            .Borders(ppBorderBottom).DashStyle = msoLineRoundDot
            .Borders(ppBorderLeft).DashStyle = msoLineRoundDot
            .Borders(ppBorderRight).DashStyle = msoLineRoundDot
        End With
    End If
End Sub

上页:PowerPoint VBA教程:SegmentType属性 下页:PowerPoint VBA教程:Selection属性

PowerPoint VBA教程:Selected属性

PowerPoint VBA教程:Selection属性 PowerPoint VBA教程:Shadow属性
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属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号