MS Excel

Ahoj, mám makro, které po zapnutí spustí časomíru a já potřebuji ve stejný čas spustit mp3. Našel jsem na netu toto ActiveWorkbook.FollowHyperlink Address:=ThisWorkbook.Path & "\zvuk.mp3" jenže než se spustí samotný přehrávač, tak to nějakou sekundu trvá. napadlo mne, že kdyby se mp3 spustila předem a dalo by se pause a pak jen play tak by ten nechtěný čas mohl odpadnout, ale nevím jak na to. Poradí mi někdo?

Zaslat odpověď >

tarantula222(14.6.2016 20:28)citovat#031757

Pred nedávnom som riešil podobný problém. Vyriešené pomocou Windows API. Možno pomôže.
- Win7 32, 64
- Cesta nesmie obsahovať medzery!

Option Explicit

Private Declare PtrSafe Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Dim sMusicFile As String
Dim Play

Sub Sound() 'prehraje zvuk
sMusicFile = ThisWorkbook.Path & "\zvuk.mp3"
Play = mciSendString("play " & sMusicFile, 0&, 0, 0)
End Sub

Sub StopSound() 'zastavi aktualne spusteny zvuk.
Play = mciSendString("close " & sMusicFile, 0&, 0, 0)
End Sub

xlnc(14.6.2016 21:40)citovat#031759

Drobné úpravy (cesta natvrdo s mezerami):

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

Dim strSouborMP3 As String

Sub PrehratMP3() 'prehraje zvuk

strSouborMP3 = "D:\testovací soubor.mp3"

'ukončení případného přehrávání
mciSendString "Close """ & strSouborMP3 & """", 0, 0, 0

'otevření souboru (příprava)
mciSendString "Open """ & strSouborMP3 & """", 0&, 0, 0

DoEvents

For i = 1 To 10000

'cyklus

Next i

'spuštění souboru
mciSendString "Play """ & strSouborMP3 & """", 0&, 0, 0

End Sub

Sub ZastavitMP3()

'ukončení případného přehrávání
mciSendString "Close """ & strSouborMP3 & """", 0&, 0, 0

End Sub

Mezery v cestě nejsou problém, holt musí být kompletní cesta v příkazu v uvozovkách.
API funkce má i příkaz pro otevření, čili doporučuji přípravu spolu s DoEvents před samotným spuštěním.

Pozn. Bohužel API funkce sndPlaySoundA neumí MP3, jen WAV.

timi(16.6.2016 19:16)citovat#031784

děkuji za rady a ještě bych potřeboval spustit mp3 např v čase 0:02:00. šlo by to?

bamboocha(7.9.2016 13:54)citovat#032708

Hoj lidé

Mohu se zeptat jak by jste řešili spuštění zvuku pokud se buňka A1 rovná buńce B1? Mám data která se mění každých 5 vteřin 10 vteřin a potřebuji upozornit na shodu dle vzoru. Tedy upozornění musí být rychlé a bez prodlev. Díky za odpoveď ;)

GeorgeK(7.9.2016 15:11)citovat#032710

to bamboocha
nasměrování

http://www.cpearson.com/excel/PlaySound.aspx

xlnc(7.9.2016 18:55)citovat#032713

@bamboocha:
Svého času jsem měl vlastní funkci (UDF), kde ve výsledku funkce KDYŽ bylo spuštění zvuku (nejsnazší je ovšem spouštět WAV, lze i asynchronně).

Téma: spuštění mp3

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje