砂海 发表于 2020-7-30 20:04
Public 启动朗读开关 As Boolean
=============================
按钮控制 变量:启动朗读开关
谢谢您!我在更改过程中出现了一些问题
我的语音朗读代码是这样的,放在了类模块中
<div>---------------------------------------------------------------------------------------------------------------------</div><div>Public WithEvents app As Application</div><div>Private Sub app_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)</div><div> Application.Speech.Speak ActiveCell, True, , True</div><div> </div><div>End Sub</div><div>----------------------------------------------------------------------------------------------------------------------</div><p></p><div></div>
复制代码
在工作表页面制作了一个按钮,可以在按下后切换显示:暂停朗读和启动朗读。
代码是这样的,放在了工作表的代码页面,仅仅实现了切换外面的显示的字的功能
<div>Private Sub CommandButton1_Click()</div><div> If CommandButton1.Caption = "暂停朗读" Then</div><div> CommandButton1.Caption = "启动朗读"</div><div> Else</div><div> CommandButton1.Caption = "暂停朗读"</div><div> End If</div><div>End Sub</div>