LoginSignup
@frswataru (本石 渉)

Are you sure you want to delete the question?

Leaving a resolved question undeleted may help others!

Excel vba WindowMediaPlayer　再生時間を取得

Q&A

Closed

ExcelVBAMediaPlayer

Execelvbaを使ってWindowMediaPlayerを再生するコードになります。
ボタンを押す都度にMediaPlayerの右下の再生時間を取得し任意のセルに順次入力させたいです。
解決方法を教えて下さい。

image.png

該当するソースコード

Private Sub CommandButton1_Click()
 Dim FName As Variant
    FName = Application.GetOpenFilename(FileFilter:="Video Files, *.mp4; *.avi; *.mpeg; *.mts", Title:="Please select a Video File", MultiSelect:=False)
    If FName <> False Then
        WindowsMediaPlayer1.URL = FName
    End If
End Sub

###参考にしたサイト
https://ja.extendoffice.com/documents/excel/4483-excel-play-video.html

0 likes

2Answer

cheer4u
@cheer4u

確認までできていないですがボタンを押した時にcontrols.currentPositionStringをセルに設定することになるのではないでしょうか
曖昧な情報ですが参考になればと思って書いてます

Range("A1").Value = WindowsMediaPlayer1.controls.currentPositionString
1Like

Comments

  1. @frswataru

    Questioner

    ありがとうございます。上手く動作しました。
    ほかにもMediaPlayerのメゾットやプロパティを知りたいのですが。
    参考になるサイト等ご存知でしょうか。

Your answer might help someone💌

LoginSign Up