代码之家 › 专栏 › 技术社区 › 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

推荐文章

Rosie Lomas · 在ggplot中设置数字刻度

2 年前

Mahin Rahman · 我的培训和测试图表保持不变,有人能帮我解释一下,或者解释一下我哪里出错了?

3 年前

nedlaback · 在O(V+E)图中寻找瓶颈边

7 年前

Skampak · R visNetwork:创建新类型的边

7 年前

Habil Ganbarli · 在完整图上进行MST聚类(用于余弦相似性)

7 年前

Vaibhav · 在r Shinny中的Visnetwork中撤消单击事件

7 年前

Anuja · 长度l在R中的最短路径

7 年前

Cbhihe · 优化Neo4j查询,有条件地创建新关系

7 年前

fghjk · 绘制轨迹(python)

7 年前

LBerger · 计算图形图像中的名称使用(TensorBoard)

7 年前