Узнать, есть ли картинка, привязанная к ячейке?

[dndn]

Уважаемые гуру ОпенОфиса!
Возникла такая задачка - узнать программно, макросом, есть ли картинка, привязанная к ячейке Calc. И если есть, то прочесть ее подноготную - адрес картинки и ее размер.
Буду премного благодарен.  

[rami]

Никаких картинок в ячейках нет, все графические объекты находятся в графических листах по одному на каждый табличный лист. Нужно получить DrawPage и перебрать его содержимое по типу. Если нужно узнать привязку. Если это то, что нужно, узнать "подноготную".

[dndn]

rami, огромное спасибо. А есть пример, как это выглядит в макросе? Или ткните в мануал, пжлст...

[rami]

rami, огромное спасибо. А есть пример, как это выглядит в макросе? Или ткните в мануал, пжлст...

Вот пример, куда смотреть:

Код Выделить Развернуть

Sub Main
Dim obj, CellNane
obj=ThisComponent.DrawPages().getByIndex(0).getByIndex(0)  'на листе должен быть хотябы один графический объект
CellNane=obj.Anchor.AbsoluteName  'адрес привязки
End Sub

Но вообще нужно уточнять детали, что бы узнать тот ли это объект.

[dndn]

rami спасибо большое, буду копать.
По результату обязательно отпишусь.