有没有办法在 Powerpoint 2010 的表格中将负数格式化为红色？

Question

我有数据表，我想让负数显示为红色（类似于在 Excel 中执行的操作）。PowerPoint 有此功能吗？

Answer 1

此宏将格式化活动幻灯片上的命名表格，使其负数以红色显示在括号内。我还没有找到手动格式化表格的方法。

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

Answer 2

如果表格是在 Excel 中创建的，那么操作起来就很容易了。转到原始 Excel 文件，选择所有数字，然后更改数字的格式，使负数显示为红色。

否则，您可以选择需要更改的每个数字并更改文本颜色。

我相信也可以通过改变数字的格式来实现与 Excel 相同的效果，但我在家里无法使用该程序。

Answer 3

一种方法是使用 Excel 中的条件格式。选择要使用条件格式的单元格 (家->条件格式->新规则->仅格式化包含以下内容的单元格->选择单元格值小于零并将其格式化为红色) 将所有小于零的数字变为红色。现在，当您将表格粘贴到 PowerPoint 中时，它会将负数显示为红色。