„Excel 5“ ir 95 programose galima pridėti pastabų prie langelio naudojant garso failą.
Šią garso įrašą galima atkurti atidarius langelio pastabų redagavimo dialogą.
Žemiau esanti makrokomanda taip pat gali paleisti į langelį pridėtą garso natą:
„PlaySoundNotesInExcel95“ („CellAddress as String“), skirtas „Excel 5“ ir 95, tik jei nėra programos. „CanPlaySounds“ tada išeikite iš klaidos, tęskite toliau, jei nėra garso pastabų diapazono („CellAddress“). „SoundNote.Play On Error GoTo 0 End Sub“
„Excel 97“ ar naujesnė versija nebepalaiko garso pastabų naudojimo.
Naudodami toliau pateiktas makrokomandas, galite sukurti sprendimą, kad pasiektumėte tą patį efektą:
Viešoji deklaravimo funkcija sndPlaySound Lib "winmm.dll" _ Pseudonimas "sndPlaySoundA" (ByVal lpszSoundName As String, _ ByVal uFlags as Long) As Long PlayWavFile (WavFileName As String, Wait As Boolean) If Dir (WavFileNit) = " Skiltyje „nėra failo, kurį reikia paleisti, jei palauk“, paleiskite garsą prieš paleisdami bet kurį kitą kodą sndPlaySound WavFileName, 0 Kita „paleiskite garsą, kol kodas veikia“ sndPlaySound WavFileName, 1 End If End Sub Sub PlaySoundNotesInExcel97 (CellAddress As String) „Garso užrašų atkūrimo būdas“ „Excel 97“ ar naujesnėje versijoje „Sound SoundFileName As String“ Išeiti iš poskyrio „nėra langelio užrašo“ Jei InStr (1, garso failo pavadinimas, Chr (10))> 0 Tada „užraše yra eilutės pertrauka“, naudokite pirmąją eilutę kaip failo pavadinimą SoundFileName = Left (SoundFileName, InStr (1, SoundFileName, Chr (10)) - 1) Pabaiga, jei „PlayFileWav SoundFileName“, klaidinga pabaiga
Kaip sukurti garso įrašą:
Įterpkite langelio komentarą dešiniuoju pelės klavišu spustelėdami langelį ir pasirinkite Įterpti komentarą….
Pirmame langelio komentaro sakinyje užpildykite visą failo pavadinimą ir kelią į garso failą,
pvz. C: \ Foldname \ Soundfilename.wav.
Jei šalia garso failo pavadinimo norite pridėti rašytinį pranešimą, paspauskite klavišą ENTER po failo pavadinimo
komentare sukurti naują sakinį. Įtraukite norimą tekstą į naują sakinį.
Makrokomandą „PlaySoundNotesInExcel97“ galima suaktyvinti naudojant „eventmacro“ darbalapį_SelectionChange (),
tai privers garso įrašą paleisti kiekvieną kartą, kai vartotojas suaktyvins langelį su garso įrašu.
