Table.Style (PowerPoint)

Returns a TableStyle object that contains information about the specified table's current table style.

Dim tblstyStyle As TableStyle
Set tblstyStyle = ActiveWindow.RangeFromPoint.Table.Style