インターネットで定数一覧を探してエクセルシート上で作った脳筋コード。
定数値以外の色名は知らん。
'定数名を返す力技。 Function ColorName(iColor) As String Dim returnStr As String Select Case iColor Case 0: returnStr = "rgbBlack" Case 10025880: returnStr = "rgbPaleGreen" Case 10061943: returnStr = "rgbLightSlateGray" Case 10156544: returnStr = "rgbMediumSpringGreen" Case 10526303: returnStr = "rgbCadetBlue" Case 11119017: returnStr = "rgbDarkGray" Case 11119017: returnStr = "rgbDarkGrey" Case 11186720: returnStr = "rgbLightSeaGreen" Case 11206502: returnStr = "rgbMediumAquamarine" Case 11394815: returnStr = "rgbNavajoWhite" Case 11788021: returnStr = "rgbWheat" Case 11823615: returnStr = "rgbHotPink" Case 11829830: returnStr = "rgbSteelBlue" Case 11920639: returnStr = "rgbMoccasin" Case 12180223: returnStr = "rgbPeachPuff" Case 12632256: returnStr = "rgbSilver" Case 12695295: returnStr = "rgbLightPink" Case 128: returnStr = "rgbMaroon" Case 12903679: returnStr = "rgbBisque" Case 13353215: returnStr = "rgbPink" Case 13382297: returnStr = "rgbDarkOrchid" Case 13422920: returnStr = "rgbMediumTurquoise" Case 13434880: returnStr = "rgbMediumBlue" Case 13458026: returnStr = "rgbSlateBlue" Case 13495295: returnStr = "rgbBlanchedAlmond" Case 13499135: returnStr = "rgbLemonChiffon" Case 13688896: returnStr = "rgbTurquoise" Case 13749760: returnStr = "rgbDarkTurquoise" Case 13826810: returnStr = "rgbLightGoldenrodYellow" Case 13828244: returnStr = "rgbDarkViolet" Case 13850042: returnStr = "rgbMediumOrchid" Case 13882323: returnStr = "rgbLightGray" Case 13882323: returnStr = "rgbLightGrey" Case 139: returnStr = "rgbDarkRed" Case 13959039: returnStr = "rgbAquamarine" Case 14020607: returnStr = "rgbPapayaWhip" Case 14053594: returnStr = "rgbOrchid" Case 14150650: returnStr = "rgbAntiqueWhite" Case 14204888: returnStr = "rgbThistle" Case 14381203: returnStr = "rgbMediumPurple" Case 14474460: returnStr = "rgbGainsboro" Case 14480885: returnStr = "rgbBeige" Case 14481663: returnStr = "rgbCornsilk" Case 14524637: returnStr = "rgbPlum" Case 14599344: returnStr = "rgbLightSteelBlue" Case 14745599: returnStr = "rgbLightYellow" Case 14772545: returnStr = "rgbRoyalBlue" Case 14804223: returnStr = "rgbMistyRose" Case 14822282: returnStr = "rgbBlueViolet" Case 15128749: returnStr = "rgbLightBlue" Case 15130800: returnStr = "rgbPowderBlue" Case 15134970: returnStr = "rgbLinen" Case 15136253: returnStr = "rgbOldLace" Case 15453831: returnStr = "rgbSkyBlue" Case 15570276: returnStr = "rgbCornflowerBlue" Case 15624315: returnStr = "rgbMediumSlateBlue" Case 15631086: returnStr = "rgbViolet" Case 15658671: returnStr = "rgbPaleTurquoise" Case 15660543: returnStr = "rgbSeashell" Case 15792895: returnStr = "rgbFloralWhite" Case 15794160: returnStr = "rgbHoneydew" Case 15794175: returnStr = "rgbIvory" Case 16118015: returnStr = "rgbLavenderBlush" Case 16119285: returnStr = "rgbWhiteSmoke" Case 16436871: returnStr = "rgbLightSkyBlue" Case 16443110: returnStr = "rgbLavender" Case 16448255: returnStr = "rgbSnow" Case 16449525: returnStr = "rgbMintCream" Case 16711680: returnStr = "rgbBlue" Case 16711935: returnStr = "rgbFuchsia" Case 16748574: returnStr = "rgbDodgerBlue" Case 16760576: returnStr = "rgbDeepSkyBlue" Case 16775408: returnStr = "rgbAliceBlue" Case 16775416: returnStr = "rgbGhostWhite" Case 16776960: returnStr = "rgbAqua" Case 16777200: returnStr = "rgbAzure" Case 16777215: returnStr = "rgbWhite" Case 17919: returnStr = "rgbOrangeRed" Case 2139610: returnStr = "rgbGoldenrod" Case 2237106: returnStr = "rgbFireBrick" Case 2263842: returnStr = "rgbForestGreen" Case 2330219: returnStr = "rgbOliveDrab" Case 255: returnStr = "rgbRed" Case 25600: returnStr = "rgbDarkGreen" Case 2763429: returnStr = "rgbBrown" Case 2970272: returnStr = "rgbSienna" Case 3107669: returnStr = "rgbDarkOliveGreen" Case 3145645: returnStr = "rgbGreenYellow" Case 32768: returnStr = "rgbGreen" Case 32896: returnStr = "rgbOlive" Case 3329330: returnStr = "rgbLimeGreen" Case 3329434: returnStr = "rgbYellowGreen" Case 36095: returnStr = "rgbDarkOrange" Case 3937500: returnStr = "rgbCrimson" Case 4163021: returnStr = "rgbPeru" Case 42495: returnStr = "rgbOrange" Case 4678655: returnStr = "rgbTomato" Case 5197615: returnStr = "rgbDarkSlateGray" Case 5197615: returnStr = "rgbDarkSlateGrey" Case 5275647: returnStr = "rgbCoral" Case 55295: returnStr = "rgbGold" Case 5737262: returnStr = "rgbSeaGreen" Case 6053069: returnStr = "rgbIndianRed" Case 6333684: returnStr = "rgbSandyBrown" Case 64636: returnStr = "rgbLawnGreen" Case 65280: returnStr = "rgbLime" Case 65407: returnStr = "rgbChartreuse" Case 65535: returnStr = "rgbYellow" Case 6908265: returnStr = "rgbDimGray" Case 6908265: returnStr = "rgbDimGrey" Case 7059389: returnStr = "rgbDarkKhaki" Case 7071982: returnStr = "rgbPaleGoldenrod" Case 7346457: returnStr = "rgbMidnightBlue" Case 7451452: returnStr = "rgbMediumSeaGreen" Case 7504122: returnStr = "rgbSalmon" Case 755384: returnStr = "rgbDarkGoldenrod" Case 8034025: returnStr = "rgbDarkSalmon" Case 8036607: returnStr = "rgbLightSalmon" Case 8388352: returnStr = "rgbSpringGreen" Case 8388608: returnStr = "rgbNavy" Case 8388608: returnStr = "rgbNavyBlue" Case 8388736: returnStr = "rgbPurple" Case 8421376: returnStr = "rgbTeal" Case 8421504: returnStr = "rgbGray" Case 8421504: returnStr = "rgbGrey" Case 8421616: returnStr = "rgbLightCoral" Case 8519755: returnStr = "rgbIndigo" Case 8721863: returnStr = "rgbMediumVioletRed" Case 8894686: returnStr = "rgbBurlyWood" Case 9109504: returnStr = "rgbDarkBlue" Case 9109643: returnStr = "rgbDarkMagenta" Case 9125192: returnStr = "rgbDarkSlateBlue" Case 9145088: returnStr = "rgbDarkCyan" Case 9145088: returnStr = "rgbLightCyan" Case 9221330: returnStr = "rgbTan" Case 9234160: returnStr = "rgbKhaki" Case 9408444: returnStr = "rgbRosyBrown" Case 9419919: returnStr = "rgbDarkSeaGreen" Case 9470064: returnStr = "rgbSlateGray" Case 9498256: returnStr = "rgbLightGreen" Case 9639167: returnStr = "rgbDeepPink" Case 9662683: returnStr = "rgbPaleVioletRed" Case Else returnStr = "不明" End Select ColorName = returnStr End Function
テストコード
Sub testColorName142() Debug.Print ColorName(rgbRed) Debug.Print ColorName(RGB(0, 128, 0)) Debug.Print ColorName(16711680) End Sub
イミディエイトウィンドウ
rgbRed rgbGreen rgbBlue
以上。