2025年2月25日 星期二

VBA:ChartObjects X軸 文字設定(ActiveChart.Axes(xlCategory))

設置圖表1的X軸標籤的文字大小

ActiveSheet.ChartObjects("圖表 1").Activate

 With ActiveChart.Axes(xlCategory).TickLabels.Font

    .Size = 12 ' 設置字體大小為 12

End With

修改標籤的標題文字大小、字體、顏色

With ActiveChart.ChartTitle.Font

    .Name = "Arial" ' 字體名稱

    .FontStyle = "Bold" ' 字體樣式

    .Size = 14 ' 字體大小

    .Color = RGB(255, 0, 0) ' 字體顏色

End With

其他常見的修改與方式:

'修改字體種類

ActiveChart.Axes(xlCategory).TickLabels.Font.Name = "Arial"

'粗體

ActiveChart.Axes(xlCategory).TickLabels.Font.Bold = True

'斜體

ActiveChart.Axes(xlCategory).TickLabels.Font.Italic = True

'底線

ActiveChart.Axes(xlCategory).TickLabels.Font.Underline = xlUnderlineStyleSingle


沒有留言:

張貼留言

職場毒癌:你憑什麼以為你十年寒窗,抵得我三代從商

你憑什麼以為你十年寒窗,抵得我三代從商——這句話已經記不得是從哪裡看到的,可能是某部劇,也可能是某篇 FB 文章標題。 但最近,特別有感。 為什麼會有這種感觸? 職場上有個同事,一路慢慢升到課長,好歹也是管理職,雖說不上鐵飯碗,但在多數人眼裡也算穩定。 結果呢?輾轉換了兩個製造課...