Microsoft Office Forums - View Single Post - [Solved] VBA and hyperlinks in table cells

JohnWilson · 02-19-2012, 02:51 AM

Something like this maybe:

Code:

  With .Cell(iRow, iColumn).Shape.TextFrame.TextRange
                .Text = "Spørgsmål " & vbNewLine & questions(iColumn - 1, iRow - 1) & vbNewLine & "Svar " & vbNewLine & answers(iColumn - 1, iRow - 1)
                With .Font
                   .Name = "Verdana"
                   .Size = "14"
                End With
                With .ActionSettings(ppMouseClick)
                If iRow = 1 And iColumn = 1 Then
                .Action = ppActionRunMacro
                .Run = "myMacro"
                End If
                End With
            End With