Gruss WolfSub ZellAttribute_Bereich
Dim oDoc as Object
Dim oBereich as Object REM Identifizierung des aktivierten Zellbereiches
oDoc = StarDesktop.CurrentComponent
oBereich = oDoc.getCurrentSelection().getRangeAddress() REM aktive Cursorposition identifizieren
msgbox "Spalte AB: " +oBereich.StartColumn REM TestAusgaben: 1.Spalte über oBereich richtig angesprochen
REM und nun fehlt etwas ???
???.CellBackColor = RGB(255,0,0) REM Zellhintergrund 255,0,0 = Rot
end sub
ZellBereich formatieren in Calc
Moderator: Moderatoren
-
- ****
- Beiträge: 102
- Registriert: Do, 13.05.2004 16:24
- Wohnort: Neuss
ZellBereich formatieren in Calc
Hi, ich möchte den aktuellen ZellBereich einer Tabelle formatieren (Attribute setzen). Leider finde ich nur Lösungen für EinzelZellen und keine für ZellBereiche. Irgendetwas fehlt innerhalb meines Makros:
-
- ****
- Beiträge: 102
- Registriert: Do, 13.05.2004 16:24
- Wohnort: Neuss
Hi Stephan,
Dein Beispiel 1 enspricht genau meiner Vorstellung. Das 2. Beispiel gibt mit die Gelegenheit, schon den übernächsten Schritt zu machen - muss mich jedoch noch etwas damit beschäftigen.
Noch eine Frage zu Beispiel 1: Wozu dient Deine Zeile:
sub ZellAttribut_Bereich_2
oDoc = StarDesktop.CurrentComponent
oBereich=oDoc.getCurrentSelection()
with oBereich
.CellBackColor = RGB(255,0,0)
REM .... weitere Properties
end with
end sub
Gruss Wolf
Dein Beispiel 1 enspricht genau meiner Vorstellung. Das 2. Beispiel gibt mit die Gelegenheit, schon den übernächsten Schritt zu machen - muss mich jedoch noch etwas damit beschäftigen.
Noch eine Frage zu Beispiel 1: Wozu dient Deine Zeile:
Habe die Sub ohne getestet und das Ergebnis war gleich.ThisComponent.CurrentController.Select(oBereich)
sub ZellAttribut_Bereich_2
oDoc = StarDesktop.CurrentComponent
oBereich=oDoc.getCurrentSelection()
with oBereich
.CellBackColor = RGB(255,0,0)
REM .... weitere Properties
end with
end sub
Gruss Wolf