excel - マクロの実行時に Excel で文字の色を返すにはどうすればよいですか?

Question

Excel ワークシートのシート 1 で、データ検証オプションを使用して、ユーザーのドロップダウンの選択肢を作成しました。たとえば、ユーザーは赤い十字または背景が黄色のバイオハザード シンボルを選択する場合があります (Segoe UI シンボルを参照)。元のデータ オプションを色分けしましたが、ユーザーがドロップダウンをクリックすると、白黒のみが表示されます。いずれかのオプション。簡単なオプションは、ドロップダウンを持つセルに条件付き書式を使用することです。ただし、Sheet2 でこれらの文字を再現するためのマクロも作成しました。マクロは文字を再現しますが、文字は元の色の書式設定を保持しません。

私が行ったことを理解するのを助けるために、以下のコーディングのいくつかを提供しています。L1 から L5 は、形状の左始点の指定を表すことに注意してください。Vrb1からVrb5までが再現したいキャラクターです。

一般的な考え方は、プロセス フローチャートを作成することです。各ステップの隣に、最大 5 つの画像が生成される可能性があります (Vrb1 から Vrb5)。

よろしくお願いします。

For Each rng In ws1.Range("CS3:CS22")
    L1 = rng.Value
    L2 = rng.Offset(, 1).Value
    L3 = rng.Offset(, 2).Value
    L4 = rng.Offset(, 3).Value
    L5 = rng.Offset(, 4).Value
    Top = rng.Offset(, 5).Value
    Width = rng.Offset(, 6).Value
    Height = rng.Offset(, 7).Value
    Vrb1 = rng.Offset(, -87).Value
    Vrb2 = rng.Offset(, -85).Value
    Vrb3 = rng.Offset(, -83).Value
    Vrb4 = rng.Offset(, -81).Value
    Vrb5 = rng.Offset(, -79).Value



    Select Case rng.Offset(, -87).Value
        Case Is <> 0
            Set shp = ws2.Shapes.AddShape(msoShapeRectangle, L1, Top, Width, Height)
                With shp
                    .TextFrame.Characters.Text = Vrb1
                    .LinkFormat.Locked = False
                    .TextFrame.MarginBottom = 0
                    .TextFrame.MarginLeft = 0
                    .TextFrame.MarginRight = 0
                    .TextFrame.MarginTop = 0
                    .TextFrame.HorizontalAlignment = xlHAlignCenter
                    .TextFrame.VerticalAlignment = xlVAlignCenter
                    .TextFrame.Characters.Font.FontStyle = "Arial"
                    .TextFrame.Characters.Font.Size = 23
                    .ShapeStyle = msoLineStylePreset1
                    .Line.ForeColor.RGB = RGB(255, 255, 255)

                End With

                End Select