Robert Vojta napsal(a):
Tomas Lovetinsky wrote:

Neví někdo jak toto udělat bez nutnosti zadávat jako parametr jméno listu a adresu buňky?


Dim oCell As Object
oCell = ThisComponent.getCurrentSelection
oCell.setPropertyValue( "CellBackColor", RGB( 0, 0, 0 ) )


Tohle ovsem zmeni barvu momentalne vybrane bunky

ja se dostavam k barve pozadi bunky takto (ale tady se musi zadat ten list a souradnice bunky:

Dim sheet, column, row
thiscomponent.sheets.getbyindex(sheet-1).getcellbyposition(column-1,row-1).cellbackcolor


pokud nekdo zna zpusob, jak funkci predat informaci o tom, odkud byla zavolana (tzn. zjistit, ze byla zavolana funkci na urcitem liste v urcite bunce), byl bych velice rad, kdyby se o tuto znalost podelil :-)

Zbynek



---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Odpovedet emailem