Pemformatan bersyarat tabel PowerPoint

Terkait dengan pertanyaan ini , saya bertanya-tanya apakah ada cara untuk menerapkan pemformatan bersyarat ke tabel di PowerPoint, tanpa mengimpor tabel-Excel. Misalnya untuk mengubah warna latar belakang sel dalam tabel tergantung pada nilai di dalamnya.

microsoft-powerpoint conditional-formatting microsoft-powerpoint-2013

— eirikdaude
sumber

Ya, tetapi hanya melalui semacam kode / makro. Anda akan mengulangi melalui koleksi .Cell dari tabel, periksa untuk melihat bahwa setiap sel memiliki teks dan jika demikian, jika nilai teks yang dikonversi ke numerik adalah <0, kemudian atur .Shape sel untuk mengisi apa pun yang Anda suka. Berikan referensi ke tabel untuk ini, misalnya:

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

— Steve Rindsberg
sumber

Bagaimana Anda menangkap perubahan di tabel? Telah melihat sesuatu yang mirip dengan apa yang Anda sarankan saat googling, tetapi menangkap perubahan-acara tabel tampak seperti mimpi buruk absolut. Saya bisa saja salah, tentu saja.

— eirikdaude

Anda bisa salah. Di alam semesta alternatif, mungkin. Yang ini, Anda benar sekali. Tidak ada acara perubahan untuk tabel atau bentuk khusus lainnya. Tentang yang terbaik yang dapat Anda lakukan adalah menjebak acara perubahan Seleksi, dan JIKA bentuk dipilih, periksa untuk melihat apakah itu tabel dan catat fakta itu (dalam variabel atau apa pun, dengan referensi ke bentuk). Kemudian pada acara perubahan pemilihan berikutnya, lihat apakah pemilihan tidak lagi tabel yang sama, dan jika demikian, jalankan kode di atasnya untuk melakukan perubahan format yang diperlukan. PowerPoint <> Excel.

— Steve Rindsberg