Powerpoint VBA 更改圖表內的所有文本顏色

Question

我有一個宏，可以將 excel 中的圖表粘貼到 powerpoint 中，但是根據它所使用的幻燈片，字體顏色有時會發生變化（盡管使用源格式粘貼 - 不能使用元文件等，因為需要它易於編輯）。

因此，粘貼后我想將所有文本的顏色更改為黑色。

我已經用圖表的某些部分來管理這個 - 例如標題和圖例，但在其他區域中掙扎 - 或者理想的方式是一次改變它。

我所擁有的是：

    activeShape.Chart.ChartTitle.Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 0, 0)
    activeShape.Chart.Legend.Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 0, 0)

但是然后嘗試用這樣的東西做整個圖表是行不通的（我得到'指定的值超出范圍'）：

    activeShape.Chart.ChartArea.Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 0, 0)

誰能幫助我一次更改圖表中的所有文本顏色？

謝謝

Answer 1

嘗試：

activeShape.Chart.ChartArea.Font.Color = vbBlack