[de-users] Re: [Calc] Stabiles Makro fuer "Spalte(n) einfuegen rechts" und "Zeile(n) einfuegen unterhalb"?

Peter Eberlein schrieb:

> > in Calc gibt es die zwei Funktionen
> > "Spalte(n) einfügen links" (Menü Einfügen>  Spalten)
> > und
> > "Zeile(n) einfügen oberhalb" (Menü Einfügen>  Zeilen)
> >
> > (Anmerkung: Die Anzahl der eingefügten Spalten bzw. Zeilen entspricht
> > der Anzahl der vor dem Ausführen des Befehls markierten Spalten bzw.
> > Zeilen.)
> >
> > Die Funktionen
> > "Spalte(n) einfügen rechts"
> > und
> > "Zeile(n) einfügen unterhalb"
> > existieren nicht.

> Beispiel für Zeilen auf die Schnelle (Spalten geht dann genauso):
>
> rows = thiscomponent.CurrentController.getSelection().getRows()
> iNumSelRows =rows.getCount()
> row = rows.getByIndex(iNumSelRows-1)
> iEndRow = row.RangeAddress.EndRow+1
> ThisComponent.Sheets(row.RangeAddress.Sheet).getRows().insertByIndex(iEndRow,iNumSelRows)

Herzlichen Dank. :)
Ein schneller Test (auch mit mehreren markierten Zeilen) zeigt:
Funktioniert prima.

Für Spalten funktioniert:

columns = thiscomponent.CurrentController.getSelection().getColumns()
iNumSelColumns =columns.getCount()
column = columns.getByIndex(iNumSelColumns-1)
iEndColumn = column.RangeAddress.EndColumn+1
ThisComponent.Sheets(column.RangeAddress.Sheet).getColumns().insertByIndex(iEndColumn,iNumSelColumns)

Falls jemand am Code noch Kritisches entdeckt, bitte ich um einen
Hinweis.

Andreas
-- 
Verwendete LibreOffice-Version: die jeweils aktuellste

http://borumat.de/libreoffice-writer-tipps


-- 
Informationen zur Abmeldung: E-Mail an users+help@de.libreoffice.org
Listenarchiv: http://listarchives.libreoffice.org/de/users/
Alle E-Mails an diese Liste werden unlöschbar öffentlich archiviert