【转】学以致用——使用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点个赞！