Условное форматирование 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
Другие вопросы по тегам