I wanted to use the following code to create a bubble pie chart in which the bubbles are pie charts.

Sub PieMarkers()

Dim chtMarker As Chart
Dim chtMain As Chart
Dim intPoint As Integer
Dim rngRow As Range
Dim lngPointIndex As Long

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
chtMarker.Parent.CopyPicture xlScreen, xlPicture
lngPointIndex = lngPointIndex + 1
chtMain.SeriesCollection(1).Points(lngPointIndex).Paste
Next

lngPointIndex = 0

Application.ScreenUpdating = True

End Sub

How can I manage that not all pie charts in the bubble chart look alike? Since the code copies the pie as a filling into the bubble I wanted to know how whether there is an easy way to use a variable that dictates colour coding of every pie chart (in terms of RGB) or something ?