Sayfa AÇildiĞinda MÜzİk

[ANTALYA 01]

Merhabalar

Exel Sayfası Açıldığında Herhangi Bir Müzik Parçası otomatik çalarmı ?

 

[Levent Menteşoğlu]

Elbette yapılabilir. Sayfaya bir windows media player nesnesi yerleştirip bir auto open prosedürünede müziği çalacak şekilde bir kod yazabilirsiniz. Örneğin;

Sub auto_open()
Sheets("sayfa1").WindowsMediaPlayer1.URL = "C:\Documents and Settings\All Users\Belgeler\Müziğim\Örnek Müzik\Beethoven 9 Nolu Senfonisi (Scherzo).wma"
End Sub

Media playerin visible özelliğinide false yaparsanız, gizleyerek sadece müziğin duyulmasınıda sağlamış olursunuz.

 

[Ali]

Alternatif

Mesela Thisworkbook'a

Private Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Private Sub Workbook_Open()
sndPlaySound "C:\WINNT\Media\Windows Logon Sound.wav", 0
End Sub

kodlarını eklediğinizde ve exceli açtığınızda Windows başlangıç sesi gelecektir.

 

[cengizhan09]

Leventm

Çok ilgimi çekti ama yapamadım. Birkaç cümleyle zahmet olmazsa anlatabilir misin?

 

[ANTALYA 01]

S

Merhabalar

Aslında Çok kolay bir şey sanırım ama sabahtan beri uğraşıyom olmuyor.Adım adım anlatabilirmisiniz.

Özelliklede Bu müziğin bulundupu dosya adını nasıl kolayca bulabilirim.

C:\Documents and Settings\All Users\Belgeler\Müziğim\Örnek Müzik
Bu dasyanın içindede sound001 Diye Müzik var bu müziği çaldıramıyorum
nerde hata yapıyorum.

 

[Kemal Demir]

Küçük Bir Çalışma Ylluyorum.Belki En azından size bir fikir verebilir.

acılan forumda textbox'a ;

C:\Documents and Settings\All Users\Belgeler\Müziğim\Örnek Müzik

Yukarıdaki Yolu yazınız size Şarkıları Listeleyecektir.

Belki Bu örnekten istediğniz çözume ulasabilirsiniz.

 

[BUL_TR]

Alternatif

Mesela Thisworkbook'a

Private Declare Function sndPlaySound Lib "winmm.dll" _
Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
Private Sub Workbook_Open()
sndPlaySound "C:\WINNT\Media\Windows Logon Sound.wav", 0
End Sub

kodlarını eklediğinizde ve exceli açtığınızda Windows başlangıç sesi gelecektir.

Emeğinize sağlık...
Bilseniz ne kadar hora geçen bir koddu...