• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Hareketli Resim Almak, Açılır Kutu ile

1Al2Ver

1Al2Ver

Katılım
5 Kasım 2007
Mesajlar
4,727
Excel Vers. ve Dili
64 Bit TR - Microsoft Office 365 - Win11 Home
Merhaba,

Farklı sayfada kayıtlı GIF'leri, diğer sayfada açılır kutu aracılığı ile seçmek ve hareketli olarak belirlenen bölgeye getirmek istemekteyim,

Bu işlem için gereken kodu rica ediyorum,

Teşekkür ederim.
 

Ekli dosyalar

Bir sayfadan diğer syafaya resim alabilirsiniz.Ama gif resmini oyanatamazsınız,bildiğim kadarı ile.
Bunu için harketli giflerin bir klasörde olması lazım ve gifleri oynatabilmel içinde bir webbrowser nesnesi eklemniz lazım.
Bunun dışında excel harici bir ek yazılım ile,sanırım Flash kullanarak istediğinizi yapabilirisiniz.Ama sanırım yine giflerin bir klasörde olması lazım.Excel sayfasına gelen giflerin hareket kabiliyeti kalmıyor.Excel harketeleri birleştirip bir resim haline dönüştürütor.Durum 2003 ve alt versiyonlarda böyle.Diğer üst versiyonlarda durum nedir onu bilemiyecem.:cool:
 
Evren Gizlen' Alıntı:
Bir sayfadan diğer syafaya resim alabilirsiniz.Ama gif resmini oyanatamazsınız,bildiğim kadarı ile.
Bunu için harketli giflerin bir klasörde olması lazım ve gifleri oynatabilmel içinde bir webbrowser nesnesi eklemniz lazım.
Bunun dışında excel harici bir ek yazılım ile,sanırım Flash kullanarak istediğinizi yapabilirisiniz.Ama sanırım yine giflerin bir klasörde olması lazım.Excel sayfasına gelen giflerin hareket kabiliyeti kalmıyor.Excel harketeleri birleştirip bir resim haline dönüştürütor.Durum 2003 ve alt versiyonlarda böyle.Diğer üst versiyonlarda durum nedir onu bilemiyecem.:cool:
Genişletmek için tıkla ...

Sayın Evren Gizlen, merhaba,

Öncelikle duyarlığınız için çok teşekkür ederim,

Bir userform aracılığı ile, hareketli resimlerin olduğu klasörden, açılır kutu ile seçileni getirmek te sorunumu çözer, benzer konuda örnek bir çalışmanız var ise rica edebilir miyim ?

Teşekkür ederim,
 
1Al2Ver' Alıntı:
Sayın Evren Gizlen, merhaba,

Öncelikle duyarlığınız için çok teşekkür ederim,

Bir userform aracılığı ile, hareketli resimlerin olduğu klasörden, açılır kutu ile seçileni getirmek te sorunumu çözer, benzer konuda örnek bir çalışmanız var ise rica edebilir miyim ?

Teşekkür ederim,
Genişletmek için tıkla ...
ekli dosyayı incedleyiniz.:cool:
Kod: 
Private Sub ListView1_Click()
If ListView1.SelectedItem.Index > 0 Then
    Me.WebBrowser1.Navigate "about:<html><body scroll='no'><img src='" & ThisWorkbook.Path & _
    "\" & ListView1.SelectedItem.Text & "'></img><body bgcolor=black></body></html>"
End If

End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
Dim fso As Object, fs As Object, f As Object
ListView1.View = lvwReport
ListView1.Gridlines = True
ListView1.FullRowSelect = True
ListView1.ColumnHeaders.Add , , "                       GİF RESİMLERİ", 200
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.getfolder(ThisWorkbook.Path).Files
For Each fs In f
    If UCase(Replace(Replace(Right(fs.Name, 4), "ı", "I"), "i", "İ")) = ".GİF" Then
        ListView1.ListItems.Add , , fs.Name
    End If
Next
Me.WebBrowser1.Navigate "about:<html><body scroll='no'><img src='" & ThisWorkbook.Path & _
"\Ataturk.gif'></img><body bgcolor=black></body></html>"
If ListView1.ListItems.Count > 0 Then
    ListView1.ListItems(1).Selected = True
End If
End Sub
 

Ekli dosyalar

Evren Gizlen' Alıntı:
ekli dosyayı incedleyiniz.:cool:
Kod: 
Me.WebBrowser1.Navigate "about:<html><body scroll='no'><img src='" & ThisWorkbook.Path & _
"\Ataturk.gif'></img><body bgcolor=black></body></html>"
Genişletmek için tıkla ...

Sayın Evren Gizlen, merhaba,

Dosya için çok teşekkür ederim,

GIF'ler yaklaşık 200 kadar, bu durumda userformdan seçim yapmak gerekiyor, nasıl bir yol izleyebilirim ?

Teşekkür ederim,
 
1Al2Ver' Alıntı:
Sayın Evren Gizlen, merhaba,

Dosya için çok teşekkür ederim,

GIF'ler yaklaşık 200 kadar, bu durumda userformdan seçim yapmak gerekiyor, nasıl bir yol izleyebilirim ?

Teşekkür ederim,
Genişletmek için tıkla ...
Dosyayı güncelledim.
4 numaralı mesajdan indirebilirsiniz.:cool:
 
Sayın Evren Gizlen, merhaba,

Ellerinize sağlık, süper olmuş, çok teşekkür ederim,

Saygılarımla.
 
Sayın Evren Gizlen tekrar merhaba,

UserForm'da, ListWiew1'den seçilen gif'in adı K3 hücresine gelebilir mi ?

Amacım, ListWiew1'den seçim yapıldığında, seçime ait bazı bilgileri, sayfa2'den Düşeyara ile K4:K20 arasına getirmek,

Teşekkür ederim.
 
1Al2Ver' Alıntı:
Sayın Evren Gizlen tekrar merhaba,

UserForm'da, ListWiew1'den seçilen gif'in adı K3 hücresine gelebilir mi ?

Amacım, ListWiew1'den seçim yapıldığında, seçime ait bazı bilgileri, sayfa2'den Düşeyara ile K4:K20 arasına getirmek,

Teşekkür ederim.
Genişletmek için tıkla ...
Listviewin click olyı aşağıdaki gibi oldu.:cool:
Kod: 
Private Sub ListView1_Click()
If ListView1.SelectedItem.Index > 0 Then
    Me.WebBrowser1.Navigate "about:<html><body scroll='no'><img src='" & ThisWorkbook.Path & _
    "\" & ListView1.SelectedItem.Text & "'></img><body bgcolor=black></body></html>"
    [B][COLOR="Red"]Range("K3").Value = ListView1.SelectedItem.Text[/COLOR][/B]
End If

End Sub
 
Sayın Evren Gizlen merhaba,

Teşekkür ederim, çok ama çok işime yaradı inanın, sağolun, varolun,

Saygılarımla.
 
1Al2Ver' Alıntı:
Sayın Evren Gizlen merhaba,

Teşekkür ederim, çok ama çok işime yaradı inanın, sağolun, varolun,

Saygılarımla.
Genişletmek için tıkla ...
Rica ederim.
İyi çalışmalar.:cool:
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst