OpenOffice.info

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

Hallo Nomad,

wenn es Dir nur darum geht ein Bild in einem Textdokument online zu holen dann sollte folgender Code helfen:
[code]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[/code]

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

Jürgen