; ***************************************
; Пример 1 - Изменение параметра горизонтального выравнивания у всех ячеек целевого диапазона
; ***************************************

#include <Excel.au3>

Local $oExcel = _ExcelBookNew() ;Создает новую рабочую книгу
Local $sRangeOrRowStart = 1, $iColStart = 1, $iRowEnd = 10, $iColEnd = 10, $sHorizAlign = "left"

; Циклически заполняем диапазон ячеек случайными числами
For $i = 1 To 10
	For $j = 1 To 10
		_ExcelWriteCell($oExcel, Round(Random(1, 100), 0), $i, $j)  ;Записывает в ячейку случайное целое число из диапазона от 1 до 100
	Next
Next

MsgBox(4096, "_ExcelHorizontalAlignSet", "Демонстрация вариантов горизонтального выравнивания" & @CRLF & "Нажмите ОК для продолжения")

_ExcelHorizontalAlignSet($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, $sHorizAlign)
ToolTip("Горизонтальное выравнивание 'по левому краю'")
Sleep(2000) ; Пауза 2 сек.

$sHorizAlign = "center"
_ExcelHorizontalAlignSet($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, $sHorizAlign)
ToolTip("Горизонтальное выравнивание 'по центру'")
Sleep(2000) ; Пауза 2 сек.

$sHorizAlign = "right"
_ExcelHorizontalAlignSet($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, $sHorizAlign)
ToolTip("Горизонтальное выравнивание 'по правому краю'")
Sleep(2000) ; Пауза 2 сек.

MsgBox(4096, "_ExcelHorizontalAlignSet | Пример 1", "Демонстрация завершена, нажмите ОК")
_ExcelBookSaveAs($oExcel, @TempDir & "\Temp.xls", "xls", 0, 1) ; Сохраняем файл в директории временных файлов, перезаписывая если необходимо.
_ExcelBookClose($oExcel) ; Закрываем рабочую книгу