Verknüpfung auf Grafik lösen mit Makro

Programmierung unter AOO/LO (StarBasic, Python, Java, ...)

Moderator: Moderatoren

konny
Beiträge: 1
Registriert: Fr, 20.01.2017 16:49

Verknüpfung auf Grafik lösen mit Makro

Beitrag von konny »

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: Alles auswählen

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)
Vielen Dank im Voraus!
Gruß konny