学以致用——使用VBA在Excel右键菜单中添加“朗读”命令 (Add "Speak" button to Excel Right Click Menu with VBA)

需求:在个人构建的知识库中,有很多很专业的词条,读来生涩(有时一个词条中不认识的英语术语就有不少),如果能让电脑将这个词条朗读出来,可以让双眼稍微放松一下,也让耳朵获得活动机会,岂不美哉。下面的代码则实现了此功能。

代码:

1. 定义“朗读”子程序

Sub speak()
        ActiveCell.Select
        Selection.speak
End Sub

2. 向Excel程序中添加右键菜单命令,调用朗读子程序

Sub 添加自定义菜单()
  On Error Resume Next
  Dim myBAR As CommandBarButton
  Application.CommandBars("CELL").Controls("朗读").Delete
  Set myBAR = Application.CommandBars("cell").Controls.Add(before:=1) '添加到最上的位置
   With myBAR
     .Caption = "朗读"
     .BeginGroup = True '添加分组线
     .FaceId = 186 '显示的图标
     .Style = msoButtonIconAndCaption '图标和文字的显示
     .OnAction = "speak" '指定要运行的宏
   End With
End Sub

效果图:

在自己电脑上测试的结果是:中英文都可以流畅的朗读,再次给Excel点个赞!

  • 0
    点赞
  • 5
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值