Seite 1 von 1

CALC: Automatischer Zeilenumbruch [gelöst]

Verfasst: Di, 13.11.2012 19:44
von kuraschima
Hallo,
im grunde bescheid der betreff schon mein ganzen problem.
ich möchte per makro für eine zeile eines calc dokumentes den automatischen zeilenumbruch einstellen.
im internet bin ich leider nicht fündig geworden :(

Gruß


Moderation,4: verschoben in BASIC-Unterbereich, wo alle Makro-Fragen hin gehören; Betreff angepasst

Re: CALC: Automatischer Zeilenumbruch

Verfasst: Di, 13.11.2012 21:00
von F3K Total
Hi,
dies Makro funktioniert für die Zeile in der der Cursor steht:

Code: Alles auswählen

Sub S_automatischer_Zeilenumbruch
    osel = thiscomponent.currentselection
    nRow = osel.Rangeaddress.StartRow
    osheet = thiscomponent.currentcontroller.ActiveSheet
    ocursor = osheet.createcursor
    ocursor.gotoendofusedarea(false)
    nEndcolumn = ocursor.Rangeaddress.Endcolumn
    oRow = osheet.rows(nRow)
    for i = 0 to nEndcolumn
        ocell = orow.getCellByPosition(i,0)
        ocell.IsTextWrapped = true
    next i
End Sub
Viel Erfolg,
Gruß R

Re: CALC: Automatischer Zeilenumbruch

Verfasst: Di, 13.11.2012 21:48
von kuraschima
super vielen dank! :)