Option Explicit
'====================================================================================================
' возвращает двумерный массив, где первый "столбец" = массив цветов для фона, а второй = для шрифта (0 = vbBlack; 16777215 = vbWhite)
Function ArrayContrastColors() As Variant()
Dim arrOut(1 To 34, 1 To 2)
arrOut(1, 1) = 0: arrOut(1, 2) = 16777215 ' vbBlack
arrOut(2, 1) = 255: arrOut(2, 2) = 16777215 ' vbRed
arrOut(3, 1) = 65280: arrOut(3, 2) = 0 ' vbGreen
arrOut(4, 1) = 65535: arrOut(4, 2) = 0 ' vbYellow
arrOut(5, 1) = 16711680: arrOut(5, 2) = 16777215 ' vbBlue
arrOut(6, 1) = 16711935: arrOut(6, 2) = 16777215 ' vbMagenta
arrOut(7, 1) = 16776960: arrOut(7, 2) = 0 ' vbCyan
arrOut(8, 1) = 17919: arrOut(8, 2) = 16777215 ' rgbOrangeRed
arrOut(9, 1) = 32768: arrOut(9, 2) = 16777215 ' rgbGreen
arrOut(10, 1) = 42495: arrOut(10, 2) = 0 ' rgbOrange
arrOut(11, 1) = 2237106: arrOut(11, 2) = 16777215 ' rgbFireBrick
arrOut(12, 1) = 3329330: arrOut(12, 2) = 16777215 ' rgbLimeGreen
arrOut(13, 1) = 4163021: arrOut(13, 2) = 16777215 ' rgbPeru
arrOut(14, 1) = 5275647: arrOut(14, 2) = 0 ' rgbCoral
arrOut(15, 1) = 32896: arrOut(15, 2) = 16777215 ' rgbOlive
arrOut(16, 1) = 55295: arrOut(16, 2) = 0 ' rgbGold
arrOut(17, 1) = 2970272: arrOut(17, 2) = 16777215 ' rgbSienna
arrOut(18, 1) = 8388352: arrOut(18, 2) = 0 ' rgbSpringGreen
arrOut(19, 1) = 8388736: arrOut(19, 2) = 16777215 ' rgbPurple
arrOut(20, 1) = 8421504: arrOut(20, 2) = 16777215 ' rgbGray
arrOut(21, 1) = 9145088: arrOut(21, 2) = 16777215 ' rgbDarkCyan
arrOut(22, 1) = 9234160: arrOut(22, 2) = 0 ' rgbKhaki
arrOut(23, 1) = 9498256: arrOut(23, 2) = 0 ' rgbLightGreen
arrOut(24, 1) = 8894686: arrOut(24, 2) = 0 ' rgbBurlyWood
arrOut(25, 1) = 9639167: arrOut(25, 2) = 16777215 ' rgbDeepPink
arrOut(26, 1) = 13353215: arrOut(26, 2) = 0 ' rgbPink
arrOut(27, 1) = 13882323: arrOut(27, 2) = 0 ' rgbLightGray
arrOut(28, 1) = 11823615: arrOut(28, 2) = 0 ' rgbHotPink
arrOut(29, 1) = 13959039: arrOut(29, 2) = 0 ' rgbAquamarine
arrOut(30, 1) = 14381203: arrOut(30, 2) = 16777215 ' rgbMediumPurple
arrOut(31, 1) = 15631086: arrOut(31, 2) = 16777215 ' rgbViolet
arrOut(32, 1) = 14772545: arrOut(32, 2) = 16777215 ' rgbRoyalBlue
arrOut(33, 1) = 16760576: arrOut(33, 2) = 16777215 ' rgbDeepSkyBlue
arrOut(34, 1) = 15453831: arrOut(34, 2) = 0 ' rgbSkyBlue
ArrayContrastColors = arrOut
End Function
'==================================================================================================== |