' [262.xls]



' [Module1] のコード
'★★☆　シートに埋め込んだ音を鳴らす　☆★★

Option Explicit

Sub start()
    
    'シートに埋め込んだ"Wavファイル"を鳴らします
    ActiveSheet.OLEObjects("ok").Verb

End Sub

Sub obj_visibl()

    '埋込オブジェクトの表示、非表示を切り換えます
    If [D9] = True Then
   
        ActiveSheet.OLEObjects("ok").Visible = True
    Else
   
        ActiveSheet.OLEObjects("ok").Visible = False
    End If
    

End Sub