本文目录一览：
ppt页面上放一个文本框控件 怎么通过vbs代码使它获得焦点
假设第行文本框 名textbox1" , 面增减按钮控件名SpinButton1"
加代码即
Private Sub SpinButton1_SpinDown()
‘设置限0
If Shapes("textbox1").TextFrame.TextRange 0 Then
Shapes("textbox1").TextFrame.TextRange = Shapes("textbox1").TextFrame.TextRange - 1
End If
End Sub
Private Sub SpinButton1_SpinUp()
’需要设置限100
If Shapes("textbox1").TextFrame.TextRange 100 Then
Shapes("textbox1").TextFrame.TextRange = Shapes("textbox1").TextFrame.TextRange + 1
End If
End Sub
其余类似
用显示数字文本框文本框控件假设名textbox1则代码 Shapes("textbox1").TextFrame.TextRange
需要换 textbox1.value
如何使用VBS文件限制软件运行？
以限制 excel 、Word 、ppt 为例，把
where name='excel.exe'
改为
where name='excel.exe' or name='winword.exe' or name='powerpnt.exe'
另外，wscript.sleep 1 是暂停 1 毫秒，最好改为 1000 以上，可以节省 CPU 等资源。
PPT中用控件中的VBS实现数值增减，如何控制数字减少到0就不能再减少了（即不能为负数）？
假设你第一行的文本框 名为“textbox1" , 后面的增减按钮控件名为”SpinButton1"。
加以下代码即可
Private Sub SpinButton1_SpinDown()
‘设置下限为0
If Shapes("textbox1").TextFrame.TextRange 0 Then
Shapes("textbox1").TextFrame.TextRange = Shapes("textbox1").TextFrame.TextRange - 1
End If
End Sub
Private Sub SpinButton1_SpinUp()
’如果需要也可以设置上限为100
If Shapes("textbox1").TextFrame.TextRange 100 Then
Shapes("textbox1").TextFrame.TextRange = Shapes("textbox1").TextFrame.TextRange + 1
End If
End Sub
其余类似。
如果你用来显示数字的不是文本框，而是文本框控件，假设名textbox1，则代码中 Shapes("textbox1").TextFrame.TextRange
需要换成 textbox1.value
