web-dev-qa-db-ja.com

PowerPointテーブルの条件付き書式

この質問 に関連して、PowerPointのテーブルに条件付き書式を適用する方法があるかどうか疑問に思いますをインポートせずにExcelテーブル。例えば。テーブル内のセルの値に応じて、セルの背景色を変更します。

microsoft-powerpointconditional-formattingmicrosoft-powerpoint-2013
2
eirikdaude

はい。ただし、ある種のコード/マクロを介してのみです。テーブルの.Cellコレクションを繰り返し処理し、各セルにテキストがあることを確認します。テキストがある場合は、数値に変換されたテキストの値が0未満の場合は、セルの.Shape塗りつぶしを好きなように設定します。これにテーブルへの参照を渡します。次に例を示します。

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

    With oTbl
    For x = 1 To .Rows.Count
    For y = 1 To .Columns.Count
        If .Cell(x, y).Shape.TextFrame.HasText Then
        If CDbl(.Cell(x, y).Shape.TextFrame.TextRange.Text) < 0 Then
            .Cell(x, y).Shape.Fill.ForeColor.RGB = RGB(255, 0, 0)
        End If
        End If
    Next    ' Column
    Next    ' Row
    End With    ' otbl
End Sub
2
Steve Rindsberg