Perform calculation based on shape selection
Hello there. I need some help with this macros. I am trying to capture the scores from the text display on a shape and add it to another shape upon clicking a shape. I am trying to do this when in presentation mode. Here is what i have so far. Thank you
Sub addTeamScores(oshp As Shape)
Dim score, TeamAScore, TeamBScore As Double
Set osld = ActivePresentation.SlideShowWindow.View.Slide
score = CDbl(ActivePresentation.Slides(slideNum).Shapes("ScoreBoard").TextFrame.Tex tRange.Text)
TeamAScore = CDbl(ActivePresentation.Slides(slideNum).Shapes("Score1").TextFrame.TextRan ge.Text)
TeamBScore = CDbl(ActivePresentation.Slides(slideNum).Shapes("Score2").TextFrame.TextRan ge.Text)
Select Case oshp.Name
Case "Add1"
Call addScore(score, TeamAScore)
Case "Add2"
Call addScore(score, TeamBScore)
End Select
End Sub
Private Sub addScore(i As Double, j As Double)
j = j + i
i = 0
End Sub