<html>
<head>
<base href="https://bugs.documentfoundation.org/">
</head>
<body>
<p>
<div>
<b><a class="bz_bug_link
bz_status_NEW "
title="NEW - Basic: insert graphicobject via ThisComponent.createInstance("com.sun.star.text.GraphicObject") not working in 6.1.0.3"
href="https://bugs.documentfoundation.org/show_bug.cgi?id=119519#c12">Comment # 12</a>
on <a class="bz_bug_link
bz_status_NEW "
title="NEW - Basic: insert graphicobject via ThisComponent.createInstance("com.sun.star.text.GraphicObject") not working in 6.1.0.3"
href="https://bugs.documentfoundation.org/show_bug.cgi?id=119519">bug 119519</a>
from <span class="vcard"><a class="email" href="mailto:struckkai@gmx.net" title="Kai Struck <struckkai@gmx.net>"> <span class="fn">Kai Struck</span></a>
</span></b>
<pre>Ah, ok , forget my previous answer, I misread your <a href="show_bug.cgi?id=119519#c10">comment 10</a>.
You are right! It should work for all versions (LO and OO) with this code:
Sub InsertGraphicObject
Dim oDoc
Dim sURL
Dim oCursor
Dim oGraph
Dim oText
sURL= ConvertToUrl("<a href="http://pmg.pmgroup.be/enews/deroulard/exploit1.jpg">http://pmg.pmgroup.be/enews/deroulard/exploit1.jpg</a>")
oDoc = ThisComponent
oText = oDoc.getText()
oCursor = oText.createTextCursor()
oCursor.gotoStart(False)
oGraph = oDoc.createInstance("com.sun.star.text.GraphicObject")
oGraph.Graphic = getgraphfromurlaslink(sURL)
With oGraph
.GraphicURL = sURL
.Width = 6000
.Height = 8000
End With
oText.insertTextContent(oCursor, oGraph, False)
End Sub
function getGraphFromUrlAsLink(sFileUrl as String ) as Object
oProvider = createUnoService("com.sun.star.graphic.GraphicProvider")
Dim oPropsIN(1)as new com.sun.star.beans.PropertyValue
oPropsIN(0).Name = "URL"
oPropsIN(0).Value = converttoURL(sFileUrl)
oPropsIN(1).Name = "LoadAsLink"
oPropsIN(1).Value = TRUE
getGraphFromUrlAsLink = oProvider.queryGraphic(oPropsIN())
end function</pre>
</div>
</p>
<hr>
<span>You are receiving this mail because:</span>
<ul>
<li>You are the assignee for the bug.</li>
</ul>
</body>
</html>