{"id":329,"date":"2024-06-21T22:32:52","date_gmt":"2024-06-21T13:32:52","guid":{"rendered":"https:\/\/www.flumen-jp.com\/wordpress\/?p=329"},"modified":"2024-06-24T17:41:42","modified_gmt":"2024-06-24T08:41:42","slug":"wmp_using_vba","status":"publish","type":"post","link":"https:\/\/www.flumen-jp.com\/wordpress\/index.php\/2024\/06\/21\/wmp_using_vba\/","title":{"rendered":"VBA \u3067\u52d5\u753b\u518d\u751f"},"content":{"rendered":"\n<p>\u3000\u3053\u306e\u3068\u3053\u308d\u3001\u305a\u3063\u3068 VBA for Excel \u3067 Windows Media Player \u3092\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\u306b\u306f\u307e\u3063\u3066\u3044\u305f\u3002<br>\u3000\u8a00\u8a9e\u306b\u95a2\u308f\u3089\u305a Windows Media Player \u306e\u5236\u5fa1\u306b\u95a2\u3059\u308b\u60c5\u5831\u304c\u5c11\u306a\u3044\u3002\u3044\u308f\u3093\u3084 VBA \u3092\u3084\u3002\u305d\u3057\u3066\u3001\u7a00\u306b\u60c5\u5831\u304c\u3042\u3063\u305f\u3068\u3057\u3066\u3082\u3001\u79c1\u306e\u3084\u308a\u305f\u3044\u4e8b\u306b\u30d5\u30a3\u30c3\u30c8\u3059\u308b\u3082\u306e\u304c\u306a\u3044\u3001\u3042\u308b\u3044\u306f\u30ac\u30bb\u3060\u3063\u305f\u308a\u3059\u308b\uff08\u6ce3\uff09\u3002\u3068\u3044\u3046\u8a33\u3067\u7d50\u69cb\u82e6\u52b4\u3057\u305f\u3002<br>\u3000\u5177\u4f53\u7684\u306b\u306f\u3001\u52d5\u753b\u30d5\u30a1\u30a4\u30eb\u3092\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u306b\u8cbc\u308a\u4ed8\u3051\u3066\u3001\u4e00\u5b9a\u306e\u30a4\u30f3\u30bf\u30fc\u30d0\u30eb\u3067\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u306e\u30b9\u30ca\u30c3\u30d7\u30b7\u30e7\u30c3\u30c8\u3092\u3068\u308b\u3068\u3044\u3046\u306e\u304c\u4eca\u56de\u306e\u8ab2\u984c\u3002\u809d\u306f\u4f55\u6642\u3067\u3082\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u3092\u4e00\u5b9a\u306e\u5927\u304d\u3055\u30fb\u4f4d\u7f6e\u3092\u8868\u793a\u3059\u308b\u3068\u3044\u3046\u4e8b\u3002<br>\u3000\u52d5\u753b\u3092\u518d\u751f\u3059\u308b\u30e6\u30fc\u30b6\u30fc\u30d5\u30a9\u30fc\u30e0\u306e\u95a2\u6570\u3092 play \u3068\u3057\u3066\u3001\u6b21\u306e\u3088\u3046\u306b<a href=\"https:\/\/hanatyan.sakura.ne.jp\/vb6\/sound04.htm\">\u5404\u7a2e\u306e\u30d7\u30ed\u30d1\u30c6\u30a3\u2015<\/a>\u3092\u6240\u5b9a\u306e\u5024\u306b\u30bb\u30c3\u30c8\u3059\u308c\u3070\u826f\u3044\uff08\u697d\u52dd\uff01\uff09\u30fb\u30fb\u30fb<strong>\u3068\u3044\u3046\u8a33\u306b\u3044\u304b\u3093\u306e\u3067\u3059\u3088\u30b3\u30ec\u304c !?<\/strong><\/p>\n\n\n\n<div class=\"hcb_wrap\"><pre class=\"prism line-numbers lang-plain\"><code>Private Sub play()\n\n    Me.Caption = m_caption\n    Me.Show vbModeless\n    Me.StartUpPosition = 0\n    Me.Top = 0\n    Me.Left = Windows(1).Left + 300\n    Me.Height = m_player_height\n    Me.Width = m_player_width\n\n    With Me.WindowsMediaPlayer1\n        .uiMode = &quot;none&quot;\n        .settings.autoStart = False\n        .settings.Rate = m_speed\n        .Url = m_src_path\n        .Top = 0\n        .Left = 0\n        .Height = m_player_height\n        .Width = m_player_width\n        .stretchToFit = True\n        .Controls.play\n    End With\n\nEnd Sub<\/code><\/pre><\/div>\n\n\n\n<p>\u3000\u6b63\u3057\u304f\u306f StatusChange \u30a4\u30d9\u30f3\u30c8\u3092\u62fe\u3063\u3066\u3001\u8a00\u3046\u4e8b\u3092\u304d\u304f\u307e\u3067\u30b7\u30c4\u30b3\u30af\u8a2d\u5b9a\u3057\u306a\u3044\u3068\u53cd\u6620\u3055\u308c\u306a\u3044\u3002\u3053\u3093\u306a\u5927\u4e8b\u306a\u3053\u3068\u304c<a href=\"https:\/\/learn.microsoft.com\/ja-jp\/windows\/win32\/wmp\/windows-media-player-object-model\">\u672c\u5bb6\u306e\u30c9\u30ad\u30e5\u30e1\u30f3\u30c8<\/a>\u3067\u3059\u3089\u66f8\u3044\u3066\u306a\u3044\u3093\u3067\u3059\u3088\u3002\u56f0\u3063\u305f\u3082\u3093\u3060\u3002<br>\u3000\u30c7\u30d0\u30c3\u30b0\u306e\u77e5\u898b\u304b\u3089 <a href=\"https:\/\/learn.microsoft.com\/ja-jp\/windows\/win32\/wmp\/player-playstate\">WindowsMediaPlayer1.playState<\/a> \u304c 3 \u306b\u306a\u3063\u305f\u6bb5\u968e\u3067\u30bb\u30c3\u30c8\u3059\u308c\u3070\u826f\u3044\u3001\u3068\u3044\u3046\u8aac\u3082\u3042\u308b\u3051\u3069\u3001\u6cb9\u65ad\u306a\u3089\u3093\u306e\u3067\u3053\u306e\u307e\u307e\u306b\u3057\u3066\u3044\u308b\u3002<\/p>\n\n\n\n<div class=\"hcb_wrap\"><pre class=\"prism line-numbers lang-plain\"><code>Private Sub WindowsMediaPlayer1_StatusChange()\n\n    Me.StartUpPosition = 0\n    Me.Top = 0\n    Me.Left = Windows(1).Left + 300\n    Me.Height = m_player_height\n    Me.Width = m_player_width\n\n    With Me.WindowsMediaPlayer1\n        .Visible = False\n        .Top = 0\n        .Left = 0\n        .Height = m_player_height\n        .Width = m_player_width\n        .stretchToFit = True\n        .Visible = True\n    End With\n\nEnd Sub<\/code><\/pre><\/div>\n\n\n\n<p>\u3000\u3084\u308c\u3084\u308c\u3002<br>\u3000\u5143\u6765\u3001\u4eee\u8aac\u3068\u691c\u8a3c\u306e\u7e70\u308a\u8fd4\u3057\u306f\u5acc\u3044\u3067\u7121\u3044\u304c\u3001\u3053\u306e\u6839\u6c17\u304c\u4f55\u6642\u307e\u3067\u7d9a\u304f\u3084\u3089\u3002<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u3000\u3053\u306e\u3068\u3053\u308d\u3001\u305a\u3063\u3068 VBA for Excel \u3067 Windows Media Player \u3092\u30b3\u30f3\u30c8\u30ed\u30fc\u30eb\u3059\u308b\u30d7\u30ed\u30b0\u30e9\u30e0\u306b\u306f\u307e\u3063\u3066\u3044\u305f\u3002\u3000\u8a00\u8a9e\u306b\u95a2\u308f\u3089\u305a Windows Media Player \u306e\u5236\u5fa1\u306b\u95a2\u3059\u308b\u60c5\u5831\u304c [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[7],"tags":[31,33,32],"class_list":["post-329","post","type-post","status-publish","format-standard","hentry","category-it","tag-vba","tag-winapi","tag-wmp"],"_links":{"self":[{"href":"https:\/\/www.flumen-jp.com\/wordpress\/index.php\/wp-json\/wp\/v2\/posts\/329","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.flumen-jp.com\/wordpress\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.flumen-jp.com\/wordpress\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.flumen-jp.com\/wordpress\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.flumen-jp.com\/wordpress\/index.php\/wp-json\/wp\/v2\/comments?post=329"}],"version-history":[{"count":7,"href":"https:\/\/www.flumen-jp.com\/wordpress\/index.php\/wp-json\/wp\/v2\/posts\/329\/revisions"}],"predecessor-version":[{"id":337,"href":"https:\/\/www.flumen-jp.com\/wordpress\/index.php\/wp-json\/wp\/v2\/posts\/329\/revisions\/337"}],"wp:attachment":[{"href":"https:\/\/www.flumen-jp.com\/wordpress\/index.php\/wp-json\/wp\/v2\/media?parent=329"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.flumen-jp.com\/wordpress\/index.php\/wp-json\/wp\/v2\/categories?post=329"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.flumen-jp.com\/wordpress\/index.php\/wp-json\/wp\/v2\/tags?post=329"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}