Re: Fwd: Inserting an embedded image at a bookmark position

Rui Lima wrote:
> New problem...
> When the bookmark is inside a table it doesn't work :(
> any ideia?
Yes first find the "tabel" then using a
"Tablecursor" (lot of examples 
on the OOforum)
>
> 2007/2/13, Rui Lima <eng.ruilimagmail.com>:
>>
>> Thanks Fernand i've created the following sub
>>
>> Sub ViewCursorGotoBookMark(ByVal aDocument As
XComponent, ByVal
>> strBookMarkName As String)
>>         Dim MyBookMark As XTextContent
>>         MyBookMark = GetBookmarkByName(aDocument,
strBookMarkName)
>>         Dim MyViewCursor As XTextViewCursor
>>         MyViewCursor =
DirectCast(DirectCast(aDocument,
>> XTextDocument).getCurrentController, 
>> XTextViewCursorSupplier).getViewCursor
>>        
MyViewCursor.gotoRange(MyBookMark.getAnchor(), False)
>> End Sub
>>
>> Now it inserts at the bookmark position, Could you
please tell me how 
>> can
>> i horizontally center the image on the page???
Anchoring to a page an doiing some calculating 
(pageheight-pictureheight) /2  = Verticalposition 
Anchor as a character an puting in a tablecell
>>
>>
>>
>> By the way  the use of the funtions, for the ones
who needs is:
>> ViewCursorGotoBookMark(objDocument,
"bkImage")
>> InsertImage(objDocument, strImagem, MyWidth,
MyHeight)
>> Hope it helps others....
>>
>> 2007/2/13, Fernand Vanrie <sospmgroup.be>:
>> >
>> > have a look at
>> >
>> >
>> > 
>> http://www.oooforum.org/f
orum/viewtopic.phtml?t=14348&highlight=bookmark+viewcurs
or 
>>
>> > 
>> <http://www.oooforum.org/f
orum/viewtopic.phtml?t=14348&highlight=bookmark+viewcurs
or 
>>
>> > >
>> >
>> > Rui Lima wrote:
>> > > I have the following code to insert an
embedded image on a 
>> WriterFile.
>> > > The
>> > > code is VB.NET
>> > >
>> > >
>> > > Dim MyDispatcher As XDispatchHelper = 
>> MyMServiceFactory.createInstance
>> > ("
>> > > com.sun.star.frame.DispatchHelper")
>> > > Dim MyProp(3) As
unoidl.com.sun.star.beans.PropertyValue
>> > > MyProp(0) =
MakePropertyValue("FileName", strImgFileName)
>> > > MyProp(1) =
MakePropertyValue("AsLink", False)
>> > > MyProp(2) =
MakePropertyValue("Style", "Image")
>> > >
>> > > Dim an As
unoidl.com.sun.star.frame.DispatchResultEvent = 
>> DirectCast(
>> > > 
>>
MyDispatcher.executeDispatch(aDocument.getCurrentController.
getFrame,
>> > > ".uno:InsertGraphic",
"", 0, MyProp).Value,
>> > >
unoidl.com.sun.star.frame.DispatchResultEvent)
>> > >
>> > > Dim MyController As XController =
aDocument.getCurrentController
>> > > Dim MySelecionSupplier As
XSelectionSupplier =
>> > DirectCast(MyController,
>> > > XSelectionSupplier)
>> > > Dim selection As uno.Any =
MySelecionSupplier.getSelection
>> > > Dim sel As
unoidl.com.sun.star.drawing.XShape = selection.Value
>> > >
>> > > Dim strShapeType As String =
sel.getShapeType
>> > > ' Dim pos As
unoidl.com.sun.star.awt.Point = sel.getPosition
>> > > sel.setSize(New
unoidl.com.sun.star.awt.Size(SizeWidth, SizeHeight))
>> > >
>> > >
>> > > But i still have a problem with it... How
can i set the position 
>> to a
>> > > BookMark position???
>> > >
>> >
>> >
------------------------------------------------------------
---------
>> > To unsubscribe, e-mail: dev-unsubscribeapi.openoffice.org
>> > For additional commands, e-mail: dev-helpapi.openoffice.org
>> >
>> >
>>
>>
>> -- 
>>
__________________________________________________________
>> "O único lugar onde o sucesso vem antes que o
trabalho é no 
>> dicionário"
>>
>
>
>

------------------------------------------------------------
---------
To unsubscribe, e-mail: dev-unsubscribeapi.openoffice.org
For additional commands, e-mail: dev-helpapi.openoffice.org