Desarrollo de soluciones 

con Microsoft Excel 97 / 2000

Compre en línea y aproveche las espectaculares ofertas COMPAQ.

Eres el visitante Nº

Reproducción de archivos WAV y MID en Excel

Los ejemplos mostrados en esta sección se encuentran comprimidos en formato *.zip.

Este ejemplo opera en Excel versión y .

Los siguientes ejemplos, le muestran algunas técnicas avanzadas de programación en Excel que permiten reproducir archivos multimedia del tipo WAV y MID.

Siga los siguientes pasos para crear un Libro Excel que reproduce archivos multimedia:

1.- Abra Excel

2.- Presione simultaneamente las teclas ALT + F11 para ejecutar el editor de Visual Basic (VBE).

3.- En el menú Insertar de VBE seleccione la opción Módulo.

4.- En el explorador de proyectos, haga doble clic en la carpeta Modulo1.

5.- Copie el código VBA desde esta página y péguelo en el editor de Visual Basic.

El código VBA para reproducir archivos WAV es el siguiente:

Private Declare Function PlaySound Lib "winmm.dll" _ 

Alias "PlaySoundA" (ByVal lpszName As String, _ 

ByVal hModule As Long, ByVal dwFlags As Long) As Long 

Const SND_SYNC = &H0 

Const SND_ASYNC = &H1 

Const SND_FILENAME = &H20000 

Sub PlayWAV() 

WAVFile = "C:\MisWAV\dogbark.wav" 'Reemplace el contenido entre cremillas con la ruta completa de un archivo wav de su disco duro 

Call PlaySound(WAVFile, 0&, SND_ASYNC Or SND_FILENAME)

End Sub

El código VBA para reproducir archivos MID es el siguiente:

Private Declare Function mciExecute Lib "winmm.dll" _
  (ByVal lpstrCommand As String) As Long

Sub PlayMIDI()
    MIDIFile = "xfiles.mid" 'Reemplace el contenido entre cremillas con la ruta completa de un archivo mid de su disco duro
    mciExecute ("play " & MIDIFile)
End Sub

Sub StopMIDI()
    MIDIFile = "xfiles.mid" 'Reemplace el contenido entre cremillas con la ruta completa de un archivo mid de su disco duro
    mciExecute ("stop " & MIDIFile)
End Sub

<---volver

Microsoft Excel 97 / 2000 y el lenguaje de programación Visual Basic para Aplicaciones, son marcas registradas de Microsoft Corporation

Desarrollo de Soluciones con Microsoft Excel 97 / 2000 - Sergio Carrasco Ríos - Santiago de Chile - Desde Octubre del 2000.

Sus consultas envíelas al e-mail : gorita@ctcinternet.cl