Hello Fernand, On Tuesday 16 June 2009, 10:13, Fernand Vanrie wrote: > Hallo Ariel , > > the opengrok link is not working,
change DEV300_m** by the most recent, like DEV300_m50 http://svn.services.openoffice.org/opengrok/xref/DEV300_m50/odk/examples/java/Text/GraphicsInserter.java#155 > maybe you can write it down in basic? :-) here you have it :-) REM ***** BASIC ***** Option Explicit Sub Writer_Demo Dim oDoc as Object oDoc = CreateNewDoc("writer") Dim sImage$ sImage = getGalleryPath() & "/www-back/aqua.jpg" Dim oImage as Object oImage = CreateEmbeddedGraphicObject(oDoc, sImage) oImage.Width = 5000 oImage.Height = 5000 Dim oText as Object, oCursor as Object oText = oDoc.getText() oCursor = oText.createTextCursorByRange(oText.getStart()) oText.insertTextContent(oCursor, oImage, False) End Sub Sub Draw_Demo Dim oDoc as Object oDoc = CreateNewDoc("draw") Dim oDrawPage as Object oDrawPage = oDoc.getDrawPages().getByIndex(0) Dim sImage$ sImage = getGalleryPath() & "/www-back/aqua.jpg" Dim oImage as Object oImage = CreateEmbeddedGraphicObject(oDoc, sImage) Dim aSize as New com.sun.star.awt.Size aSize.Width = 5000 aSize.Height = 5000 Dim aPos as New com.sun.star.awt.Point aPos.X = CInt(oDrawPage.Width/2 - aSize.Width/2) aPos.Y = CInt(oDrawPage.Height/2 - aSize.Height/2) oImage.setSize(aSize) oImage.setPosition(aPos) oDrawPage.add(oImage) End Sub Function CreateNewDoc( sDocType as String, _ Optional MediaDescriptor(), _ Optional sFrame as String ) as Object On Error Resume Next If IsMissing(MediaDescriptor()) then MediaDescriptor() = Array() If IsMissing(sFrame) then sFrame = "_default" CreateNewDoc = StarDesktop.loadComponentFromURL(_ "private:factory/s" & sDocType , _ sFrame, 0, MediaDescriptor()) End Function Function CreateEmbeddedGraphicObject( oDoc as Object, sURL as String ) as Object On Error Resume Next Dim sService as String If oDoc.supportsService("com.sun.star.text.TextDocument") Then sService = "com.sun.star.text.TextGraphicObject" Else sService = "com.sun.star.drawing.GraphicObjectShape" End If Dim oGraphicObject as Object oGraphicObject = oDoc.createInstance(sService) oGraphicObject.setPropertyValue("Graphic", getGraphicFromURL(sURL)) CreateEmbeddedGraphicObject = oGraphicObject End Function Function getGraphicFromURL( sURL as String) as com.sun.star.graphic.XGraphic On Error Resume Next Dim oGraphicProvider as Object oGraphicProvider = createUnoservice("com.sun.star.graphic.GraphicProvider") Dim aMediaProperties(0) as New com.sun.star.beans.PropertyValue aMediaProperties(0).Name = "URL" aMediaProperties(0).Value = sURL getGraphicFromURL = oGraphicProvider.queryGraphic(aMediaProperties) End Function Function getGalleryPath() as String On Error Resume Next Dim oPathSettings as Object oPathSettings = createUNOService("com.sun.star.util.PathSettings") Dim sPath$ sPath = oPathSettings.getPropertyValue("Gallery") If InStr(sPath, ";") Then Dim sPaths() sPaths = Split(sPath, ";") sPath = sPaths(0) End If getGalleryPath = sPath End Function Regards -- Ariel Constenla-Haile La Plata, Argentina --------------------------------------------------------------------- To unsubscribe, e-mail: [email protected] For additional commands, e-mail: [email protected]
