Пузлики - Серия пазлов для младших детей, сопровождаемых сказкой вслух

Вукер Вукер

#125607

Нашла вот такой макрос, который позволяет включить звуковое сопровождение без дополнительных вопросов игроку. Макрос обращается к именованной ячейке "урл", где прописан адрес mp3 файла.

Sub слушатеньки()
Application.ScreenUpdating = False
ssyl = Range("урл").Value
On Error Resume Next
ActiveSheet.OLEObjects.Add(Filename:=ssyl, Link:=True).Select
If Err.Number <> 0 Then
Application.ScreenUpdating = True
MsgBox "не могу играть " & ssyl
Exit Sub
End If
Selection.Verb
Selection.Delete
End Sub

Сама не понимаю как, но это работает )

Вукер Вукер

#125608

Сменила кнопки инструментов на вот такие