Trabajar con Colores en Excel - VBA

Trabajar con Colores en Excel - VBA

Sub Thema_de_Colores()

Dim i_colores_del_tema As Integer, Rng_A_pintar As Range

i_colores_del_tema = ActiveWorkbook.Theme.ThemeColorScheme.Count

For i = 1 To i_colores_del_tema
Range("B1").Offset(i, 0).Interior.Color = ActiveWorkbook.Theme.ThemeColorScheme(i) 'ThemeColorSchemeIndex(i)
Next

End Sub

'...................................................................

Sub Paleta_de_Colores()

Dim i_colores_de_paleta As Integer, Rng_A_pintar As Range

i_colores_de_paleta = 56

For i = 1 To i_colores_de_paleta
Range("A1").Offset(i, 0).Interior.Color = ActiveWorkbook.Colors(i) 'ThemeColorSchemeIndex(i)
Next

End Sub