エクセルVBA セルに入力された文字の色と図の線の色を同じにするマクロを知りたいです。

cells(1,1)に入力された文字の色に合わせて
図の線も変更したいのですが、

変数=cells(1,1)).Font.Color
線図＝変数

とやってもエラーになります。
どのようにすればセルと線図の色を合わせ合わせられますか？？
教えてください！

No.2 ベストアンサー 回答者： siffon9 回答日時： 2018/08/01 13:15

Shapeオブジェクトという前提ですが

こんな感じになると思います。

Sub test()
　　Dim c As Long
　　Dim r As Long, g As Long, b As Long

　　c = Cells(1, 1).Font.Color
　　r = c Mod 256
　　g = (c / 256) Mod 256
　　b = (c / 65536)
　　
　　ActiveSheet.Shapes(1).Line.ForeColor.RGB = RGB(r, g, b)
End Sub

この回答へのお礼

ありがとうございます。
望みどおりになりました！

お礼日時：2018/08/01 14:28

No.1 回答者： fujillin 回答日時： 2018/08/01 12:33

こんにちは

＞線図＝変数
左辺がどのような内容なのか不明なので、はっきりとはしませんが、「図の線」というのがShapeオブジェクトだと仮定するなら
　Shape.Line.ForeColor.RGB = RGB(255, 0, 0)
のような形式で指定すれば宜しいかと。

Cell.Font.Colorで返される値は、RGB関数の結果(=数値)と同等のはずと思います。

この回答へのお礼

ありがとうございます！

お礼日時：2018/08/01 14:21