🚀 go-pugleaf

Hey all,

This problem has me tearing my hair out!

I want to add some external hyperlink to images and textframes in an ID doc, and export the doc to HTML so that the hyperlinks work.

I can get this working for TextFrames, but for image frames with the same code, it does not work. (ie, the HTML has the hyperlinks for the textframes, but not the image boxes).

The hyperlinks are added to the hyperlinks window in ID, and clicking on a hyperlink in the window that has it's source item set to a TextFrame results in the text frame being selected, but clicking on the image hyperlink does not result in anything being selected.

Creating the hyperlink in ID via the UI is perfect (both in terms of selecting and exporting the link), it just seems to be the method of attaching the hyperlink to the page item source via script that's a problem?

Help please : )

--CODE EXAMPLE HERE--
For lCurrentPageItem = 1 To m_idDocument.AllPageItems.Count
    If TypeName(m_idDocument.AllPageItems(lCurrentPageItem)) = "TextFrame" Then
        Set idTextFrame = m_idDocument.AllPageItems(lCurrentPageItem)
                 Set idHyperLinkURLDestination = m_idDocument.HyperlinkURLDestinations.Add
                   idHyperLinkURLDestination.DestinationURL = "http://test.com"
                   Set idHyperLinkPageItemSource = m_idDocument.HyperlinkPageItemSources.Add(idTextFrame)
                   Set idHyperLink = m_idDocument.Hyperlinks.Add(idHyperLinkPageItemSource, idHyperLinkURLDestination)
    End If
    If TypeName(m_idDocument.AllPageItems(lCurrentPageItem)) = "Image" Then
        Set idImage = m_idDocument.AllPageItems(lCurrentPageItem)
                   Set idHyperLinkURLDestination = m_idDocument.HyperlinkURLDestinations.Add
                   idHyperLinkURLDestination.DestinationURL = "http://test.com"
                   Set idHyperLinkPageItemSource = m_idDocument.HyperlinkPageItemSources.Add(idImage)
                   Set idHyperLink = m_idDocument.Hyperlinks.Add(idHyperLinkPageItemSource, idHyperLinkURLDestination)
    End If
--CODE EXAMPLE HERE--