如果已选择指定的表格单元格,则属性值为 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