Условное форматирование PowerPoint-таблицы
В связи с этим вопросом мне интересно, есть ли способ применить условное форматирование к таблице в PowerPoint, не импортируя таблицу Excel. Например, чтобы изменить цвет фона ячейки в таблице в зависимости от значения в ней.
1 ответ
Да, но только с помощью какого-либо кода / макроса. Вы перебираете коллекцию таблицы.Cell, проверяете, есть ли в каждой ячейке текст, и если да, то если значение текста, преобразованного в числовое значение, равно < 0, то установите заполнение ячейки.Shape так, как вам нравится. Передайте ссылку на таблицу этому, например:
Sub FormatTheTable(oTbl As Table)
Dim x As Long
Dim y As Long
With oTbl
For x = 1 To .Rows.Count
For y = 1 To .Columns.Count
If .Cell(x, y).Shape.TextFrame.HasText Then
If CDbl(.Cell(x, y).Shape.TextFrame.TextRange.Text) < 0 Then
.Cell(x, y).Shape.Fill.ForeColor.RGB = RGB(255, 0, 0)
End If
End If
Next ' Column
Next ' Row
End With ' otbl
End Sub