Умовне форматування таблиці PowerPoint

Зв'язане з цим питанням , мені цікаво, чи є спосіб застосувати умовне форматування до таблиці в PowerPoint, не імпортуючи таблицю Excel. Наприклад, щоб змінити колір фону комірки в таблиці залежно від значення в ній.

Так, але тільки через якийсь код / ​​макрос. Ви перейдете через колекцію таблиці .Cell, перевірте, чи є в кожній комірці текст, і якщо так, якщо значення тексту, перетвореного на числове, становить <0, то встановіть клітинку. Передайте посилання на цю таблицю, наприклад:

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