taka
最新記事 by taka (全て見る)
- Excel関数 日付から「曜日」を返す【WEEKDAY関数】 - 2018年8月16日
- Word 名前を付けて保存する - 2018年8月14日
- VBA カッコの内の文字列を抜き出す - 2018年8月12日
- ExcelとWord連携パート2【セルの値をWordに転記してみよう】 - 2018年8月10日
- VBA ユーザー名を取得する方法 - 2018年8月9日
どうも、takaです(^^♪
久しぶり？のVBAネタですね(笑)
皆さんはVBAのUserFoamで音楽や動画の再生が出来ることが可能なのをご存知ですか？ ^^) _旦~~
なんとVBAは「WindowsMediaplayeコントロール」があります(笑)なので音楽や動画、写真まで再生することが可能なんですね(笑)
今回はそんなマニアックなコントロールをご紹介します(^^♪
WindowsMediaPlayerとは？
WindowsMediaplayerコントロールは【音楽・動画・写真】などが再生が可能なコントロールです、Windowsに標準で搭載されているソフトウェアなので皆さんご存知な方も多いのではないでしょうか(^^♪
↓こんなやつですね(-ω-)
WindowsMediaPlayerコントロールの設置
WindowsMediaplayerコントロールはデフォルトでは表示されていません。今回ご紹介する【WindowsMediaplayerコントロール】の設置、【その他コントロール】の設置については
で紹介しましたので省略させていただきます。
画像は音楽の再生中のWindowsMediaplayerの様子です(^^♪
WindowsMediaplayerのよく使うプロパティ
WindowsMediaplayerのプロパティはこのようになっています、思ったより少ないですよね(笑)
ここではよく使うであろう、WindowsMediaplayerのプロパティをご紹介します(^^♪
enableContextMenuプロパティ
enableContextMenuプロパティはメディアの再生中に右クリックして表示される メニューを有効にするかどうかを指定するプロパティです(^^)/
| 値 | 説明 |
|---|---|
| True | 既定値、 メニューを有効にします。 |
| False | メニューを表示できません。 |
個人的には「Ture」のままでいいと思います(^^)
fullScreenプロパティ
fullScreenプロパティは動画・画像ファイルを選択時に自動で全画面再生をさせるかどうかを設定するプロパティです(^^♪
| 値 | 説明 |
|---|---|
| True | 動画・画像ファイルを選択時に自動で全画面再生されます。 |
| False | 既定値、動画・画像ファイルを自動で全画面再生されません |
uiMode プロパティ
uiMode プロパティは、フォーム上で表示されるコントロールの表示させるモードを指定するプロパティです、それぞれ表示させるコントロールの操作メニューなどに差があります。
規定値で問題ありませんが、覚えておくと色々と便利だと思います(^^)/
| 値 | 説明 | 使用画面 |
|---|---|---|
| none | noneモードではコントロール上のメニューがありません。ビデオ ウィンドウまたは視覚エフェクト ウィンドウのみが表示されます。 |  |
| mini | miniモードでは、ビデオ ウィンドウまたは視覚エフェクト ウィンドウのほかに、再生/一時停止、停止、ミュート、および音量のコントロールメニューが表示されてます。 |  |
| full | 既定値、fullモードでは、ビデオ ウィンドウまたは視覚エフェクト ウィンドウのほかに、ステータス ウィンドウ、検索バー、再生/一時停止、停止、ミュート、次へ、前へ、早送り、高速巻き戻し、および音量のコントロールが表示されて埋め込まれます。 |  |
URLプロパティ
URLプロパティは、メディアファイルをフルパスで指定することでMediaplayerコントロールで再生することができます。
下記のコードでは「Cドライブのtestフォルダのtestという音楽ファイルを再生」するコードです(^^♪
1 2 3 | Private Sub UserForm_Initialize() WindowsMediaPlayer1.URL = "C:\test\test.wav" End Sub |
WindowsMediaplayerコントロールの使用例
WindowsMediaplayerコントロールの使用例として簡単なコードをご紹介します(^^)/
下記の画像のようなフォームを用意して参照ボタンで指定したファイルを再生します(^^♪
下記にサンプルを用意しておきますのでお好きに改変してください！
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | Private Sub CommandButton1_Click() Dim FName Dim strPath As String strPath = ThisWorkbook.Path 'このVBAコードのあるファイルのパスを指定 Set FName = Application.FileDialog(msoFileDialogFilePicker) With FName 'ダイヤログボックスの設定 'ダイヤログボックスのファイル表示の設定 .InitialView = msoFileDialogViewDetails .InitialFileName = strPath '複数選択をしないよう設定 .AllowMultiSelect = False End With If FName.Show() = -1 Then WindowsMediaPlayer1.URL = FName.SelectedItems(1) Else 'キャンセルを押されたら終了 MsgBox "キャンセルが押されました" End If Set FName = Nothing End Sub |
ダウンロード
当サイトの免責事項をお読みになってからお使いください。
ファイルやコードの利用、WEBサイトの利用について
サンプルコードなどは当サイトの免責事項をよくお読みになってからお使いください。Twitterフォロー
Twitterもやってます(^^♪Excelについてはあまり触れませんがブログの更新のお知らせはツイートしています(^^♪
Twitterフォロー
Follow @takabou63
使用OS：
コメントを残す