| Name | Type | Description |
|---|---|---|
| Index |
Long
|
Sub Test()
Dim c As New Color
Dim src As Palette, dest As Palette
Dim idx As Long
Set src = ActivePalette
Set dest = Palettes.Create("Bright Colors")
For Each c In src.Colors
dest.AddColor c
Next c
For idx = dest.ColorCount To 1 Step -1
c.CopyAssign dest.Color(idx)
c.ConvertToHLS
If c.HLSLightness < 128 Then dest.RemoveColor idx
Next idx
End Sub