Makro wstawiające nową kolumnę i kopiującą inną

[odwieczny]

Potrzebuję makro które wstawi już do istniejącej tabeli nową kolumnę np. pomiędzy kolumną "D" i "E" nową kolumnę "E" i do tej nowej kolumny skopiuje zawartość innej kolumny.
Próbowałem zarejestrować makro w AOO ale to nie chce ni cholibki zadziałać... da się to zrobić w ogóle (wstaw nowa kolumnę poprzez makro)?

[Jan_J]

Tu: https://forum.openoffice.org/en/forum/v ... 20&t=62397 masz przykład jak wstawić programowo wiersz. Z kolumną będzie analogicznie, ze zmianą obiektu Rows na Columns.

[odwieczny]

Czyli taki kod mi wystarczy:

Kod: Zaznacz cały

Sub DodajKolumna
	rem W arkuszu AKTYWNYM
	thisComponent.CurrentController.ActiveSheet.Columns.insertByIndex(5,1)

lub

Kod: Zaznacz cały

Sub DodajKolumna	
	rem W arkuszu według INDEKSu
	thisComponent.Sheets(0).Columns.insertByIndex(5,1)	
End Sub

Natomiast z kopiowaniem wybranej kolumny do tej nowej mam problem. Udało mi się tylko taki kod wykombinować:

Kod: Zaznacz cały

Sub KopiujKolumna

skad  = thisComponent.Sheets.getByIndex(0).getCellRangeByName("A1:A100").getRangeAddress()
dokad = thisComponent.Sheets.getByIndex(0).getCellByPosition(5,0).getCellAddress()

thisComponent.Sheets.getByIndex(0).copyRange( dokad , skad )

End Sub

Działać działa ale mam wrażenie że można byłoby to lepiej zrobić...

[Jan_J]

Kopiowanie obszarów bardziej efektywnie da się przerowadzić operacją uno:copy z zestawu makropoleceń (tych prawdziwych, bo kod Basic zawiera zwykłe odwołania do API). Przykład użycia: https://forum.openoffice.org/pl/forum/v ... 54&p=22372