¿como insertar un midi en un formulario creado en Excel?

hola, Javiland !

Alguien podria explicarmelo ... cuando aparece por primera vez un formulario.

puedes usar llamadas a las API's de windows, ejecutando el WindowsMediaManager
[p.e.] al activarse el formulario, se 'tocara' el archivo midi [o wav, o mp3] que 'le digas' +/- asi:
___ en el modulo de codigo del formulario ___
' la llamada a las API's del MediaManager '
Private Declare Function UsarWinMedia _
Lib "winmm.dll" Alias "mciExecute" ( _
ByVal Comando As String) As Long

' al cargarse el formulario... '
Private Sub UserForm_Activate()
Dim Archivo As String
Archivo = "C:\Windows\Media\Baby_01.mid"
UsarWinMedia "Play " & Archivo
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
si la musica es muy 'larga'... se seguira escuchando aun despues de cerrar el formulario :))
para detenerla, usa la misma funcion, 'pero' con 'Stop'
[p.e.] UsarWinMedia "Stop " & Archivo <=MISMO ARCHIVO <= OJO

solo una 'observacion'... la cadena 'completa' [ruta + directorio/s + archivo + EXTension]
==> NO debera tener 'espacios' <== [p.e. C:\Mis doc\este archivo.mid' o... C:\Mi mus...]
[te mandaria un error 'diciendo': mmsystem263 no es un componente MCI registrado...] :((

saludos,
hector.

Hola Hector y Javiland! Bueno, que decir, ahora mismo
estoy escuchando a Café Quijano despues de haber
ejecutado una macro, jeje, Bueno, gracias a ambos. Creo
que ahora toca que la hoja me ejecute la cancion cuando
otra macro cumpla una condicion y me de musiquita como
aviso.

hola, Javiland !

Alguien podria explicarmelo ... cuando aparece por

primera vez un formulario.

puedes usar llamadas a las API's de windows, ejecutando

el WindowsMediaManager

[p.e.] al activarse el formulario, se 'tocara' el

archivo midi [o wav, o mp3] que 'le digas' +/- asi:

___ en el modulo de codigo del formulario ___
' la llamada a las API's del MediaManager '
Private Declare Function UsarWinMedia _
Lib "winmm.dll" Alias "mciExecute" ( _
ByVal Comando As String) As Long

' al cargarse el formulario... '
Private Sub UserForm_Activate()
Dim Archivo As String
Archivo = "C:\Windows\Media\Baby_01.mid"
UsarWinMedia "Play " & Archivo
End Sub
šššššššššššš
si la musica es muy 'larga'... se seguira escuchando aun

despues de cerrar el formulario :))

para detenerla, usa la misma funcion, 'pero' con 'Stop'
[p.e.] UsarWinMedia "Stop " & Archivo <=MISMO ARCHIVO

<= OJO

solo una 'observacion'... la cadena 'completa' [ruta +

directorio/s + archivo + EXTension]

==> NO debera tener 'espacios' <== [p.e. C:\Mis

doc\este archivo.mid' o... C:\Mi mus...]

[te mandaria un error 'diciendo': mmsystem263 no es un

componente MCI registrado...] :((

saludos,
hector.


.

hola, [?]

... que decir, ahora mismo estoy escuchando a Cafe Quijano despues de haber ejecutado una macro, jeje [...]

y... ¿que te dire yo???... ¡ gracias por el 'feed-back' !!!
[es bueno saber que los beneficios del foro se 'extienden'] ;)

saludos,
hector.