Фоновой цвет ячейки в Excel

#include <Excel.au3>

$oExcel = _ExcelBookNew(1)

_ExcelSetColor($oExcel, 1, 1, 1, 1, 0xff00ff, True) ;Замена True на False задаёт цвет текста

Func _ExcelSetColor($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, $nColor, $bBkColor = False)
	If Not IsObj($oExcel) Then Return SetError(1, 0, 0)
	
	With $oExcel.ActiveSheet
		If $bBkColor Then
			.Range(.Cells($sRangeOrRowStart, $iColStart), .Cells($iRowEnd, $iColEnd)).Fill.BackgroundColor = $nColor
		Else
			.Range(.Cells($sRangeOrRowStart, $iColStart), .Cells($iRowEnd, $iColEnd)).Font.Color = $nColor
		EndIf
	EndWith
EndFunc

Func _ExcelSetColor($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, $nColor, $bBkColor = False)
    If Not IsObj($oExcel) Then Return SetError(1, 0, 0)
    
    With $oExcel.ActiveSheet
        If $bBkColor Then
            .Range(.Cells($sRangeOrRowStart, $iColStart), .Cells($iRowEnd, $iColEnd)).Interior.Color = $nColor
        Else
            .Range(.Cells($sRangeOrRowStart, $iColStart), .Cells($iRowEnd, $iColEnd)).Font.Color = $nColor
        EndIf
    EndWith
EndFunc