-
Fototrend
A Microsoft Excel topic célja segítséget kérni és nyújtani Excellel kapcsolatos problémákra.
Kérdés felvetése előtt olvasd el, ha még nem tetted.
Új hozzászólás Aktív témák
-
VGYke
addikt
Sziasztok! Találtam a neten egy jó kis makrót, Auto_Opennel vagy bármivel alkalmazva, jó kis tréfákat, egyebeket lehet vele megoldani:
Private Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" (ByVal lpszName As String, _
ByVal hModule As Long, ByVal dwFlags As Long) As LongConst SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_FILENAME = &H20000Sub PlayWAV()
WAVFile = "Hang.wav"
WAVFile = "Elérési út\" & WAVFile
Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)
End SubSzóval, futtatva lejátszik egy Hang.wav nevű fájlt, tök jó. Viszont addig játszik, amíg vége nincs a wav-nak, játszik akkor is, ha bezárjuk az excelt. Hogyan lehetne leállítani?
Egy kis kiegészítés: Állítólag nem minden környezetben fut, ezt így lehet megtudni:
If Not Application.CanPlaySounds Then
MsgBox "Sorry, sound is not supported on your system."
Exit Sub
End If[ Szerkesztve ]
kutya az ember legjobb barátja... lenne, ha tudna kölcsönadni
Új hozzászólás Aktív témák
- AKCIÓ! - STEAM kulcsok /Anuchard, Aragami, Children of Morta, stb. - 2024.04.17.
- Steam,EA,Epic és egyébb játékok Pc-re vagy XBox!
- Steames kulcsok jó áron eladóak!
- Microsoft licencek KIVÉTELES ÁRON AZONNAL - UTALÁSSAL IS AUTOMATIKUS KÉZBESÍTÉS - Windows és Office
- Game Pass Ultimate előfizetések 1 - 25 hónapig azonnali kézbesítéssel a LEGOLCSÓBBAN!