Bild aus Internetquelle ändern

[turtle47]

Hallo Nomad,

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 Sub

Hilft das weiter oder habe ich Deine Frage einfach falsch interpretiert?

Jürgen