首页 > 解决方案 > 如何在 Excel 图表的水平轴上每 6 个单位使标签变为红色?

问题描述

抱歉,我不能发布图片,所以这里是我的图表图片的链接:

在此处输入图像描述

我想让 206T3、205T1、203T3 和 202T1 变成红色,特别是 RGB 值(192、80、77)的红色。就像,我希望这四个索引的文本是图表上的红色。我怎么做?

太感谢了!

编辑:我很抱歉没有发布我的代码!

Sub Macro1()

    Dim HelpMePlease_Chart As Chart

    Set HelpMePlease_Chart = Charts.Add

    With HelpMePlease_Chart
        .SetSourceData Source:=ThisWorkbook.Worksheets("Sheet1").Range("$A$1:$C$24")
        .ChartType = xlLineMarkers
        .Axes(xlValue).TickLabels.NumberFormat = "#,##0.0"
        .Axes(xlCategory).TickLabels.Orientation = xlUpward
        .Axes(xlCategory).AxisBetweenCategories = False
        .SetElement (msoElementChartTitleNone)
        .SetElement (msoElementLegendNone)
        .SetElement (msoElementPrimaryCategoryGridLinesMajor)
        .SetElement (msoElementPrimaryValueGridLinesMinorMajor)
        .SetElement (msoElementPrimaryCategoryGridLinesMinorMajor)
        .FullSeriesCollection(1).MarkerStyle = 8
        .FullSeriesCollection(1).MarkerSize = 5
        .FullSeriesCollection(2).MarkerStyle = 1
        .FullSeriesCollection(2).MarkerSize = 5
        .Location Where:=xlLocationAsObject, Name:="Sheet1"
    End With

End Sub

这是我的数据,从 A1 到 C24(对不起,我不知道如何发布数据;我希望这没问题):

202T1   0.391247362 2.834369777
202T2   0.691781786 2.666707207
202T3   0.872761164 2.330032099
202T4   1.057514239 2.251776009
203T1   1.088302698 2.125477081
203T2   1.143134672 2.058478339
203T3   1.230010336 1.898660815
203T4   1.352647337 1.825980361
204T1   1.407629265 1.625067932
204T2   1.604651381 1.429848476
204T3   1.660545527 1.429355775
204T4   1.625135728 1.358984468
205T1   1.591302544 1.433342365
205T2   1.421485471 1.627178459
205T3   1.308766495 1.742698395
205T4   1.285293375 1.767906794
206T1   1.286042017 1.90493934
206T2   1.370711841 1.878064404
206T3   1.527638431 1.841714946
206T4   1.699015299 1.766386414
207T1   2.241359446 1.547066284
207T2   2.620694291 1.339110863
207T3   3.219738778 1.015269389
207T4   3.894292001 0.683653342

很抱歉——我没有意识到我需要提供代码!实际上我最初是通过 GUI 完成所有操作的,所以我没有任何代码,但现在就在这里!

标签: excelvba

解决方案


推荐阅读