Question

我正在尝试编写将格式化图表的代码（myChart）。系列第2和第4行是我需要格式化的2，所以它们的重量= 1.我试过没有运气。

myChart.fullseriescollection(2).format.line.weigth = 1

我对VBA很新，我之前从未尝试过引用图表对象，所以我不熟悉正确的语法。

谢谢！请参阅下面的代码。

Sub myChart()

Dim myChart As Chart, cht As ChartObject
Dim rngChart As Range, destSht As String
Dim rngData As Range

destSht = ActiveSheet.Name
Set myChart = Charts.Add
Set myChart = myChart.Location(where:=xlLocationAsObject, Name:=destSht)

With ActiveSheet.ListObjects("Table1").DataBodyRange
    Set rngData = Union(.Columns(2), .Columns(9), .Columns(10), .Columns(11), .Columns(12))
End With

With myChart
.SetSourceData Source:=rngData, PlotBy:=xlColumns
.ChartType = xlColumnClustered
.ChartStyle = 209

*****Below is the first series line that I want to format*****
With .FullSeriesCollection(2)
    .ChartType = xlLine
    .AxisGroup = 1
End With

With .FullSeriesCollection(3)
    .ChartType = xlLineMarkers
    .AxisGroup = 2
End With

*****2nd line I want to format*****
With .FullSeriesCollection(4)
    .ChartType = xlLine
    .AxisGroup = 2
End With
End With

ActiveSheet.ChartObjects(1).Activate

Set cht = ActiveChart.Parent
Set rngChart = Range("A1100:K1115")

cht.Left = rngChart.Left
cht.Top = rngChart.Top
cht.Width = rngChart.Width
cht.Height = rngChart.Height

Range("A2").Select

End Sub

Answer 1

With .FullSeriesCollection(2)
    .ChartType = xlLine
    .AxisGroup = 1
    .Format.Line.Weight = 5
End With

在Office 2016中为我工作得很好。

我会评论，但我还没有足够的声誉

excel VBA图表格式 - 需要更改线条的宽度

1 个答案: