Adding hyperlinks to Text using vba

Your code is very hard to follow!

To add a hyperlink you have to work with a TextRange.

So:

Take the TextRange in the shape, Find the part that is answer18 (which needs to be the link address without http:\) and add the action setting

This should work but I can't see all of the code so some tweaking might be needed

printableSlide.Shapes(2).TextFrame.TextRange.Text = _

        answer1 & vbCr & answer2 & vbCr & answer3 & vbCr & answer4 & vbCr & answer5 & vbCr & _

        answer6 & vbCr & answer7 & vbCr & answer8 & vbCr & answer9 & vbCr & answer10 & vbCr & answer11 & vbCr & answer12 & _

        vbCr & answer13 & vbCr & answer14 & vbCr & answer15 & vbCr & answer16 & vbCr & answer17 & vbCr & answer18

        With printableSlide.Shapes(2).TextFrame.TextRange.Find(answer18).ActionSettings(ppMouseClick)

        .Action = ppActionHyperlink

        .Hyperlink.Address = "http:\" & answer18

        End With

Given a shape containing text and some text you want to apply a hyperlink to, here's a start:

Function ReturnRange(oSh As Shape, sText As String) As TextRange

    Dim lStartChar As Long

    With oSh.TextFrame.TextRange

        lStartChar = InStr(.Text, sText)

        If lStartChar > 0 Then

            ' the text we want is there

            Set ReturnRange = .Characters(lStartChar, Len(sText))

            Exit Function

        End If

    End With

End Function

Sub TestMe()

    Dim oSh As Shape

    Dim oTxtRange As TextRange

    Set oSh = ActiveWindow.Selection.ShapeRange(1)

    Set oTxtRange = ReturnRange(oSh, "Click Here")

    If Not oTxtRange Is Nothing Then

        With oTxtRange

            MsgBox .Text

            .ActionSettings(ppMouseClick).Hyperlink.Address = "http://www.pptfaq.com"

        End With

    End If

End Sub

Try something like this

Sub LinkLine18()

    printableSlide.Shapes(2).TextFrame.TextRange.Lines(18) _

        .ActionSettings(ppMouseClick).Hyperlink.Address = "http://www.blah.co.uk/"

End Sub

This works on the 18th line of the printable slide. Since you asked for the 18th answer, which should be the 18th line, it should work.

--David

Ah. Yes. Good thought. Paragraphs should work for this application. I believe his answers are in a placeholder but not a title placeholder. Thanks for the correction, John.

It will probably work as long as there are no multi line answers. Paragraphs( 18) might be better but it can still fail in the unlikely event the text is in a Title Placeholder.