Quiere que el código VBA haga que Excel Mac 2011 reproduzca un archivo de sonido basado en el nombre en una celda

1

Estoy intentando rellenar una hoja de cálculo de Excel con controles que reproducirán ejemplos de archivos de audio sobre cómo pronunciar una lista de palabras.

Si el contenido de A1 es "introducir", quiero que Excel reproduzca un archivo de audio llamado introducir.m4a cuando (por ejemplo) se presiona un botón en B1. No no quiero que el sonido se reproduzca en una aplicación externa u otra ventana del navegador.

Encontré una buena cantidad de código VBA que reproduce un sonido desencadenado por eventos en una hoja de cálculo de Excel, pero ninguno que obtenga el nombre del archivo de audio de una celda de la hoja.

Sub Playm4a()
   Application.ScreenUpdating = False
   On Error Resume Next
   ActiveSheet.OLEObjects.Add(Filename:=ActiveCell.Text, Link:=True).Select
   If Err.Number <> 0 Then
     Application.ScreenUpdating = True
     MsgBox "Could not play " & ActiveCell.Text
     Exit Sub
   End If
   Selection.Verb
   Selection.Delete
End Sub

¡Gracias de antemano por cualquier ayuda!

    
pregunta David Knapp 13.05.2016 - 04:25

1 respuesta

2

Encontré esta pregunta cuando intenté resolver un problema similar (creando un cuaderno de vocabulario para aprender palabras en inglés). La solución más fácil para mí fue utilizar la pronunciación de voz incorporada en MacOS X:

Sub Pronounce_active_cell()
    MacScript ("say " & """" & ActiveCell.Value & """")
End Sub
    
respondido por el Vadim 27.02.2017 - 16:06

Lea otras preguntas en las etiquetas