Zbyněk Burget napsal(a):
Zdravim konferenci,
potreboval bych v Calcu programove (bud funkci v bunce nebo v Basicu)
zjistit barvu pozadi urcite bunky. Presnej receno potrebuju spocitat,
kolik bunek v urcite oblasti ma jinou barvu pozadi, nez bilou.
Trochu jiná varianta:
sub ukazbarvu
dim oDoc, oSelect as object
dim list as integer
oDoc = ThisComponent
oSelect=oDoc.CurrentSelection.getRangeAddress
i=oDoc.CurrentSelection.getCellAddress.Sheet
msgbox "List "+cstr(i)+chr(13)+_
"Barva levé horní buňky je: "+_
hex(oDoc.sheets(i).getCellByPosition(oSelect.StartColumn,oSelect.StartRow).CellBackColor)
end sub
Tom B.
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
