kuldikin

Sub Main 
  'Inspect ThisComponent.getDrawPage() 
  ConvertAllLinkedGraphics 
End Sub 

Sub ConvertAllLinkedGraphics(Optional aDoc) 
  Dim oDoc        ' Working document 
  Dim oDP         ' Draw page 
  Dim i%          ' Index counter 
  Dim oGraph      ' Graph object in the draw page