Verknüpfung auf Grafik lösen mit Makro

Antwort erstellen


Um automatische Eingaben zu unterbinden, musst du die nachfolgende Aufgabe lösen.

BBCode ist eingeschaltet
[img] ist ausgeschaltet
[flash] ist ausgeschaltet
[url] ist eingeschaltet
Smilies sind ausgeschaltet

Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Verknüpfung auf Grafik lösen mit Makro

Verknüpfung auf Grafik lösen mit Makro

von konny » Fr, 20.01.2017 17:08

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

Nach oben