No.2ベストアンサー
- 回答日時:
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Visual Basic(VBA) マクロ実行時、自動で背景色を変えたい。 C列にあるチェックボックスをチェックするとB列に「TRUE」 4 2022/11/08 11:14
- その他(Microsoft Office) Excelの条件付き書式についての質問です。 2 2022/09/08 01:25
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) 条件に合った数値の合計を表示させたい関数と条件指定の方法 3 2023/05/13 16:07
- Excel(エクセル) エクセルの値を元に図形の色を変えたい 2 2022/05/11 01:37
- Visual Basic(VBA) VBAについて教えてください 4 2022/11/10 12:44
- Excel(エクセル) エクセルでA列セル内で折り返すことなく、文字列を、B列C列・・・側に一行に 2 2022/07/23 02:02
- Excel(エクセル) エクセルで同じ数字同士を自動で線で結ぶVBAを教えてください 6 2022/04/26 23:13
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
バツ印をつけるには??(ワード)
-
jw_cadで消えない線があります...
-
jw-cadで線の太さを変えたい。
-
PDFについて
-
jwcad 印刷時の線幅について
-
グーグルマップに謎の線が出ます
-
Keynoteでは波線が引けないので...
-
JW-CADで線の太さはどこから設...
-
autoCAD 円に接する角度指定...
-
VBAでレポート(Access)に線を...
-
実線を破線に変更するやり方で...
-
MICRO CADAMでの線(要素)の着...
-
AutoCADで太い線の端を角張らせ...
-
Powerpointで結線を書く方法
-
JWWで画面上、赤線のみ太く表示...
-
エクセルVBA セルに入力された...
-
ウィンドウ枠固定の線を非表示(...
-
2重の線をくっきりさせたいです...
-
autocadで2本の線を等分割する...
-
ベクターワークスの3Dの事でお...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
バツ印をつけるには??(ワード)
-
jw_cadで消えない線があります...
-
グーグルマップに謎の線が出ます
-
Keynoteでは波線が引けないので...
-
JWでDXFを開いたとき、SXF線種...
-
desk top 画面を4分割
-
ウィンドウ枠固定の線を非表示(...
-
JWW、CADで基点軸より、線の...
-
線長さの合計
-
JWWの初期画面の用紙枠の線...
-
PDFについて
-
実線を破線に変更するやり方で...
-
JW-CADで線の太さはどこから設...
-
MICRO CADAMでの線(要素)の着...
-
jw-cadで線の太さを変えたい。
-
ベクターワークス線について
-
AutoCADで太い線の端を角張らせ...
-
autocadで2本の線を等分割する...
-
jwcad 印刷時の線幅について
-
jw cadで直線の一部分だけ色や...
おすすめ情報