VBA Buton Düzenleme

[cagkantr1]

Merhaba Arkadaşlar,

Vba yardımı ile oluşturduğum dökümüna buton yerleştiriyorum. Örneğin; Ürün fotoğrafı, yanına "VİDEO" butonu koyuyorum, ama videoyuyu açarken direk varsayılan player ile açılmasını istiyorum. EXE yolu göstermeden ve "PDF" ile data sheet gösterimi sunmak istiyorum bunda aynı video gibi varsayılan programdan açılsın istiyorum. Yardımcı olabilir misiniz? Teşekkürler

 

[cagkantr1]

Up

 

[Zeki Gürsoy]

Shell sınıfını kullanarak iki yöntem ve varsayılan oynatıcı ile çalıştırabilirsiniz. Aynı zamanda PDF için de geçerlidir.

Sub Test_Video()
    Call CreateObject("Shell.Application").Open("C:\Görevimiz Tehlike.avi")
  
    'veya pencere stili ile başlatılmak istenirse;
  
    'Call CreateObject("Shell.Application").ShellExecute("C:\Görevimiz Tehlike.avi", , , "open", VbAppWinStyle.vbNormalFocus)
End Sub

 

[Orion1]

Shell sınıfını kullanarak iki yöntem ve varsayılan oynatıcı ile çalıştırabilirsiniz. Aynı zamanda PDF için de geçerlidir.

Sub Test_Video()
    Call CreateObject("Shell.Application").Open("C:\Görevimiz Tehlike.avi")
 
    'veya pencere stili ile başlatılmak istenirse;
 
    'Call CreateObject("Shell.Application").ShellExecute("C:\Görevimiz Tehlike.avi", , , "open", VbAppWinStyle.vbNormalFocus)
End Sub

Teşekkürler Zeki hocam.
Her 2 side ayni şekilde oynatılıyor.Değişikliği ben farkedemedim.

 

[cagkantr1]

Shell sınıfını kullanarak iki yöntem ve varsayılan oynatıcı ile çalıştırabilirsiniz. Aynı zamanda PDF için de geçerlidir.

Sub Test_Video()
    Call CreateObject("Shell.Application").Open("C:\Görevimiz Tehlike.avi")
 
    'veya pencere stili ile başlatılmak istenirse;
 
    'Call CreateObject("Shell.Application").ShellExecute("C:\Görevimiz Tehlike.avi", , , "open", VbAppWinStyle.vbNormalFocus)
End Sub

Teşekkür ederim Hocam.

Bir rica da daha bulunabilir miyim. Videoların full ekranda açılmasını istiyorum. Bir de excel dosyası içinde bulunan klasörlerde / eki ile dosyaları çağırmak istiyorum

 

[Zeki Gürsoy]

Videoların full ekranda açılmasını istiyorum

Değişikliği ben farkedemedim.

Tam ekran için parametreyi değiştirmeniz yeteterliydi.

Call CreateObject("Shell.Application").ShellExecute("C:\Görevimiz Tehlike.avi", , , "open", VbAppWinStyle.vbMaximizedFocus)

 

[halit3]

Userforma
WindowsMediaPlayer1
veya
MediaPlayer1

ekleyerek de videoları açabilirsiniz.

 

[EmrExcel16]

Shell sınıfını kullanarak iki yöntem ve varsayılan oynatıcı ile çalıştırabilirsiniz. Aynı zamanda PDF için de geçerlidir.
PHP:
Sub Test_Video()
Call CreateObject("Shell.Application").Open("C:\Görevimiz Tehlike.avi")

'veya pencere stili ile başlatılmak istenirse;

'Call CreateObject("Shell.Application").ShellExecute("C:\Görevimiz Tehlike.avi", , , "open", VbAppWinStyle.vbNormalFocus)
End Sub

Merhaba Zeki hocam, 7 aylık konu ama lazım olduğu için soruyorum kusuruma bakmayın, video bitince video programının kapanması mümkün mü ? mesela bu kodu kullanarak videoyu çalıştırdım 10 dakikalık bir video 10 dk sonra video programı kapansın tekrar excelin sayfası gelsin karşıma. Acaba mümkün mü ?

 

[Zeki Gürsoy]

Konu varsayılan oynatıcı ile çalışması için açılmıştı. Böyle bir ihtiyacınız yoksa UserForm üzerine çizeceğiniz Media Player nesnesi ile istediğinizi kolayca yapabilirsiniz.

 

[EmrExcel16]

Konu varsayılan oynatıcı ile çalışması için açılmıştı. Böyle bir ihtiyacınız yoksa UserForm üzerine çizeceğiniz Media Player nesnesi ile istediğinizi kolayca yapabilirsiniz.

Tamamdır Zeki hocam , dediğiniz gibi yapmaya çalışacağım , cevabınız için çok teşekkür ederim kolay gelsin.