To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=15381
------- Additional comments from [EMAIL PROTECTED] Mon Jun 9 04:45:07 +0000
2008 -------
you could use this macro and assign it to an hotkey or to a toolbar button
Sub EmbedGraphics()
oDPage = ThisComponent.DrawPage
oProvider = createUnoService("com.sun.star.graphic.GraphicProvider")
Dim oProps(0) as new com.sun.star.beans.PropertyValue
oProps(0).Name = "URL"
If oDPage.hasElements() Then
For I = 0 To oDPage.Count - 1
oGraph = oDPage.getByIndex(I)
If oGraph.supportsService("com.sun.star.text.TextGraphicObject") Then
oProps(0).Value = oGraph.GraphicUrl
oGraph.Graphic = oProvider.queryGraphic(oProps())
End If
Next I
End If
End Sub
credits to pablo from the Italian OOo Google Discussion Group:
http://groups.google.it/group/it-alt.comp.software.openoffice/browse_thread/
thread/6bec404f1345b1fd/c03a52b8074f73d2?hl=it#c03a52b8074f73d2
---------------------------------------------------------------------
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]
