>400
ｷﾀ━━━━（ﾟ∀ﾟ）━━━━!!!!!!　動きました！！　見事にシェープが黒になりました。
ありがとうございます。１週間これにはまって、諦めてエクセルのセルにRGB値を入れて
VBAのマクロで対応するしかないかな〜と思っていた所なので本当に助かりましたm(_ _)m
本当にありがとうございますm(_ _)m

>401
もしお時間があれば、もうちょっと詳しくご説明して頂けると嬉しいですm(_ _)m
とりあえずソース中でget_****()->get_***()　と書いてあった所は全て直しました。