; **************************************
; Пример 1 - Редактирование формата начертания символов в ячейках целевого диапазона 
; **************************************

#include <Excel.au3>

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

; Циклически заполняем диапазон ячеек случайными числами
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 & "Нажмите ОК для продолжения...")

$i = 1
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, False, False)
ToolTip("Демонстрируется комбинация № " & $i)
$i += 1
Sleep(1500); Пауза 1,5 сек.

_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, False, True)
ToolTip("Демонстрируется комбинация № " & $i)
$i += 1
Sleep(1500); Пауза 1,5 сек.

_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, True, True)
ToolTip("Демонстрируется комбинация № " & $i)
$i += 1
Sleep(1500); Пауза 1,5 сек.

_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, True, True, True)
ToolTip("Демонстрируется комбинация № " & $i)
$i += 1
Sleep(1500); Пауза 1,5 сек.

_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, True, False, False)
ToolTip("Демонстрируется комбинация № " & $i)
$i += 1
Sleep(1500); Пауза 1,5 сек.

_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, True, True, False)
ToolTip("Демонстрируется комбинация № " & $i)
$i += 1
Sleep(1500); Пауза 1,5 сек.

_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, True, False)
ToolTip("Демонстрируется комбинация № " & $i)
$i += 1
Sleep(1500); Пауза 1,5 сек.

_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, True, False, True)
ToolTip("Демонстрируется комбинация № " & $i)
$i += 1
Sleep(1500); Пауза 1,5 сек.



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