Apache OpenOffice Community Forum

Code: Select all

sub BreakImageLinks
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:SelectAll", "", 0, Array())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:LinkDialog", "", 0, Array())


end sub

Code: Select all

Sub EmbedGraphics() 
 oDPage = ThisComponent.DrawPage 
 oProvider = createUnoService("com.sun.star.graphic.GraphicProvider") 
 Dim oProps(0) as new com.sun.star.beans.PropertyValue 
 oProps(0).Name  = "URL" 
  If oDPage.hasElements() Then 
   For I = 0 To oDPage.Count - 1 
    oGraph = oDPage.getByIndex(I) 
    If oGraph.supportsService("com.sun.star.text.TextGraphicObject") Then 
     oProps(0).Value = oGraph.GraphicUrl 
     oGraph.Graphic = oProvider.queryGraphic(oProps()) 
    End If 
   Next I 
 End If 
End Sub

Code: Select all

Sub ConvertAllLinkedGraphics(Optional aDoc)
  Dim oDoc        ' Working document
  Dim oDP         ' Draw page
  Dim i%          ' Index counter
  Dim oGraph      ' Graph object in the draw page
  Dim iLinked%    ' Number of linked graphics
  Dim iEmbedded%  ' Number of embedded graphics
  Dim iConverted% ' Linked graphics converted to embedded
  Dim s1$         ' Graphic service name
  Dim s2$         ' Graphic service name

  REM Only know how to convert these types
  s1 = "com.sun.star.drawing.GraphicObjectShape"
  s2 = "com.sun.star.text.TextGraphicObject"

  If IsMissing(aDoc) OR IsNull(aDoc) OR IsEmpty(aDoc) Then
    oDoc = ThisComponent
  Else
    oDoc = aDoc
  End If

  REM Get the document draw page and then enumerate the graphics.
  oDP = oDoc.getDrawPage()
  For i=0 To oDP.getCount()-1
    oGraph = oDP.getByIndex(i)
    If oGraph.supportsService(s1) OR oGraph.supportsService(s2) Then
      If InStr(oGraph.GraphicURL, "vnd.sun") <> 0 Then
        iEmbedded = iEmbedded + 1
      Else
        iLinked = iLinked + 1
        If EmbedLinkedGraphic(oGraph, oDoc) Then
          iConverted = iConverted + 1
        End If
      End If
    End If
  Next
  Print "Found " & iLinked & " linked and " & iEmbedded & _
        " embedded graphics and converted " & iConverted
End Sub

Function EmbedLinkedGraphic(oGraph, oDoc) As Boolean
  REM Author: Andrew Pitonyak
  Dim sGraphURL$  ' External URL of the graphic.
  Dim oGraph_2    ' Created graphic.
  Dim oCurs       ' Cursor where the graphic is located.
  Dim oText       ' Text object containing graphic.
  Dim oAnchor     ' Anchor point of the image
  Dim s1$         ' Graphic service name
  Dim s2$         ' Graphic service name

  EmbedLinkedGraphic = False
  If InStr(oGraph.GraphicURL, "vnd.sun") <> 0 Then
    REM Ignore an image that is already embedded
    Exit Function
  End If
  s1 = "com.sun.star.drawing.GraphicObjectShape"
  s2 = "com.sun.star.text.TextGraphicObject"
  If oGraph.supportsService(s1) Then

    REM Convert a GraphicObjectShape.
    oAnchor = oGraph.getAnchor()
    oText = oAnchor.getText()
  
    oGraph_2 = ThisComponent.createInstance(s)
    oGraph_2.GraphicObjectFillBitmap = oGraph.GraphicObjectFillBitmap
    oGraph_2.Size = oGraph.Size
    oGraph_2.Position = oGraph.Position
    oText.insertTextContent(oAnchor, oGraph_2, False)
    oText.removeTextContent(oGraph)
    EmbedLinkedGraphic = True
    
  ElseIf oGraph.supportsService(s2) Then
  
    REM Convert a TextGraphicObject.
    Dim oBitmaps
    Dim sNewURL$
    Dim sName$

    sName$ = oGraph.LinkDisplayName
    oBitmaps = oDoc.createInstance( "com.sun.star.drawing.BitmapTable" )
    If oBitMaps.hasByName(sName) Then
      Print "Link display name " & sName & " already exists"
      Exit Function
    End If
    'Print "Ready to insert " & sName
    oBitmaps.insertByName( sName, oGraph.GraphicURL )
    sNewURL$ = oBitmaps.getByName( sName )
    'Print "inserted URL " & sNewURL
    oGraph.GraphicURL = sNewURL
    EmbedLinkedGraphic = True
  End If
End Function