Excelオブジェクトの指定した範囲に太字、斜体、下線のフォントプロパティを設定します。
#Include <Excel.au3>
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart [, $iColStart = 1 [, $iRowEnd = 1 [, $iColEnd = 1 [, $fBold = False [, $fItalic = False [, $fUnderline = False]]]]]])
パラメータ
| $oExcel | _ExcelBookOpen()か_ExcelBookNew()の呼び出しで開かれているExcelオブジェクト |
| $sRangeOrRowStart | A1形式の範囲。R1C1形式を使用している場合は整数の開始行番号 |
| $iColStart | [オプション]数値フォーマット開始列 (左側) (デフォルトは1) |
| $iRowEnd | [オプション]数値フォーマット終了行 (下側) (デフォルトは1) |
| $iColEnd | [オプション]数値フォーマット終了列 (右側) (デフォルトは1) |
| $fBold | [オプション]太字フラグ: TRUE=太字、FALSE=非太字 (太字指定の解除) |
| $fItalic | [オプション]斜体フラグ: TRUE=斜体、FALSE=非斜体 (斜体指定の解除) |
| $fUnderline | [オプション]下線フラグ: TRUE=下線、FALSE=非下線 (下線指定の解除) |
返し値
| 成功: | 1 |
| 失敗: | 0を返し@errorに値を設定します |
| @error: | 1 - 指定されたオブジェクトが存在しません |
| 2 - 開始行または開始列が無効です | |
| 3 - 終了行または終了列が無効です | |
| @extended: | 0 - 行が無効です |
| 1 - 列が無効です |
注意
なし。
関連
例
; *****************************************************************
; 例 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) ;いくつかの丸めた乱数をファイルに書き込む
Next
Next
MsgBox(0, "_ExcelHorizontalAlignSet", "Notice the Font Properties, This will go through all the Possible Combinations" & @CRLF & "Press OK to Continue")
$i = 1
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, False, True)
ToolTip("New Font Setting: : " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, False, True)
ToolTip("New Font Setting: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, False, True)
ToolTip("New Font Setting: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, False, True)
ToolTip("New Font Setting: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, False, True)
ToolTip("New Font Setting: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, False, True)
ToolTip("New Font Setting: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, True, True)
ToolTip("New Font Setting: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, True, True)
ToolTip("New Font Setting: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, True, True)
ToolTip("New Font Setting: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, False, True)
ToolTip("New Font Setting: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, False, True)
ToolTip("New Font Setting: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, False, True)
ToolTip("New Font Setting: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, True, True)
ToolTip("New Font Setting: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, True, True)
ToolTip("New Font Setting: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, True, True)
ToolTip("New Font Setting: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, True, True)
ToolTip("New Font Setting: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, True, True)
ToolTip("New Font Setting: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, True, True)
ToolTip("New Font Setting: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, True, True, True)
ToolTip("New Font Setting: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, False, False)
ToolTip("New Font Setting: " & $i)
MsgBox(0, "Exiting", "Press OK to Save File and Exit")
_ExcelBookSaveAs($oExcel, @TempDir & "\Temp.xls", "xls", 0, 1) ; 上書き設定でtempディレクトリに保存
_ExcelBookClose($oExcel) ; 閉じて終わり