Setzt die Formatierung fett, kursiv und unterstrichen auf einen Bereich in einem Excel-Objekt.
#Include <Excel.au3>
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart [, $iColStart = 1 [, $iRowEnd = 1 [, $iColEnd = 1 [, $fBold = False [, $fItalic = False [, $fUnderline = False]]]]]])
Parameter
| $oExcel | Ein Excel Objekt welches durch einen vorherigen Aufruf von _ExcelBookOpen() oder _ExcelBookNew() geöffnet wurde |
| $sRangeOrRowStart | Entweder ein A1 Bereich oder eine Integer Zeilennummer um es im Format R1C1 zu lesen |
| $iColStart | [optional] Die erste Spalte für das Nummernformat (links) (Standard=1) |
| $iRowEnd | [optional] Die letzte Zeile für das Nummernformat (unten) (Standard=1) |
| $iColEnd | [optional] Die letzte Spalte für das Nummernformat (rechts) (Standard=1) |
| $fBold | [optional] Flag Stil 'fett': TRUE=fett, FALSE=nicht fett (entfernt den Stil 'fett') |
| $fItalic | [optional] Flag Stil 'kursiv': TRUE=kursiv, FALSE=nicht kursiv (entfernt den Stil 'kursiv#) |
| $fUnderline | [optional] Flag Stil 'unterstrichen': TRUE=unterstrichen, FALSE=nicht unterstrichen (entfernt den Stil 'unterstrichen') |
Rückgabewert
| Erfolg: | 1 |
| Fehler: | 0 und setzt @error |
| @error: | 1 - festgelegtes Objekt existiert nicht |
| 2 - Die erste Zeile oder Spalte ist ungültig | |
| 3 - Die letzte Zeile oder Spalte ist ungültig | |
| @extended: | 0 - Zeile ungültig |
| 1 - Spalte ungültig |
Bemerkungen
Keine.
Verwandte Funktionen
Beispiel
; *****************************************************************
; Beispiel 1 – Nach dem Öffnen einer Arbeitsmappe und Rückgabe des Objekt-Handles: Setzt die Schrifteigenschaft in einem Bereich.
; *****************************************************************
#include <Excel.au3>
Local $oExcel = _ExcelBookNew() ; Erstellt eine neue Arbeitsmappe und zeigt sie an
Local $sRangeOrRowStart = 1, $iColStart = 1, $iRowEnd = 10, $iColEnd = 10
Local $fBold, $fItalic, $fUnderline, $i = 1
; Wir können die Zellen mit einer einfachen Schleife mit Zufallszahlen auffüllen
For $i = 1 To 10
For $j = 1 To 10
_ExcelWriteCell($oExcel, Round(Random(1, 100), 0), $i, $j) ; Rundet alle Zufallszahlen in der Datei
Next
Next
MsgBox(0, "_ExcelFontSetProperties", "Beachte die Schrifteigenschaften, es werden nacheinander alle möglichen Kombinationen angezeigt!" & @CRLF & @CRLF & "Drücke OK, um zu beginnen.")
$i = 1
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, False, False)
ToolTip("Neue Schriftart-Einstellung: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, False, True)
ToolTip("Neue Schriftart-Einstellung: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, True, False)
ToolTip("Neue Schriftart-Einstellung: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, False, True, True)
ToolTip("Neue Schriftart-Einstellung: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, True, False, False)
ToolTip("Neue Schriftart-Einstellung: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, True, False, True)
ToolTip("Neue Schriftart-Einstellung: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, True, True, False)
ToolTip("Neue Schriftart-Einstellung: " & $i)
$i += 1
Sleep(2500)
_ExcelFontSetProperties($oExcel, $sRangeOrRowStart, $iColStart, $iRowEnd, $iColEnd, True, True, True)
ToolTip("Neue Schriftart-Einstellung: " & $i)
MsgBox(0, "Verlassen", "Drücke OK, um die Datei zu speichern und das Programm zu verlassen")
_ExcelBookSaveAs($oExcel, @TempDir & "\Temp.xls", "xls", 0, 1) ; Nun speichern wir die Datei in ein temporäres Verzeichnis; existierende Dateien werden dabei überschrieben!
_ExcelBookClose($oExcel) ; Zum Abschluss verlassen wir das Programm