usando VBA para um gráfico de bolhas de pizza no excel
Meu código é
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
o código destina-se a alterar o tema de cor de gráficos de pizza sucessivos que são usados como bolhas em um gráfico de bolhas. Portanto, a função destina-se apenas a selecionar um esquema de cores que eu salvei anteriormente como uma string e, em seguida, alterá-lo de acordo com a execução do script para que a primeira torta tenha outra cor do que o próximo gráfico de torta .... uma mensagem de erro ao depurar o código na linha
ThisWorkbook.Theme.ThemeColorScheme.Load GetColorScheme (thmColor)
a mensagem de erro é erro de execução 2147024809 dizendo que o valor indicado está fora do intervalo .. alguém pode me ajudar o que parece ser o problema aqui?
E haveria alguma maneira de integrar a exibição dos componentes pie (o nome dos componentes que si indicou na cabeça da coluna em cada gráfico de pizza que é então transferido para o gráfico de bolhas?