OpenOffice.info

Page = ThisComponent.Sheets(0).drawPage
NewGrafik = ThisComponent.createInstance("com.sun.star.drawing.GraphicObjectShape")
GrafikName = ConvertToURL("/home/konny/Downloads/Bild.png")
NewGrafik.GraphicURL = GrafikName
NewGrafik.name = GrafikName
oCell = ThisComponent.Sheets(0).getcellbyPosition(1, 1)'Ankerposition festlegen 
Page.add(NewGrafik)
NewGrafik.Anchor = oCell

Dim Size As New com.sun.star.awt.Size
oBildGroesse = NewGrafik.GraphicObjectFillBitmap.GetSize
hoehe = oBildGroesse.height ' in Pixeln
breite = oBildGroesse.width 'in Pixeln

Dim oGrafikGroesse As new com.sun.star.awt.Size
oGrafikGroesse.height = hoehe * 55 'Grösse festlegen
oGrafikGroesse.width = breite * 30
NewGrafik.setSize(oGrafikGroesse)

Hallo,
ich habe per Makro mehrere Bilder heruntergeladen, in einem Ordner abgespeichert und in ein Calc-Dokument eingefügt. Problem ist, dass die Bilder als Link eingefügt werden. Wie kann ich diese Verknüpfungen per Makro lösen? Für ein Code-Beispiel wäre ich sehr dankbar!

[code]
Page = ThisComponent.Sheets(0).drawPage
NewGrafik = ThisComponent.createInstance("com.sun.star.drawing.GraphicObjectShape")
GrafikName = ConvertToURL("/home/konny/Downloads/Bild.png")
NewGrafik.GraphicURL = GrafikName
NewGrafik.name = GrafikName
oCell = ThisComponent.Sheets(0).getcellbyPosition(1, 1)'Ankerposition festlegen
Page.add(NewGrafik)
NewGrafik.Anchor = oCell

Dim Size As New com.sun.star.awt.Size
oBildGroesse = NewGrafik.GraphicObjectFillBitmap.GetSize
hoehe = oBildGroesse.height ' in Pixeln
breite = oBildGroesse.width 'in Pixeln

Dim oGrafikGroesse As new com.sun.star.awt.Size
oGrafikGroesse.height = hoehe * 55 'Grösse festlegen
oGrafikGroesse.width = breite * 30
NewGrafik.setSize(oGrafikGroesse)
[/code]
Vielen Dank im Voraus!
Gruß konny