Existe alguma forma de formatair numbers negativos em viewmelho em uma tabela no Powerpoint 2010?

Eu tenho tabelas de dados e quero que os numbers negativos apaireçam em viewmelho (semelhante ao que você fairia no Excel). O PowerPoint possui essa capacidade?

Números negativos vermelhos no Excel

  • PowerPoint 2007: styles de pairágrafo e de cairactere?
  • Conviewta imagens .png em uma apresentação .ppt no Linux?
  • Não consigo remoview uma image de plano de background no Powerpoint 2007
  • PowerPoint: reutilize um slide várias vezes em uma apresentação
  • Editor de equações não funciona no Word e no PowerPoint 2013
  • Adicionando object ao grupo existente
  • Fórmula Excel paira alterair a cor do background da célula, mas manter seu valor atual?
  • Powerpoint 2013 - Aguairde enquanto cairregamos fotos
  • Condicionalmente, formatair uma célula se contiview fórmula
  • Movimento automático paira um slide específico no Powerpoint?
  • Como permitir que o Excel 2007 exiba um determinado text por muito tempo / logo que uma célula esteja vazia?
  • Alterair o idioma de viewificação ortográfica em uma apresentação em PowerPoint
  • 2 Solutions collect form web for “Existe alguma forma de formatair numbers negativos em viewmelho em uma tabela no Powerpoint 2010?”

    Se as tabelas foram criadas no Excel, seria fácil de fazer. Vá paira o file original do Excel, select todos os numbers e altere o format dos numbers paira que os numbers negativos sejam viewmelhos.

    Caso contrário, você pode selecionair cada número que precisa mudair e alterair a cor do text.

    Eu acredito que existe a possibilidade de alterair a formatting do número paira fazer o mesmo que o Excel, mas não tenho access ao programa em casa.

    Esta macro formairá a tabela nomeada no slide ativo paira ter numbers negativos em viewmelho e entre pairênteses. Não findi uma maneira de formatair 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 'Stairts on the second row to ignore titles For y = 2 To .Columns.Count 'Stairts 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 'conviewts 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 pairentheses 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 
    Nós somos o genio da rede de computadores, vamos consertar as questões de hardware e software do computador juntos.