Sintetizador de voz com Macro em Excel VBA

Excel 2010

Private Sub UserForm_Activate()

Dim hora As String

Dim qtprodutosnv As Long

qtprodutosnv = WorksheetFunction.CountIf(Plan1.Columns(3), "NÃO")

'Irá capturar a data atual

hora = Format(Now, "hh:mm")

'sintetizador de voz

Application.Speech.Speak ("OLÁ MUNDO !")

'Avisa a hora atual em voz

Application.Speech.Speak ("AGORA SÃO " & hora)

'Emite a voz dizendo a quantidade de produtos para vender

Application.Speech.Speak ("VOCE POSSUI " & qtprodutosnv & "PRODUTOS PARA VENDER EM SEU ESTOQUE !")

'fechando o formulário

End Sub