Diky za oba priklady.
Mel bych jeste jednu prosbu - kde se da najit popis techhle objektu,
jejich properties a funci?
V zakladnim helpu z toho neni vubec nic (nebo jsem to aspon nenasel) a v
SDK se beznadejne topim :-(
Zbynek Burget
Tomas Bilek napsal(a):
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]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
