Problem in adding picture to label in Powerpoint 2010

[Paul_Hossler]

OK, I was misinterpreting your point

But your paul.pptm doesn't seem to work, and I couldn't figure out a way to pass a Shape Object to your standard module macro

Never mind -- I got it -- nothing was happening since there was no Text Box7 on the slide -- added it and now it works, but ONLY if the objects are named the same.


However, I did it this way ...

Option Explicit 
Sub IncreaseScore() 
    Dim i As Long 
     
    If IsNumeric(Me.Shapes("TextBox 7").TextFrame.TextRange.Text) Then 
        i = CLng(Me.Shapes("TextBox 7").TextFrame.TextRange.Text) 
    Else 
        i = 0 
    End If 
     
    Me.Shapes("TextBox 7").TextFrame.TextRange.Text = Format(i + 1, "#,##0") 
End Sub

since the objects and actions are on the slide that receives the action and that if the slide is copied for another question, the action would then go to the new slide

I would have renamed the objects using the Selection Pane you taught me so long ago to make it easier for maintenance, but I followed the OP's path and stayed with the default names

Another question -- does the Shape get passed to the call like that every time? I don't think I ever knew that