Forums Últimos mensajes - Powered by IBM
 

poner musica a 'una macro'

28/10/2006 - 00:43 por Ivan | Informe spam
hola a todos

estoy intentando poner musica a una macro que realiza una especie de
presentacion con imagenes.

para ello, buscando en el foro, he encontrado varios ejs., entre este
de HM, que es con el que he empezado a practicar

'' 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

y esta es la adaptacion inicial con un archivo de muestra de windows
copiado a una carpeta sin espacios y cambiado el nombre ->

Private Sub Empezar_Musica()
Dim Archivo As String
Archivo = "C:\Mis_Documentos\La_Novena.wma"
UsarWinMedia "Play " & Archivo
End Sub
Private Sub Acabar_Musica()
Dim Archivo As String
Archivo = "C:\Mis_Documentos\La_Novena.wma"
UsarWinMedia "Stop" & Archivo
End Sub

lo mas curioso es que para escucharlo no hay problema, parece funcionar
perfectamente, pero para pararlo me aparece el siguiente mensaje de
error: ->

"El archivo especificado necesita un alias, archivo, controlador o
nombre de dispositivo. Escriba uno."

y claro, no para la musica, y no tengo ni idea de donde poner dicho
alias, archivo o lo que sea...he probado varias formas
("C\Windows\Media\., pej. como en el idem), he puesto 'Archivo en
la cabecera del modulo,..., pero el error vuelve a darlo al intentar
cerrar

aunque, por las indicaciones del propio HM en otro post, posiblemente
use sndPlaySound para permitir la ejecucion de macros, me temo que el
problema seguira siendo el mismo.

si podeis echarme una mano os lo agradezco, mientras voy a volver a
darme otra vuelta por el foro a ver si veo una solucion

un saludo y hasta pronto
Ivan
 

Leer las respuestas

#1 Ivan
28/10/2006 - 01:04 | Informe spam
hola de nuevo a todos

acabo de encontrar donde estaba el fallo -> "Stop" tiene que llevar un
espacio detras de Stop, aunque no se el motivo, en cualquier caso asi
->"Stop " si funciona

bueno, de momento tema resuelto, aunque me temo que acabo de empezar y
posiblemete tenga que volver por aqui pronto con este tema

un saludo
Ivan

Preguntas similares