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