W Excel 5 i 95 możliwe jest dołączanie notatek do komórki za pomocą pliku dźwiękowego.
Tę notatkę dźwiękową można odtworzyć, otwierając okno dialogowe edycji notatek komórki.
Poniższe makro może również odtwarzać notatkę dźwiękową dołączoną do komórki:
Sub PlaySoundNotesInExcel95(CellAddress As String) ' tylko dla programu Excel 5 i 95, jeśli nie Application.CanPlaySounds, a następnie wyjdź z Sub po błędzie Wznów dalej ' w przypadku braku zakresu dźwięków (CellAddress).SoundNote.Play po błędzie Przejdź do 0 End Sub
Program Excel 97 lub nowszy nie obsługuje już korzystania z notatek dźwiękowych.
Za pomocą poniższych makr można utworzyć obejście, aby osiągnąć ten sam efekt:
Funkcja deklaracji publicznej sndPlaySound Lib "winmm.dll" _ Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Sub PlayWavFile(WavFileName As String, Wait As Boolean) Jeżeli Dir(WavFileName) = "" Następnie zakończ Sub ' brak pliku do odtworzenia If Wait Then ' odtwarzaj dźwięk przed uruchomieniem jakiegokolwiek kodu sndPlaySound WavFileName, 0 Else ' odtwarzaj dźwięk podczas działania kodu sndPlaySound WavFileName, 1 End If End Sub Sub PlaySoundNotesInExcel97(CellAddress As String) ' obejście odtwarzania notatek dźwiękowych w programie Excel 97 lub nowszym Dim SoundFileName As String SoundFileName = "" On Error Resume Next ' występuje błąd, jeśli w komórce nie ma notatki SoundFileName = Range(CellAddress).Comment.Text On Error GoTo 0 If SoundFileName = "" Then Exit Sub ' brak notatki komórki If InStr(1, SoundFileName, Chr(10)) > 0 Then ' notatka zawiera znak podziału ' użyj pierwszego wiersza jako nazwy pliku SoundFileName = Left(SoundFileName, InStr(1, SoundFileName, Chr (10)) - 1) Koniec, jeśli PlayFileWav SoundFileName, False End Sub
Jak stworzyć notatkę dźwiękową:
Wstaw komentarz do komórki, klikając komórkę prawym przyciskiem myszy i wybierz Wstaw komentarz… .
Wpisz pełną nazwę pliku i ścieżkę do pliku dźwiękowego do odtworzenia w pierwszym zdaniu w komentarzu do komórki,
np. C:\Nazwa folderu\Nazwa pliku dźwiękowego.wav.
Jeśli chcesz dodać pisemną wiadomość oprócz nazwy pliku dźwiękowego, naciśnij klawisz ENTER po nazwie pliku
aby utworzyć nowe zdanie w komentarzu. Dodaj tekst, który chcesz dodać do nowego zdania.
Makro PlaySoundNotesInExcel97 może być aktywowane przez eventmacro Worksheet_SelectionChange(),
dzięki temu dźwięk będzie odtwarzany za każdym razem, gdy użytkownik aktywuje komórkę z dźwiękiem.
