To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=100157
User ernst_org changed the following:
What |Old value |New value
================================================================================
Status|CLOSED |UNCONFIRMED
--------------------------------------------------------------------------------
Resolution|DUPLICATE |
--------------------------------------------------------------------------------
------- Additional comments from [email protected] Mon Mar 16 08:33:21
+0000 2009 -------
example this code is funcional in 00 2.4.1 but not in 3.00
Sub InsertGraphicObject (grafik as String)
Dim oCursor
Dim oGraph
Dim oText
Dim oViewCursor as Object
Dim oImage as Object
Dim oCell as Object
Dim oPath as String
Dim lFil as String
oCurSelection = thisComponent.getCurrentSelection()
oSel = oCurSelection.getByIndex(0)
oSelText = oSel.getText()
oStart = oSel.getStart()
oTextCursor = oSelText.createTextCursorByRange(oStart)
oTextCursor.goToStart(TRUE)
oGraph = thisComponent.createInstance("com.sun.star.text.GraphicObject")
With oGraph
.GraphicURL = graphic
.AnchorType = com.sun.star.text.TextContentAnchorType.AS_CHARACTER
.HyperLinkTarget = "_self"
.width = 4500
.height = 4500
End With
oSelText.insertTextContent ( oTextCursor, oGraph, False)
wait 500
oDoc = ThisComponent
oViewCursor = oDoc.getCurrentController().getViewCursor()
oText = oDoc.getText()
TextTables = oDoc.getTextTables()
oImage = oDoc.createInstance( "com.sun.star.text.GraphicObject" )
oImage.Graphic= oGraph.Graphic
oImage.size=oGraph.size
oSelText.insertTextContent ( oTextCursor, oImage, False)
otext.removeTextContent(oGraph)
End Sub
---------------------------------------------------------------------
Please do not reply to this automatically generated notification from
Issue Tracker. Please log onto the website and enter your comments.
http://qa.openoffice.org/issue_handling/project_issues.html#notification
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
