Sub 女孩投票()
PowerPoint.Application.ActivePresentation.Slides(1).Shapes("投票1").TextFrame.TextRange.Text = PowerPoint.Application.ActivePresentation.Slides(1).Shapes("投票1").TextFrame.TextRange.Text + 1
End Sub
Sub 男孩投票()
PowerPoint.Application.ActivePresentation.Slides(1).Shapes("投票2").TextFrame.TextRange.Text = PowerPoint.Application.ActivePresentation.Slides(1).Shapes("投票2").TextFrame.TextRange.Text + 1
End Sub
Sub 女孩减票()
PowerPoint.Application.ActivePresentation.Slides(1).Shapes("投票1").TextFrame.TextRange.Text = PowerPoint.Application.ActivePresentation.Slides(1).Shapes("投票1").TextFrame.TextRange.Text - 1
End Sub
Sub 男孩减票()
PowerPoint.Application.ActivePresentation.Slides(1).Shapes("投票2").TextFrame.TextRange.Text = PowerPoint.Application.ActivePresentation.Slides(1).Shapes("投票2").TextFrame.TextRange.Text - 1

End Sub
Sub 重置计算()
PowerPoint.Application.ActivePresentation.Slides(1).Shapes("投票1").TextFrame.TextRange.Text = 0
PowerPoint.Application.ActivePresentation.Slides(1).Shapes("投票2").TextFrame.TextRange.Text = 0
End Sub