On Thu, 27 Apr 2006 17:10:13 -0400, Ann Van <avan highwire.stanford.edu>
wrote:
> Stephan,
>
> Thanks for all the pointers. I am no longer getting any
errors in running
> the code. However, I am not seeing any links in the
resulting document.
> Could it be because I am using OpenOffice.org 1.1, or
that I am trying
> also to output it as a PowerPoint file?
>
> Here is a code snippet:
>
> // xPresentation is an impress presentation
> XDrawPage xDrawPage =
PageHelper.getDrawPageByIndex(xPresentation, 0);
> XMultiServiceFactory xFactory =
>
>
(XMultiServiceFactory)UnoRuntime.queryInterface(XMultiServic
eFactory.class,
> xPresentation);
> Object xObj =
xFactory.createInstance("com.sun.star.drawing.TextShap
e");
>
> XShape xShape =
(XShape)UnoRuntime.queryInterface(XShape.class, xObj);
> xShape.setPosition(aPos);
> xShape.setSize(aSize);
>
> XText xText =
(XText)UnoRuntime.queryInterface(XText.class, xShape);
> XTextCursor xTextCursor = xText.createTextCursor();
>
> Object o =
xFactory.createInstance("com.sun.star.text.TextField.U
RL");
> XTextContent xTC = (XTextContent)
> UnoRuntime.queryInterface(XTextContent.class, o);
> XPropertySet xPS = (XPropertySet)
> UnoRuntime.queryInterface(XPropertySet.class,
xTC);
> xPS.setPropertyValue("URL","http://www.openoffice.org
a>");
>
> xText.insertTextContent(xTextCursor, xTC, true);
> xDrawPage.add(xShape);
>
> As you can see, I have a presentation document where I
am trying to add a
> URL to a TextShape. However, the resulting document
doesn't show the URL
> at all, either as a link or even as text. If I add text
to the end of the
> TextShape that is not a URL (using
ShapeHelper.addPortion), then I can
> see
> the text fine. Any ideas I so I can get the URL to show
and link
> correctly? Or so that I can debug further?
>
> Thanks,
> Ann
Andrew's Document point a snippet on how to insert URL to
text, he does
mention that this is for writer which stores the URL as a
porperty of the
text, I am not sure if there is a difference on impress.
Also this snippet
is for 2.0 and yes there could be lots of difference
starting with the
dispatcher and also the way to call the services.
1.1. Inserting a URL into a Write document
Although a Calc document stores URLs in a URL text field, as
shown
elsewhere in this document, Write documents identify
contained URLs based
on character properties. A link becomes a link, when the
HyperLinkURL
property is set.
Sub InsertURLAtTextCursor
Dim oText 'Text object for the current object
Dim oVCursor 'Current view cursor
oVCursor =
ThisComponent.getCurrentController().getViewCursor()
oText = oVCursor.getText()
oText.insertString(oVCursor, "andrew pitonyak.org", True)
oVCursor.HyperLinkTarget = "mailto:andrew pitonyakorg"
oVCursor.HyperLinkURL = "andrew pitonyak.org"
End Sub
--
Alexandro Colorado
CoLeader of OpenOffice.org ES
http://es.openoffice.org
------------------------------------------------------------
---------
To unsubscribe, e-mail: dev-unsubscribe api.openoffice.org
For additional commands, e-mail: dev-help api.openoffice.org
|