Problem using "controls" command

[Paul_Hossler]

OK, I'm GUESSING that you're trying to make some sort of scoreboard using PowerPoint in presentation mode

You never said how you plan to trigger events, so I'm going with the way I do it. Maybe it'll give you ideas. Ask questions if you want

I think you thought the 'Shapes' on the slide were 'Controls' - something different

Sub Init() is required to start - click on it's shape on the slide.

It also has the answer to your original question

There are other ways to automatically run Init, but they require CustomUI. Not hard but can be tricky

Sub ShapeSub() responds to clicks. Use Insert, Action, Run Macro

Option Explicit


Sub Init()
    Dim i As Long
    
    For i = 1 To ActivePresentation.Slides(1).Shapes.Count
        With ActivePresentation.Slides(1).Shapes(i)
            If .Name Like "o_*" Then                   '   or             If .Name = "o_" & i Then
                .TextFrame.TextRange.Text = 100
            End If
        End With
    Next i
End Sub




Sub ShapeSub(oShape As Shape)
    oShape.TextFrame.TextRange.Text = oShape.TextFrame.TextRange.Text - 1
End Sub

Capture.JPG