代码之家 › 专栏 › 技术社区 › Kram Kramer

如何通过vba代码将Chart xAxes字体颜色从黑色更改为红色?

charts graph vba excel

Kram Kramer · 技术社区 · 5 月前

如何更改Chart xAxes字体颜色黑色到红色通过vba代码?

下图显示了我的问题。

我尝试了以下代码,但没有成功。

Public Sub Macro1()

'Delete all charts
For i = ActiveSheet.Shapes.Count To 1 Step -1
    If ActiveSheet.Shapes(i).Type = msoChart Then
        ActiveSheet.Shapes(i).Delete
    End If
Next i

'Add a chart.
With ActiveSheet.ChartObjects.Add(Left:=10, Top:=10, Width:=600, Height:=400)
    .Chart.ChartArea.Format.TextFrame2.TextRange.Font.Size = 20
End With

'Add a serie.
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection.NewSeries
    .ChartType = xlLine
    .XValues = Array(1, 2, 3, 4, 5)
    .Values = Array(150000, 20000, 80000, 120000)
End With

'Axes(xlValue) settings.
With ActiveSheet.ChartObjects(1).Chart.Axes(xlValue)
    'The following line throws an error. How to solve this error?
    '.Format.TextFrame2.TextRange.Font.Fill.ForeColor.RGB = vbRed
End With

End Sub

1 回复 | 直到 5 月前

Tim Williams 5 月前

例如:

Dim cht As Chart
Set cht = ActiveSheet.ChartObjects(1).Chart
cht.Axes(xlValue).TickLabels.Font.Color = vbRed

推荐文章

Kram Kramer · 通过vba自动调整文本大小以适应形状

4 月前

Swapnil Supekar · 将二维阵列转换为一维阵列,并将一维阵列粘贴到另一张图纸上

4 月前

Eric · 我有邮政编码替换问题Excel VBA

4 月前

Chasester · VBA使用嵌套的DIV抓取URL

4 月前

jkp · 特殊字符复选标记

4 月前

Iron Man · 代码插入和复制到错误的工作表

4 月前

NoFafo · 将文本框放入数组进行格式化

4 月前

Smokestack · 过滤器范围C3:G3并粘贴到其他单元格

4 月前

Julie S. · Excel VBA for循环的代码帮助,用于检查多个ListBoxes是否有值?

5 月前

Kram Kramer · 如何通过vba代码将Chart xAxes字体颜色从黑色更改为红色?

5 月前