Pergunte aqui
0

Boa tarde a todos. Por favor, uma macro pra tocar um som no Calc.

perguntadas 2013-11-05 21:22:19 +0200

esta mensagem está marcada como wiki comunitário

Esta mensagem é um wiki. Qualquer pessoa com karma >75 é bem-vinda para a melhorar.

Em visualbasic uso:

Private Declare Function PlaySound Lib "winmm.dll" Alias _
    "PlaySoundA" (ByVal lpszName As String, ByVal HMODULE As _
        Long, ByVal DWFLAGS As Long) As Long
A = PlaySound("F:\Documents and Settings\R\Meus documentos\Minhas músicas\SAMSUNG\Trumpet1.wav", 0&, &H2000)
editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

Esta macro funciona no Excel ? se sim qual versão do Excel ? e do arquivo, xls, etc ?

imagem do gravatar de Gilberto SchiavinattoGilberto Schiavinatto ( 2014-07-18 02:41:41 +0200 )editar

1 Resposta

0

respondidas 2015-05-29 15:01:43 +0200

imagem do gravatar de LuizCarlos18RJ

Tenta essa:

Sub InitSounds()
  If GetGuiType() = 1 Then
   oSounMgr = CreateUnoService("com.sun.star.media.Manager_DirectX")
  Else
   oSounMgr = CreateUnoService("com.sun.star.media.Manager_GStreamer")
  End If
  If NOT IsNull(oSounMgr) Then
    oSfa = CreateUnoService("com.sun.star.ucb.SimpleFileAccess")
    sBaseURL = CreateUnoService("com.sun.star.util.PathSubstitution")._
        substituteVariables("$(inst)/share/gallery/sounds", True) 'Insira aqui seu caminho para a pasta de audio

sSound1 = sBaseURL & "/laser.wav" 'Insira aqui o nome do arquivo ".wav" a ser reproduzido.
If oSfa.exists(sSound1) Then
oPlayer1 = oSounMgr.createPlayer(sSound1)
'oPlayer1.setRate(1.1)
oPlayer1.setPlaybackLoop(False)
oPlayer1.setMediaTime(0.0)
oPlayer1.setVolumeDB(GetSoundVolume())
End If
End If End Sub Sub PlayJoin() If NOT IsNull(oPlayer1) Then oPlayer1.setMediaTime(0.0) oPlayer1.start() End If End Sub
editar assinalar como ofensivo Excluir Link mais
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2013-11-05 21:22:19 +0200

Lidas: 361 vezes

Última atualização: May 29 '15