usando VBA para un gráfico de burbujas circular en Excel
Mi codigo es
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
Case 0
GetColorScheme = thmColor1
Case 1
GetColorScheme = thmColor2
End Select
End Function
el código está destinado a cambiar el tema de color de los gráficos circulares sucesivos que se utilizan como burbujas en un gráfico de burbujas. Entonces, la función solo tiene la intención de seleccionar un esquema de color que guardé previamente como una cadena y luego cambiarlo de acuerdo con la ejecución del script para que la primera tarta tenga otro color que el siguiente gráfico de tarta ... un mensaje de error al depurar el código en la línea
ThisWorkbook.Theme.ThemeColorScheme.Load GetColorScheme (thmColor)
el mensaje de error es un error de tiempo de ejecución 2147024809 que dice que el valor indicado está fuera de rango ... ¿alguien puede ayudarme, lo que parece ser el problema aquí?
¿Y habría alguna manera de integrar la visualización de los componentes del pastel (el nombre de los componentes que se indica en la cabecera de la columna en cada gráfico circular que luego se transfiere al gráfico de burbujas?