OpenOffice.info

Function breakGraphicLink(oDokument as Object, oSeite as Object)
       ' wandelt verlinkte Grafiken in Calc Seiten in eingebettet um.
       ' 20140127
       Dim oPage as Object
       Dim grafik as Object
       Dim i as Integer

       Dim oBitmap as Object
       Dim BitmapURL  as String
       Dim GrafikName as String
      
      
       oPage = oSeite.drawpage
       oBitmap = oDokument.createInstance("com.sun.star.drawing.BitmapTable")
     
       For i = 0 to oPage.count - 1
          grafik = oPage.getByIndex(i)
      
                   GrafikName = grafik.LinkDisplayName
      
                   If  oBitmap.hasByName(GrafikName) Then
                        oBitmap.replaceByName(GrafikName,  grafik.GraphicURL)
                    else
                    	oBitmap.insertByName(GrafikName,  grafik.GraphicURL)
                    End if 
      
                    BitmapURL = oBitmap.getByName(GrafikName)

                    grafik.GraphicURL = BitmapURL
                  
      
       next i
       
end function 

Dank für die Antwort. Das Zauberwort "Bitmap" hat mir gefehlt.

Mit dem Zauberwort und etwas Zeit und Probieren konnte ich es lösen.

Ich habe mal meinen Code (funktioniert zu mindest bei mir) mal angehängt
[code]Function breakGraphicLink(oDokument as Object, oSeite as Object)
' wandelt verlinkte Grafiken in Calc Seiten in eingebettet um.
' 20140127
Dim oPage as Object
Dim grafik as Object
Dim i as Integer

Dim oBitmap as Object
Dim BitmapURL as String
Dim GrafikName as String


oPage = oSeite.drawpage
oBitmap = oDokument.createInstance("com.sun.star.drawing.BitmapTable")

For i = 0 to oPage.count - 1
grafik = oPage.getByIndex(i)

GrafikName = grafik.LinkDisplayName

If oBitmap.hasByName(GrafikName) Then
oBitmap.replaceByName(GrafikName, grafik.GraphicURL)
else
oBitmap.insertByName(GrafikName, grafik.GraphicURL)
End if

BitmapURL = oBitmap.getByName(GrafikName)

grafik.GraphicURL = BitmapURL


next i

end function [/code]

Gruß und Danke
HogFather

Hi,
einen Link lösen, heißt ja eigentlich, dass etwas weggenommen wird. In diesem Fall verhält es sich umgekehrt. Der Datei muß eine Bitmap zugefügt werden. Dazu gibt es im Forum schon viele Beiträge, Suchegriff: Bitmaptable
[url=https://www.google.de/search?hl=de&q=S1+site%3Ade.openoffice.info&btnG=Suche#hl=de&q=bitmaptable+site:de.openoffice.info]Forumsuche über Google[/url]
HTH R

For i =0 to oLinks.getcount-1
			oLinks.removeByIndex()
		Next

Hallo
in einem Calc-Template ist eine Grafik per Verknüpfung als Logo eingebunden.
Per Makro wird die Vorlage gefüllt und dann als Xls in einem anderen Verzeichnis abgespeichert.
Leider ist in der xls das Logo immernoch als Link eingefügt.
Ich suche schon den ganzen Tag, finde aber nichts oder habe die falsche Frage an Google gestellt wie ich den Link lösen kann.
Ein
[code]For i =0 to oLinks.getcount-1
oLinks.removeByIndex()
Next[/code]
funktioniert nicht da getcount =0
Über das Menu -> Bearbeiten-> Verknüpfung kann ich das zwar lösen. Nur ist das für den Benutzer umständlich.

Was übersehe ich dauernd?

Viele Grüße
HogFather