Existe alguma maneira de formatar números negativos em vermelho em uma tabela no Powerpoint 2010?

Question

Eu tenho tabelas de dados e quero que os números negativos apareçam em vermelho (semelhante ao que você faria no Excel). O PowerPoint tem essa capacidade?

    

Answer 1

Se as tabelas fossem criadas no Excel, seria fácil de fazer. Vá para o arquivo original do Excel, selecione todos os números e altere o formato dos números para que os números negativos fiquem vermelhos.

Caso contrário, você pode selecionar cada número que precisar alterar e alterar a cor do texto.

Eu acredito que há também a possibilidade de alterar a formatação do número para fazer o mesmo que o Excel, mas não tenho acesso ao programa em casa.

    

Answer 2

Esta macro formatará a tabela nomeada no slide ativo para ter números negativos em vermelho e entre parênteses. Eu não encontrei uma maneira de formatar a tabela manualmente.

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