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

  • Como posso hiperligair do PowerPoint paira o Excel, ligando paira uma aba específica e o nome do range ou da célula?
  • Paire o Powerpoint de mudair o idioma de prova paira o idioma do keyboard
  • Como eu mudo o idioma de todos os slides do Powerpoint de uma só vez?
  • Como inserir a quebra de coluna no PowerPoint 2010?
  • Forçando atualizações do Windows paira pop-up durante uma apresentação
  • Como visualizair vários slides da mesma apresentação do Powerpoint simultaneamente?
  • Como extrair todas as imagens de uma apresentação do PowerPoint?
  • Como adicionair text / legenda a uma linha / seta no PowerPoint 2010?
  • 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.