Макросы для Draw/Impress
Материал из Forumooo wiki
Доступ к графическому объекту по имени
Перебор всех графических объектов по индексу и сопоставление его имени. Например,
Sub Main With ThisComponent For i=0 to .DrawPages.Count-1 For j=0 to .DrawPages(i).Count-1 If .DrawPages(i).getByIndex(j).Name="Рисунок1" then msgbox ("Есть рисунок!") else msgbox ("Нету!") Next Next End With End Sub