object.Color = rgb                         ・・・  色を表す RGB 値を指定します。

object.ColorIndex = c_index　　　 ・・・  カラーパレットの色を表す 1 〜 56 のパレット番号を指定します。

object.ThemeColor = t_index　　　・・・  テーマカラーの基本色を表すMsoThemeColorSchemeindex 列挙型の定数または値（1 〜 12）を指定します。

object.TintAndShade = single　　　・・・  色の明るさを -1（暗い） 〜 1（明るい）で指定します。

Sub Sample_Borders()
    Dim myRng As Range    
    'セル「B2:I11」
    Set myRng = Range("B2:I11")    
    With myRng.Borders        
        '範囲内全ての罫線 黒・実線・普通線
        .Color = rgbBlack
        .LineStyle = xlContinuous
        .Weight = xlMedium
        
        '範囲内の水平罫線のみ 赤・ニ点鎖線・細線
        .Item(xlInsideHorizontal).Color = rgbRed
        .Item(xlInsideHorizontal).LineStyle = xlDashDotDot
        .Item(xlInsideHorizontal).Weight = xlHairline
        
        '範囲上のみ 青・太線
        .Item(xlEdgeTop).Color = rgbBlue
        .Item(xlEdgeTop).Weight = xlThick
        
        '範囲下のみ 青・太線
        .Item(xlEdgeBottom).Color = rgbBlue
        .Item(xlEdgeTop).Weight = xlThick
        
        '範囲左のみ 緑・太線
        .Item(xlEdgeLeft).Color = rgbGreen
        .Item(xlEdgeLeft).Weight = xlThick
        
        '範囲右のみ 緑・太線
        .Item(xlEdgeRight).Color = rgbGreen
        .Item(xlEdgeRight).Weight = xlThick
    End With
    
    'セル「B8:B11」に左下から右上の斜罫線
    With Range("B8:B11").Borders(xlDiagonalUp)
        '二重線
        .LineStyle = xlDouble        
        '色の設定
        .Color = RGB(220, 150, 20)        
        '太さ（普通）
        .Weight = xlMedium        
    End With        
End Sub