有搞过PPT的VBA的伙伴吗

dragonfly007

我是一名小老师，为了活跃课堂气氛，激发学生上课的积极性，实行小组学习模式。要给课堂上表现积极的学生加分，在PPT课件里添加了些VBA代码，部分幻灯片实现计分功能。问题是学校的电脑配置稍低，PPT运行时明显不顺畅，很容易卡壳，希望可以精简。也在学习vb.net，但目前水平暂时很难做出像样的vb插件。求大神对我的PPT改进，问题困扰了我很久，如能改进，PPT运行流畅的话，课堂效率会更高，望各位赐教，不胜感激！
在幻灯片的“母版”视图下，小组幻灯片中的“+”“-”按钮的vb代码如下：
Private Sub S1分值_Change()
With SlideShowWindows
GROUP分值.Text = Val(S1分值.Text) + Val(S2分值.Text) + Val(S3分值.Text) + Val(S4分值.Text) + Val(S5分值.Text) + Val(S6分值.Text)
End With
End Sub

Private Sub S1加1分_Click()
With SlideShowWindows
S1分值.Text = Val(S1分值.Text) + Val(S1加1分.Caption)
End With
End Sub

Private Sub S1减1分_Click()
With SlideShowWindows
S1分值.Text = Val(S1分值.Text) + Val(S1减1分.Caption)
End With
End Sub

Private Sub S2分值_Change()
With SlideShowWindows
GROUP分值.Text = Val(S1分值.Text) + Val(S2分值.Text) + Val(S3分值.Text) + Val(S4分值.Text) + Val(S5分值.Text) + Val(S6分值.Text)
End With
End Sub

Private Sub S2加1分_Click()
With SlideShowWindows
S2分值.Text = Val(S2分值.Text) + Val(S2加1分.Caption)
End With
End Sub

Private Sub S2减1分_Click()
With SlideShowWindows
S2分值.Text = Val(S2分值.Text) + Val(S2减1分.Caption)
End With
End Sub

Private Sub S3分值_Change()
With SlideShowWindows
GROUP分值.Text = Val(S1分值.Text) + Val(S2分值.Text) + Val(S3分值.Text) + Val(S4分值.Text) + Val(S5分值.Text) + Val(S6分值.Text)
End With
End Sub

Private Sub S3加1分_Click()
With SlideShowWindows
S3分值.Text = Val(S3分值.Text) + Val(S3加1分.Caption)
End With
End Sub

Private Sub S3减1分_Click()
With SlideShowWindows
S3分值.Text = Val(S3分值.Text) + Val(S3减1分.Caption)
End With
End Sub

Private Sub S4分值_Change()
With SlideShowWindows
GROUP分值.Text = Val(S1分值.Text) + Val(S2分值.Text) + Val(S3分值.Text) + Val(S4分值.Text) + Val(S5分值.Text) + Val(S6分值.Text)
End With
End Sub

Private Sub S4加1分_Click()
With SlideShowWindows
S4分值.Text = Val(S4分值.Text) + Val(S4加1分.Caption)
End With
End Sub

Private Sub S4减1分_Click()
With SlideShowWindows
S4分值.Text = Val(S4分值.Text) + Val(S4减1分.Caption)
End With
End Sub

Private Sub S5分值_Change()
With SlideShowWindows
GROUP分值.Text = Val(S1分值.Text) + Val(S2分值.Text) + Val(S3分值.Text) + Val(S4分值.Text) + Val(S5分值.Text) + Val(S6分值.Text)
End With
End Sub

Private Sub S5加1分_Click()
With SlideShowWindows
S5分值.Text = Val(S5分值.Text) + Val(S5加1分.Caption)
End With
End Sub

Private Sub S5减1分_Click()
With SlideShowWindows
S5分值.Text = Val(S5分值.Text) + Val(S5减1分.Caption)
End With
End Sub

Private Sub S6分值_Change()
With SlideShowWindows
GROUP分值.Text = Val(S1分值.Text) + Val(S2分值.Text) + Val(S3分值.Text) + Val(S4分值.Text) + Val(S5分值.Text) + Val(S6分值.Text)
End With
End Sub

Private Sub S6加1分_Click()
With SlideShowWindows
S6分值.Text = Val(S6分值.Text) + Val(S6加1分.Caption)
End With
End Sub

Private Sub S6减1分_Click()
With SlideShowWindows
S6分值.Text = Val(S6分值.Text) + Val(S6减1分.Caption)
End With
End Sub

dragonfly007

发现发错栏目组了，希望有人看到能指点下

dragonfly007

发下学校教室电脑的配置，呵呵

静看流年RSSQ

VBA只会录制一些简单的宏。
PPT也没有写过。
我能插上话的就是，说出来你可能不信，这个配置比我公司电脑配置高。

dragonfly007

静看流年RSSQ 发表于 2019-8-22 20:37
VBA只会录制一些简单的宏。
PPT也没有写过。
我能插上话的就是，说出来你可能不信，这个配置比我公司电脑 ...

呵呵 不知道为何就是卡，要等

xmh850216

dragonfly007 发表于 2019-8-22 21:27
呵呵 不知道为何就是卡，要等

你放普通的幻灯片会卡吗？我打开你的附件试了下，还不怎么卡。
看了代码，可以改善的地方不多：
两个地方可以小优化一下。
+ Val(Sn加1分.Caption) 可以直接写成 +1，
-  Val(S2减1分.Caption) 可以直接写成 -1
节省了读取和转化数值的时间
同时加减个人分数的时候，给组也加上或者减去1分。
节省了一个S分值_Change事件

1. Private Sub S1加1分_Click()
   
2. S1分值.Text = Val(S1分值.Text) + 1
   
3. GROUP分值.Text = Val(GROUP分值.Text) + 1
   
4. End Sub
   
5. Private Sub S1减1分_Click()
   
6. S1分值.Text = Val(S1分值.Text) - 1
   
7. GROUP分值.Text = Val(GROUP分值.Text) - 1
   
8. End Sub

复制代码

dragonfly007

xmh850216 发表于 2019-8-22 23:32
你放普通的幻灯片会卡吗？我打开你的附件试了下，还不怎么卡。
看了代码，可以改善的地方不多：
两个地 ...

谢谢回复，不胜感激。代码是精简了些，但在小组计分那貌似有些问题：各个小组成员都是0分的情况下，小组分显示是1分

xmh850216

dragonfly007 发表于 2019-8-26 18:00
谢谢回复，不胜感激。代码是精简了些，但在小组计分那貌似有些问题：各个小组成员都是0分的情况下，小组 ...

初始值设定的问题？ 逻辑应该没错。 小组总分在母版界面手工改成0呢？

dragonfly007

问题解决了，多了两行代码L
、Private Sub S1加1分_Click()
S1分值.Text = Val(S1分值.Text) + 1
End Sub
Private Sub S1减1分_Click()
S1分值.Text = Val(S1分值.Text) - 1
End Sub