Tengo el siguiente código en el que el código intenta crear un gráfico de burbujas con gráficos circulares como las burbujas. Como en esta versión, los temas de color se utilizan para crear un color diferente en cada gráfico circular (burbuja) en la parte de la función. Tengo el problema de que funciona según las rutas a las paletas de colores.

¿Existe una manera fácil de hacer que la función funcione de manera independiente de esas rutas, ya sea codificando un color para cada segmento de gráfico circular o utilizando rutas estandarizadas (probablemente no es posible, no es preferible).

    Sub PieMarkers()

Dim chtMarker As Chart
Dim chtMain As Chart
Dim intPoint As Integer
Dim rngRow As Range
Dim lngPointIndex As Long
Dim thmColor 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
    ThisWorkbook.Theme.ThemeColorScheme.Load GetColorScheme(thmColor)
    chtMarker.Parent.CopyPicture xlScreen, xlPicture
    lngPointIndex = lngPointIndex + 1
    chtMain.SeriesCollection(1).Points(lngPointIndex).Paste
    thmColor = thmColor + 1
Next

lngPointIndex = 0

Application.ScreenUpdating = True
End Sub

Function GetColorScheme(i As Long) As String
Const thmColor1 As String = "C:\Program Files\Microsoft Office\Document Themes 14\Theme Colors\Blue Green.xml"
Const thmColor2 As String = "C:\Program Files\Microsoft Office\Document Themes 14\Theme Colors\Orange Red.xml"
    Select Case i Mod 2
        Case 0
            GetColorScheme = thmColor1
        Case 1
            GetColorScheme = thmColor2
    End Select
End Function

El código copia una sola tabla una y otra vez en las burbujas. Así que me gustaría modificar la Función (ahora llamada Get colourscheme) en una función que asigna un color RGB único a cada segmento de cada gráfico circular. Un tema similar se discute aquíCambia el Punto de Color en la tabla excel VBA pero el código aparentemente no funcionó para la persona que estaba preguntando. ¿Alguien podría darme algún consejo sobre cómo reescribir la parte de la función del código?

Mi enfoque aproximado sería:

seleccione la hoja de trabajo y luego tome cada gráfico después de que se copieCambia el color de cada segmento con un código RGB único.

Pero no me queda claro cómo lo implementaría en VBA. Realmente apreciaría CUALQUIER comentario sobre el tema.