Changing Palettes

[nic]

Hi

Im using X5 and have about 20 palettes which Ive named 01 to 20 and am trying to find a way of looping thru them to create 20 images which have the same shapes but are coloured differently based upon the palettes.

I have tried recording a macro but dont see any reference to palettes in the macro. Is it possible and if so would somebody mind helping ?

thanks
nic

[runflacruiser]

Hi.
You can loop palettes like this:

Sub palLoop()


Dim pal As Palette

    For Each pal In Palettes
        'do some thing with palette
    Next pal

End Sub

-John

[runflacruiser]

Hi.
I haven't tested but this might help too:

Sub palLoop2()


Dim pal As Palette, i As Variant, myStr As String

    For i = 1 To 20
        If CStr(Len(i)) = 1 Then i = "0" & i
        Palettes(i).Open
    Next i

End Sub

-John

[nic]

thanks again
n