Selected Property

expression.Selected

expression    Required. An expression that returns one of the objects in the Applies To list.

Example

This example puts a border around the first cell in the specified table if the cell is selected.

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