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

viuf · 02-19-2012, 09:51 AM

Ok, that's not good

I have now tried to do some shapes instead because the table is not the important thing, but I still have the same problem with the links. How kan I pass through a value to the GoToSlide sub?

Code:

Sub addShape()
 
Dim oshp As Shape
Dim height As Integer, width As Integer, left As Integer, right As Integer
Dim countOne As Integer, countTwo As Integer

height = 50
width = 80
left = 20
Top = 20
countOne = 0
countTwo = 0
Do While countOne < 3
Set oshp = ActivePresentation.Slides(2).Shapes _
.addShape(msoShapeRectangle, left, Top + (countOne * (height + 10)), width, height) ' left, top, width, height
    With oshp
        .Name = "myshape" & countOne
    End With
    With oshp.TextFrame.TextRange
        .Text = "Kategori" & countOne
    End With
    With oshp.ActionSettings(ppMouseClick)
        .Action = ppActionRunMacro
        .Run = "GoToSlide"
    End With
countOne = countOne + 1
Loop
End Sub
 

Sub GoToSlide()
    ActivePresentation.SlideShowWindow.View.GoToSlide (1)
End Sub