Re: Bild aus Internetquelle ändern
Verfasst: Sa, 24.05.2008 14:16
Hallo Nomad,
wenn es Dir nur darum geht ein Bild in einem Textdokument online zu holen dann sollte folgender Code helfen:
Hilft das weiter oder habe ich Deine Frage einfach falsch interpretiert?
Jürgen
wenn es Dir nur darum geht ein Bild in einem Textdokument online zu holen dann sollte folgender Code helfen:
Code: Alles auswählen
Sub addOnlineImage
oDocument = thisComponent
page = oDocument.drawPage
img = oDocument.createInstance("com.sun.star.drawing.GraphicObjectShape")
Dim point As New com.sun.star.awt.Point
Dim size As New com.sun.star.awt.Size
dim oGrafikGroesse as new com.sun.star.awt.Size
size.Width = 3600
size.Height = 1800
img.GraphicUrl="http://www.office-center-jd.de/Screenshot/LogoOOo1.jpg"
img.Size = size
page.add(img)
End SubJürgen