Condividi tramite

Gestione suoni in Excel per MACINTOSH

Anonimo
2022-03-28T10:27:23+00:00

Buongiorno,

sono passato da PC a MAC, e la mia macro Excel che prevede dei suoni di avviso non li genera più.

Non riesco a trovare le corrette istruzioni le corrette istruzioni visual basic.

Qualcuno ha avuto questo problema e come lo ha risolto?.

Grazie anticipatamente.

Microsoft 365 e Office | Excel | Per la casa | MacOS

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti Nessun commento

7 risposte

Ordina per: Più utili
  1. Anonimo
    2022-03-28T13:22:21+00:00

    Non ho il mac in questo momento ma credo che mettendo la frase col punto interrogativo venga pronunciata con forma interrogativa, non è cosi?

    La risposta è stata utile?

    0 commenti Nessun commento
  2. Anonimo
    2022-03-28T13:00:51+00:00

    Grazie per l'aiuto.

    C'è un modo per far pronunciare anche il punto interrogativo?

    Esempio: Confermi la Stampa?

    Cordiali saluti

    La risposta è stata utile?

    0 commenti Nessun commento
  3. Anonimo
    2022-03-28T12:16:00+00:00

    Si, come detto, stai utilizzando API di windows e suoni di Windows che non sono presenti su Mac, quel codice non potrà mai funzionare.

    Su mac la cosa più semplice è usare AppleScript per far parlare Siri esempio:

    Sub SoundAvvio()
       MacScript "say ""avvio in corso"""
    End Sub
    

    La risposta è stata utile?

    0 commenti Nessun commento
  4. Anonimo
    2022-03-28T11:52:08+00:00

    Grazie dell'interessamento,

    espongo la parte di codice vba relativa ai suoni:

    #If Win64 Then 'Private Declare PtrSafe Function sndPlaySound _ Lib "winmm.dll" Alias "sndPlaySoundA" _ (ByVal lpszSoundName As String, ByVal uFlags As LongLong) As LongLong

    #Else 'Private Declare Function sndPlaySound _ Lib "winmm.dll" Alias "sndPlaySoundA" _ (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

    #End If

    Public Sub mEseguiSuono(ByVal sNomeFile As String)

    Dim v As Variant 'v = sndPlaySound(sNomeFile, 1) 'End Sub

    Sub SuonoAlert() 'mEseguiSuono ("C:\Windows\Media\tada.wav") 'End Sub

    Sub SuonoAvviso() 'mEseguiSuono ("C:\Windows\Media\suono alto.wav") 'End Sub

    Sub SuonoNotifica() 'mEseguiSuono ("C:\Windows\Media\Windows Exclamation.wav") 'End Sub

    Sub SuonoAvvio() 'mEseguiSuono ("C:\Windows\Media\You Can't Always Get What You Want.wav") 'End Sub

    Nell'attesa porgo cordiali saluti

    La risposta è stata utile?

    0 commenti Nessun commento
  5. Anonimo
    2022-03-28T11:07:27+00:00

    Ciao Agostino,

    qui Daniele, bentrovato nella community Microsoft,

    Erano suoni personalizzati presi da file audio sul PC? MacOs e Windows oltre ad essere un sistema operativo diverso non condividono gli stessi suoni ne le stesse librerie, inoltre i path per raggiungere le cartelle sono scritti in modo differente, quindi il problema potrebbe essere uno di questi.

    Dovresti mostrare il file o il codice VBA che usi per riprodurre i suoni per capire cosa succede.

    La risposta è stata utile?

    0 commenti Nessun commento