ユーザーフォームに貼り付けたImageの色指定（ BackColorやForeColorのプロパティで8桁の16進数、「&H00CE0FF」など）を、シート上のオートシェイプのLineの色指定に適用する手順をメモ。
上記のようなユーザーフォーム上のImegeの色指定を取得して、オートシェイプに適用しようとすると、塗りつぶしの Fill はそのまま適用されるが、 なぜかLine はそのままでは反映しない。
○ Selection.ShapeRange.Fill.ForeColor = frmImg.BackColor
× Selection.ShapeRange.Line.ForeColor = frmImg.BackColor
※ frmImg.BackColorは8桁の16進数が10進数に変換されている。
Lineは、RGBまたはSchemeColorプロパティを経由しないとダメらしい。
RGBプロパティには、２つの指定方法があり、下の例はいずれも同じ「肌色」になる。
.Line.ForeColor.RGB = RGB( 255, 224 , 192) 'カッコの中は10進数。
.Line.ForeColor.RGB = &HC0E0FF '6桁の16進数。
したがって、Imageの色指定をLineに反映させるには、以下のように無理やり6桁の16進数指定をRGB経由与えると何とかなった。
� �frmImg.BackColor を10進数として取得
�◆�Hex()で16進数標記の文字列に再変換
�� 下6文字を取り出し、頭に「&H」を付けてRGBプロパティに代入
ただし、RGBプロパティだけを設定しているわけだから、.Line.ForeColor.SchemeColor プロパティには当然何も入らない（VBEでは<アプリケーション定義またはオブジェクト定義のエラーです。>と表示）。このため、この方法で色を変えたオートシェイプは、SchemeColor値を使っての検索や条件分岐はできなくなる。
上記のようなユーザーフォーム上のImegeの色指定を取得して、オートシェイプに適用しようとすると、塗りつぶしの Fill はそのまま適用されるが、 なぜかLine はそのままでは反映しない。
○ Selection.ShapeRange.Fill.ForeColor = frmImg.BackColor
× Selection.ShapeRange.Line.ForeColor = frmImg.BackColor
※ frmImg.BackColorは8桁の16進数が10進数に変換されている。
Lineは、RGBまたはSchemeColorプロパティを経由しないとダメらしい。
RGBプロパティには、２つの指定方法があり、下の例はいずれも同じ「肌色」になる。
.Line.ForeColor.RGB = RGB( 255, 224 , 192) 'カッコの中は10進数。
.Line.ForeColor.RGB = &HC0E0FF '6桁の16進数。
※ 両標記は色指定の順序が前後逆である。
・RGB( 赤 , 緑 , 青 )
・&H- 青2桁-緑2桁-赤2桁
・RGB( 赤 , 緑 , 青 )
・&H- 青2桁-緑2桁-赤2桁
したがって、Imageの色指定をLineに反映させるには、以下のように無理やり6桁の16進数指定をRGB経由与えると何とかなった。
Selection.ShapeRange.Line.ForeColor.RGB = _
"&H" & Right(Hex(myImg.BackColor), 6)
"&H" & Right(Hex(myImg.BackColor), 6)
� �frmImg.BackColor を10進数として取得
�◆�Hex()で16進数標記の文字列に再変換
�� 下6文字を取り出し、頭に「&H」を付けてRGBプロパティに代入
ただし、RGBプロパティだけを設定しているわけだから、.Line.ForeColor.SchemeColor プロパティには当然何も入らない（VBEでは<アプリケーション定義またはオブジェクト定義のエラーです。>と表示）。このため、この方法で色を変えたオートシェイプは、SchemeColor値を使っての検索や条件分岐はできなくなる。
