{"image_url":null,"height":"190","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fblog.systemjp.net%2Fentry%2F2015%2F09%2F17%2F105820\" title=\"excelVBA\u3067\u97f3\u3092\u9cf4\u3089\u3059 - shikaku&#39;s blog\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","categories":["excelVBA"],"title":"excelVBA\u3067\u97f3\u3092\u9cf4\u3089\u3059","provider_name":"Hatena Blog","blog_url":"https://blog.systemjp.net/","width":"100%","url":"https://blog.systemjp.net/entry/2015/09/17/105820","provider_url":"https://hatena.blog","type":"rich","author_name":"shikaku","author_url":"https://blog.hatena.ne.jp/shikaku/","published":"2015-09-17 10:58:20","description":"API\u3092\u4f7f\u3046 Private Declare Function mciSendString Lib \"winmm.dll\" Alias \"mciSendStringA\" _ (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, _ ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long Sub Sample2() Dim SoundFile As String, rc As Long SoundFile = \"C:\\Windows\\Media\\\u2026","blog_title":"shikaku's blog","version":"1.0"}