Есть ли способ отформатировать отрицательные числа красным цветом в таблице в Powerpoint 2010?

Question

У меня есть таблицы данных, и я хочу, чтобы отрицательные числа отображались красным цветом (аналогично тому, что вы сделали бы в Excel). Есть ли в PowerPoint такая возможность?

Answer 1

Если бы таблицы были созданы в Excel, это было бы легко сделать. Перейдите в исходный файл Excel, выберите все числа и измените формат чисел так, чтобы отрицательные числа были красными.

В противном случае вы можете выбрать каждый номер, который нужно изменить, и изменить цвет текста.

Я считаю, что есть также возможность изменить форматирование номера так же, как в Excel, но у меня нет доступа к программе дома.

Answer 2

Этот макрос отформатирует именованную таблицу на активном слайде, чтобы иметь отрицательные числа красным цветом и в скобках. Я не нашел способ отформатировать таблицу вручную.

Sub FormatTheTable() 
            Dim x As Long
            Dim y As Long

        With ActivePresentation.Slides(4).Shapes("Table 540").Table  ' Table 540 is the name of the shape/table

            For x = 2 To .Rows.Count     'Starts on the second row to ignore titles
            For y = 2 To .Columns.Count   'Starts on the second column to ignore titles
                If .Cell(x, y).Shape.TextFrame.HasText Then  'Checks that the cell has text

                    If CDbl(Val(.Cell(x, y).Shape.TextFrame.TextRange.Text)) < 0 Then 'converts text to a double and evaluates it to be less than zero
                        .Cell(x, y).Shape.TextFrame.TextRange.Text = CDbl(Val(.Cell(x, y).Shape.TextFrame.TextRange.Text)) * -1 'multiply by negative 1 to remoe the negative sign
                        .Cell(x, y).Shape.TextFrame.TextRange.Font.Color = RGB(255, 0, 0) 'Change font color to red
                        .Cell(x, y).Shape.TextFrame.TextRange.Font.Bold = True  'Makes the font bold
                        .Cell(x, y).Shape.TextFrame.TextRange.Text = "(" & .Cell(x, y).Shape.TextFrame.TextRange.Text & ")"  'Adds parentheses
                    Else
                        .Cell(x, y).Shape.TextFrame.TextRange.Font.Color = RGB(0, 0, 0) ' makes the non-negative numbers font color black
                        .Cell(x, y).Shape.TextFrame.TextRange.Font.Bold = True   'Makes the font bold
                    End If
                End If
            Next    ' Column
            Next    ' Row
        End With    ' otbl
End Sub