Question

我想使用此代码

Sub PieMarkers()

Dim chtMarker As Chart
Dim chtMain As Chart
Dim intPoint As Integer
Dim rngRow As Range
Dim lngPointIndex As Long
Dim x As Long
Dim myTheme As String

Application.ScreenUpdating = False
Set chtMarker = ActiveSheet.ChartObjects("chtMarker").Chart
Set chtMain = ActiveSheet.ChartObjects("chtMain").Chart

Set chtMain = ActiveSheet.ChartObjects("chtMain").Chart
Set rngRow = Range(ThisWorkbook.Names("PieChartValues").RefersTo)

For Each rngRow In Range("PieChartValues").Rows
    chtMarker.SeriesCollection(1).Values = rngRow
    SetColorScheme chtMarker, x
    chtMarker.Parent.CopyPicture xlScreen, xlPicture
    lngPointIndex = lngPointIndex + 1
    chtMain.SeriesCollection(1).Points(lngPointIndex).Paste
    x=x+1
    Debug.Print rngColors.address()
Next

lngPointIndex = 0

Application.ScreenUpdating = True
End Sub


 Sub SetColorScheme(cht As Chart, i As Long)

    Dim y_off As Long, rngColors As Range
    Dim x As Long

    y_off = i Mod 13

    'this is the range of cells which has the colors you want to apply
    Set rngColors = ThisWorkbook.Sheets("Basic").Range(ThisWorkbook.Sheets("Basic").Range("A19").Value).Offset(y_off, 0)

    With cht.SeriesCollection(1)
        'loop though the points and apply the corresponding fill color from the cell
        For x = 1 To .Points.Count
            .Points(x).Format.Fill.ForeColor.RGB = _
                             rngColors.Cells(x).Interior.Color
        Next x
    End With

End Sub

根据工作簿中指定的颜色（用作工作表中单元格的背景颜色的颜色）为几个饼图着色，所有饼图具有相同数量的切片（每个3个，8个饼图）。这是子颜色方案。

代码编译没有错误，问题只是它只使用范围内的第一个指定颜色（例如A10：Z10，只有A10和B10中的颜色为8个饼图中的所有部分着色（24个sclices in A10和B10两种颜色的总和。有人可以告诉我需要改变什么，以便使用不同切片的A10到X10的整个颜色范围（24种不同的颜色）？

Answer 1

似乎For loop that use cht.SeriesCollection(1).Points.Count作为边界不会超过两次迭代。

您应该使用特定于要从中检索颜色的单元格区域的内部循环，如果颜色较少，则使用if条件语句。

图表着色的代码错误

1 个答案: