Selected 属性

       

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

expression.Selected

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

示例

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

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