Tohle by šlo dost snadno předělat na příklad pomocí DECLARE na Kód v Našem Basicu.
LADER u dotazu v prvém případě uvádí své řešení jako funkci. To samozřejmě vyhovuje, ale syntax pomocí DECLARE by byl prakticky shodný s tím ve VBA a snad by šel i přímo použít bez zaklínadla VBASupport 1. Já jsem tady už někdy dávno a opakovaně dával pomůzku na určování barev. Měli byste si ji otestovat, nebo vyhledat :
Function BarvaPozadi 'Vypíše číslo barvy pozadí buňky vlevo
oCell = ThisComponent.CurrentController.getSelection()
With oCell.RangeAddress
SH = .Sheet
SC = .StartColumn
SR = .StartRow
End With
oSheet = ThisComponent.Sheets(SH)
oCell = oSheet.GetCellbyPosition(SC+i-1, SR)
barva = oCell.CellBackColor
pismo = oCell.CharColor
BarvaPozadi = "Číslo barvy pozadi = " & barva & " Číslo barvy písma = " & pismo
End Function
Tuto rutinu mám připravenu i pro jiné účely. zejména pro hledání podle cell proprty, tedy podle barvy pozadí, písma (tohle dělá i kód výše), ale mělo by to být také podle velikosti, fontu a typu (Normální, tučné, kurzíva, podtržené nadtržené a další). Mimo toho orámování může být pro každou stranu jiné co do tloušťky, nebo barvy. Označování by mělo být také typizované, aby uživatel nepřemýšlel co, kterým typem označení myslel ap...
Tuto připravovanou ale nedokončenou šablonu bych zamýšlel jak "výchozí šablonu" takže ovládání maker by si musel každý zvolit sám po načtení, nebo nechat jen hyperlinkové volání (s současné verzi česky a anglicky). Takže odzkouší šablonu, prohlédne si Basic a nechá třeba jen to co používá. Ostatní smaže a uloží s nastavením výchozí. Použije až případě, že to co navolil potřebuje. Není vypadá asi divně, ale jen z tohoto důvodu.
Rád bych, aby byla nějaká zpětná kontrola od Vás členů komunity OpenOffice.cz. Uvítal bych i návrh na správu šablony. Nemám na to moc času a za necelý rok mi bude 70. Šablonu v této podobě ještě nezveřejněnou dávám k posouzení na odkaze "Jak propagovat OpenOffice | LibreOffice".
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É
. Budu rád za veškerou radu či pomoc !