lồng tiếng của mình bằng vba...

[ngochon1992]

Mình muốn lồng tiếng bằng vba vào file excel khác tiếng có sẵn (không sử dụng kiểu này (Application.Speech.Speak.......)).
Mong các Anh/Chị cao nhân giúp đỡ ạ. Em cám ơn nhiều !

 

[Hoàng Trọng Nghĩa]

Mình muốn lồng tiếng bằng vba vào file excel khác tiếng có sẵn (không sử dụng kiểu này (Application.Speech.Speak.......)).
Mong các Anh/Chị cao nhân giúp đỡ ạ. Em cám ơn nhiều !

Thì bạn cứ ghi âm sẳn những gì cần nói rồi đặt tên file cho sát với nội dung để dễ gọi nó phát âm. Vấn đề là thời lượng phát có dài không để người được nghe tắt đi nếu thấy nó gây ồn ào.
Bạn cần đưa ra một file với các ví dụ trường hợp nào phát tiếng, nguồn tiếng ở file nào v.v...

 

[Hoàng Tuấn 868]

không sử dụng kiểu này (Application.Speech.Speak.......)).

Bạn có thể cho biết lý do vì sao không sử dụng kiểu trên không?

 

[Hoàng Trọng Nghĩa]

Bạn có thể cho biết lý do vì sao không sử dụng kiểu trên không?

Vì nó chỉ đọc được tiếng Anh, đố nó đọc được tiếng Việt!

 

[Hoàng Tuấn 868]

Vì nó chỉ đọc được tiếng Anh, đố nó đọc được tiếng Việt!

Xin cảm ơn anh ạ.

 

[befaint]

Ngôn ngữ nào không quan trọng, quan trọng là "tiếng của mình".

 

[ngochon1992]

Bạn có thể cho biết lý do vì sao không sử dụng kiểu trên không?

vì sếp mình muốn chèn tiếng của sếp vào rồi phát ra cái tiếng đó á...

 

[huhumalu]

Chắc giống ngoài sân bay.
Kêu sếp chịu khó ghi âm nguyên cái dict thôi.

Option Explicit
'API Class to take care of playing the file
#If VBA7 Then
    Declare PtrSafe Function sndPlaySound32 Lib "winmm.dll" _
    Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
                        ByVal uFlags As Long) As Long
                     #Else
    Declare Function sndPlaySound32 Lib "winmm.dll" _
    Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
                           ByVal uFlags As Long) As Long
#End If

Sub VBASound()
    'Call Api to play LoadIt.wav witch is in the same folder as
    'the active document!
    Call sndPlaySound32(ThisWorkbook.Path & "\LoadIt.WAV", 0)
End Sub