[VBA]RGBカラー値からRGBの各々の値を取得

[はじめに]
・RGBの各要素からRGBカラー値を取得する為に、
　VBAではRGB関数が用意されていますが、
　その逆（RGBカラー値から元のRGB各要素を取得）の関数は
　用意されていません。

　たまに必要になることがあるので、
　ユーザ定義関数を作成しましたので、備忘録として掲載します。

[ソース]

コードのコピー

'[機能] '　RGB カラー値から、 '　赤(R)、緑(G)、青(B)の各々の値を取得する。 '[引数] '　rgbColor：RGB カラー値 '[戻り値] '　RGBの各値（配列） '　　０番目：赤(R) '　　１番目：緑(G) '　　２番目：青(B) Public Function GetRgbValues(ByVal rgbColor As Long) As Integer()     Dim rtnColors(2) As Integer     '赤(R)     rtnColors(0) = rgbColor Mod 256     '緑(G)     rtnColors(1) = rgbColor \ 256 Mod 256     '青(B)     rtnColors(2) = rgbColor \ 65536     GetRgbValues = rtnColors End Function

[VBA]RGBカラー値から赤(R)、緑(G)、青(B)の各々の値を取得

タグ：VBA 各々の値を取得 RGB