Chèn Video vào trong sheet

[mymichau]

Minh làm file chơi video, nhưng rất thủ công. Vậy nhờ các bạn viết giúp code để đưa URL vao đúng đường dẫn ở cell C6. Có file mẩu. Xin cảm ơn.

 

[batman1]

Sub TestWMPlayer_1()
    ActiveSheet.OLEObjects.Add(ClassType:="WMPlayer.OCX.7", Link:=True, _
            DisplayAsIcon:=False, Left:=Range("B1").Value, Top:=Range("B4").Value, Width:=Range("B2").Value, Height:= _
            Range("B3").Value).Object.URL = "D:\CunCon.avi"
End Sub

Để phát nhạc, phim cũng có thể dùng hàm API mciSendString, không thêm Object gì cả.

 

[mymichau]

Sub TestWMPlayer_1()
    ActiveSheet.OLEObjects.Add(ClassType:="WMPlayer.OCX.7", Link:=True, _
            DisplayAsIcon:=False, Left:=Range("B1").Value, Top:=Range("B4").Value, Width:=Range("B2").Value, Height:= _
            Range("B3").Value).Object.URL = "D:\CunCon.avi"
End Sub

Để phát nhạc, phim cũng có thể dùng hàm API mciSendString, không thêm Object gì cả.

Cảm ơn bạn. Mình làm như bạn chỉ, nhưng chỉ ra tiếng, không có hình. Và điều chỉnh trên player không được. Mong bạn giúp thêm nữa nha.

Bài đã được tự động gộp: 19/11/20

Vẩn file đó không có hình, mình vào property , custom và chọn đường dẫn thì lại chạy tốt. Mong bạn giúp mình với

 

[batman1]

Cảm ơn bạn. Mình làm như bạn chỉ, nhưng chỉ ra tiếng, không có hình. Và điều chỉnh trên player không được.

Chỉ cần click ở vd. cuối thanh cuộn dọc là có hình.

Vẩn file đó không có hình, mình vào property , custom và chọn đường dẫn thì lại chạy tốt. Mong bạn giúp mình với

Hoặc thêm Activate

Sub TestWMPlayer_1()
    With ActiveSheet.OLEObjects.Add(ClassType:="WMPlayer.OCX.7", Link:=True, _
            DisplayAsIcon:=False, Left:=Range("B1").Value, Top:=Range("B4").Value, Width:=Range("B2").Value, Height:= _
            Range("B3").Value)
            .Object.URL = "D:\CunCon.avi"
            .Activate
    End With
End Sub

 

[mymichau]

Thank Batman1. Code của bạn đã chạy tốt. Xin cảm ơn nhiều lắm lắm.