Sub aaa()
'SAPI を使って音声読み上げ
Dim voic As Object
Dim strRET As String
Dim colVIC As Collection
Set colVIC = New Collection
Set voic = CreateObject("SAPI.SpVoice")
For i = 0 To voic.GetVoices.Count - 1
colVIC.Add i, voic.GetVoices().Item(i).GetDescription()
Next
Set voic.Voice = voic.GetVoices().Item(colVIC("唄詠:鳴瀧ナギ"))
'strRET = UTA(voic)
voic.Volume = 100
voic.Rate = Int(15 / 15 - 10)
Call voic.Speak(Range("A1"))
Set voic = Nothing
最近唄詠に登録されている声で読み上げようとすると、読み上げが行われず、ハングアップするようになりました。 一旦UtaYomiを起動→終了してからだと、正常に読み上げが行われます。 この現象は、SofTalkからに限らず、ExcelのVBAから読み上げを実行した場合も同様です。
唄詠は7.62、OSはWin10 64bit、Excelは2013です。
Sub aaa() 'SAPI を使って音声読み上げ Dim voic As Object Dim strRET As String Dim colVIC As Collection
End Sub
[対応状況]調査中 [報告経路]コンタクト