VBA SchemeColorプロパティ(ForeColor以下に指定する色の色見本を作成する）

注意：セルの塗りつぶし色等で使用できるColorIndexプロパティとは色と番号の対応が異なる。
■SchemeColorプロパティの色番号と色の対応表を作成します。

Sub schemeColorSample()
    Dim i As Long
    Sheets("Sheet2").Select
    For i = 1 To 80
        With ActiveSheet.Shapes.AddLine(70, Cells(i, 1).Top + 10, 120, Cells(i, 1).Top + 10).Line
            .Weight = 3
            .ForeColor.SchemeColor = i
            Cells(i, 1).Value = i
        End With
    Next
End Sub