PowerPoint VBA Cell Shading

Question

Ich bin auf der Suche nach einem VBA-Code für PowerPoint, der die Farben von Zellen in einer Tabelle abhängig von ihren Werten ändert.

Zum Beispiel "-2" als Rot, "0" als Gelb und "+1" als Grün. Und wenn diese Bedingungen nicht erfüllt sind, ändern Sie keine Farben.

Vielen Dank!

Answer 1

Sie können so etwas wie diese, nicht den gesamten Code, den Sie brauchen, aber das sollte Ihnen helfen:.

With With ActivePresentation.Slides(1).Shapes(3).Table 
    If .Cell(y, x).Shape.Fill.BackColor.RGB <> -2 And .Cell(y, x).Shape.Fill.BackColor.RGB <> 0 _ 
    And .Cell(y, x).Shape.Fill.BackColor.RGB <> 1 Then  'You might have to check an other BackGround property 
     .Cell(y, x).Shape.Fill.ForeColor.ObjectThemeColor = 'something 
    End If 
End With 

Gerade Schleife durch alle unsere Zellen (erhöhen y und x auf den Maximalwert von coloumns und Zeilen)