Tak jsem to přece jen našel
Function Barva '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)
pozadi = oCell.CellBackColor
pismo = oCell.CharColor
Barva = "Číslo barvy pozadí = " & pozadi & " Číslo Barvy písma = " & pismo
End Function
Podobně se dá najít také typ písma a jiné věci. Stačí tohle makro zkopírovat do sešitu. Ve vlastním listu hned vedle testované buňky vpravo zadáte =BARVA() tak jako běžný vzorec. Vyskočí hláška s číslem barvy pozadí a písma. Je lepší výsledek vždy zkopírovat a vložit jen jako čísla a text (aby nebyla aktivní funkce).
Problematiku Writeru bych musel nastudovat. Jde o to, že tam existuje například možnost zvýraznit text, a nebo podobně dát pozadí. Nejsou to ale stejné pojmy a Calc to asi nevezme. Také asi půjde o barvy rámečků které výše uvedená funkce také nezjišťuje, ale to by zase v Calcu šlo.
Vyzkoušejte a dejte info, jestli by bylo potřeba něco přidělat, nebo tastovat přímo makro pro Writer.
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É