Sub KopirujPredchoziRadek
Dim oCell As Object
Dim Doc as Object
oCell = ThisComponent.CurrentController.getSelection()
With oCell.RangeAddress
SH = .Sheet
SR = .StartRow
End With
Sheet = ThisComponent.Sheets(SH)
Doc = ThisComponent
Sheet = Doc.Sheets.getByIndex(SH)
Sheet = Doc.Sheets(SH)
Rows = Sheet.getRows()
Rows.insertByIndex(SR,1)
zkopiruj = doc.Sheets(SH).getCellRangeByPosition(0,SR-1,1023,SR-1)
doc.CurrentController.select(zkopiruj)
obsah = doc.CurrentController.getTransferable()
vloz = doc.Sheets(SH).getCellRangeByPosition(0,SR,1023,SR)
doc.CurrentController.select(vloz)
doc.CurrentController.insertTransferable(obsah)
End Sub
K tomuhle přiřadit tlačítko, nebo klávesovou zkratku. Jak na to uvádí Dan Sedláček a našel by jste tam i inspiraci v tom smyslu, že by jste si makro sestrojil sám.
Tohle makro "tvrdě" zkopíruje celý předcházející řádek (1024 buněk), vloží 1 nový řádek a do něj vloži ten zkopírovaný. Takže stačí dát kurzor do kterékoliv buňky pod řádek, který chcete okopírovat - spustíte makro - nejlépe klávesovou zkratkou, kterou přiřadíte následujícím postupem :
Nástroje > Přizpůsobit > klávesnice > vybrat makro z OpenOfiice.org (podle toho kde ho máte) klepnout na Klávesovou zkratku (panel vlevo nahoře) + tlačítko "Upravit". Vedle makra se objeví vybraná klávesová zkratka. Nezapomeňte uložit.
Editoval neutr (24. 5. 2013 10:07:54)
Moje e-mailová adresa
Pokud je Váš problém vyřešen, označte prosím svůj příspěvek za "VYŘEŠENÝ"
Zlepšíte orientaci při vyhledávání řešení JAK OZNAČIT TÉMA ZA VYŘEŠENÉ