userform resim path

[security]

arkadaşlar userformda klasörden okuyacak şekilde resimleri açmak istiyorum yani listbox1 de resimlerin adı yazıcak tıklayınca ımage1 de resim gözükecek

Private Sub ListBox1_Click()
Image1.LoadMovie 0, ThisWorkbook.Path & "\" & ListBox1
End Sub
Private Sub UserForm_Initialize()
Set s1 = CreateObject("Scripting.FileSystemObject")
For Each dosya In s1.GetFolder(ThisWorkbook.Path).Files
uzanti = s1.GetExtensionName(ThisWorkbook.Path & "/" & dosya.Name)
If uzanti = "gif" Then ListBox1.AddItem dosya.Name
Next
End Sub

arkadaşlar bu kodu kulandım ama olmadı hata nerede acaba.


ve ayrıca userforma bir mp3 dosyasını nasıl gömeriz yani klasörden değilde formun içine nasıl gömeriz tşk.

 

[security]

yardım edecek yokmu çokmu zor bir konu?

 

[ozgretmen]

Aşağıdaki şekilde dener misin ?

Private Sub ListBox1_Click()
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & ListBox1.Value)
End Sub

 

[security]

Aşağıdaki şekilde dener misin ?

Private Sub ListBox1_Click()
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & ListBox1.Value)
End Sub

tşk sayın: ozgretmen oldu.
birde diğer sorunun cevabını biliyormusun acaba yani forma bir mp3 ses dosyasını nasıl gömeriz yada waw uzantılıda olabilir.

 

[ozgretmen]

tşk sayın: ozgretmen oldu.
birde diğer sorunun cevabını biliyormusun acaba yani forma bir mp3 ses dosyasını nasıl gömeriz yada waw uzantılıda olabilir.

Rica ederim.
Gömülebildiğini sanmıyorum.Daha kesin bilen bir arkadaş cevap verecektir sanırım.

 

[security]

örnek bi çalışma yaptım ses ile ilgili

 

[Erhan Köseoğlu]

örnek bi çalışma yaptım ses ile ilgili

çalışman güzel olmuş ancak bizler nasıl yapılacağını öğrenemedikten sonra ne anlamı var excel web tr de yayınlanmasının, vba şifre istiyor

 

[security]

sayın kuluncak
vba şifresi "security1" dir. ses dosyasını ise flash olarak gömdüm.

 

[mustafakoker]

Çok güzel omuş flash ses ekledim dedin bunu nasıl yaptın açıklayabilirmisin yani nasıl çalıyor nerden çekiyor açıklarsan sevinirim

Private Sub UserForm_Activate()
ShockwaveFlash1.Play

bu kodun anlamı ne merak ettim doğrusu ve seçtiğin parça da çok güzelmiş

 

[security]

Private Sub UserForm_Activate()
ShockwaveFlash1.Play

kodu:

flash dosyasının otomatik olarak başlamasına yarıyor ses dosyasına gelince hiç bi yerden çekmiyor userformun içine gömülü olarak yaptım.

 

[mustafakoker]

Teşekkürler açıklaman için ama flash ses dosyasını userforma nasıl gömdün onu anlatabilirmisin
bide flash ses dosyasının uzantısı ne "swf.fla.flv" yani diyelim mp3 ü flash ses dosyasına çevirsem ben bunu excele nasıl gömerim açıklaman için şimdiden teşekkürler

 

[security]

tabiki öncelikle formumuza bir ShockwaveFlash ekliyoruz sonra flash dosyamızın yolunu
movie:ye yazıyoruz
daha sonra
Embedmovie: false yi true yaptıgımızda
flash dosyamız forma gömülmüş olur... dosya uzantımız ise .swf dir.

ayrıca diğer şiirimide incelerseniz daha iyi anlarsınız.kolay gelsin..

http://www.excel.web.tr/f150/flash-siirler-t61913.html
http://www.excel.web.tr/attachment.php?attachmentid=56538&d=1231778643

 

[mustafakoker]

Userforma Flash Gömmek

Sevgili security
açıklamaların için teşekkür ederim ekli dosyamda Userforma
flash gömmek hakkında görsel bir pdf çalışması yaptım diğer arkadaşlarımızın yararlanmısı dileğiğle

 

[mustafakoker]

Başka bir örnek olarak ekli linkte buraya yüklemezdim çünki dosyanın boyutu çok büyük olduğundan dolayı 70 mb
http://www.uploadyeri.com/download.php?file=d28b248e64419ca8791632052ec6a07d

şimdi diyeceksinizki 70 mb lık dosyayı neden indirip kotamı doldurayım doğru haklısınız da ama isteyen indirebilir diye verdim linki dosyanın içindekiler
30 adet flash şiir ve bir excel sayfası meraklısına

 

[mustafakoker]

Bazı Örnekleri ekte veriyorum

yani boşuna indirmiş olmıyacaksınız

yorumlarınızı bekliyorum

 

[security]

sayın mustafakoker ben bir flash hastası olarak şunu belirtmek istiyorum çalışmalarınız güzel olmuş elinize sağlık yanlız verdiğiniz örnekte flash dosyaları forma gömmek yerine ayrı olarak yani dosyadan görme şekli vermişsiniz. ama yinede güzel çalışma paylaşımlarınızın devamını bekliorum başarılar.security

 

[mustafakoker]

Sayın Security asıl ben teşekkur ederım senın ve tabi excel web tr sayesınde birşeyler yaptım

forma bilerek gömmedim çünki flash dosyaların boyutları uzun 6,30 mb olan flashlar bile var eklediğim linkte bu yüzden dosya ya gömmedim hem şöyle bir şey daha var ekli dosyayı indirip aynı klasör içine isteyen kendi flash larını koyması açısından daha kolay olur diye düşündüm

tekrar Teşekkürler

 

[baydeniro]

Teşekkürler, kullanmaya çalışacağım.