Color を設定すると、XFExt $087D リッチカラーサイドレコードに正確な RGB が書き込まれます。テーマベースのアドレス指定にはxlAround, xlInsideVertical, xlInsideHorizontal, xlInsideAll)は、1 回のセル ループ パスで物理的な各辺につき 1 つの XFExt スロットを登録します
Workbook.Sheets[1].Range['A1', 'D1'].Borders[xlEdgeTop].Color := RGB(0, 255, 0);