logoları döndürmek

[feraset045]

arkadaşlar sayfa 1 de iki adet resim var ben bunları yavaş yavaş döndürmek istiyorum sayfa aktif olduğunda resimler kendi ekseni etrafında dönsün istiyorum timer ile yapmaya çalıştım ama döngü ve kodlamam çok az olduğu icin yapamadım

 

[feraset045]

yokmu cevap ustalar

 

[Zeki Gürsoy]

Dönüş hızını "E1" hücresinden alıyor.

Ekteki dosyayı inceleyin.

Private Dur As Boolean
Private Sub ToggleButton1_Click()
Dur = ToggleButton1.Value
ToggleButton1.Caption = IIf(Dur = False, "Başlat", "Durdur")
    
    Do
        DoEvents
        Sheets(1).Shapes("Group 2").IncrementRotation [e1]
        If Dur = False Then Exit Do
    Loop
    
End Sub

 

[hsayar]

sn anemos hocam güzel bir örnek... peki veri girerken durmaması mümkün mü?
yada excel neden gif olarak eklenen resimleri oynatmaz

 

[Zeki Gürsoy]

sn anemos hocam güzel bir örnek... peki veri girerken durmaması mümkün mü?
yada excel neden gif olarak eklenen resimleri oynatmaz

Hücre fare ile seçilmediği sürece durmuyor zaten.
Sayfa üzerinde gif dosyası oynatabilmek için sayfa üzerine "WebBrowser" ya da özel bir denetim eklenmesi gerekir.

 

[1Al2Ver]

Hücre fare ile seçilmediği sürece durmuyor zaten.
Sayfa üzerinde gif dosyası oynatabilmek için sayfa üzerine "WebBrowser" ya da özel bir denetim eklenmesi gerekir.

Sayın anemos, çok güzel ve enteresan, acaba örnek logo dışında herhangi bir jpg uzantılı resim uygulamaya kalksak, yolu nedir, örnek logoyu sildim, 2 nci logo çalışmadı, teşekkür ederim.

 

[cry_of_dark]

teşekkürler elinize sağlık

 

[Zeki Gürsoy]

Sayın anemos, çok güzel ve enteresan, acaba örnek logo dışında herhangi bir jpg uzantılı resim uygulamaya kalksak, yolu nedir, örnek logoyu sildim, 2 nci logo çalışmadı, teşekkür ederim.

Günaydın,

Aynı şekilde dosyadan ekleyeceğiniz resimi de döndürebilirsiniz.
"Ekle > Resim > Dosyadan". Eklediğiniz resimi boyutlandırdıktan sonra adını kontrol edin. "Resim ??" gibi adı olmalı.
"Gruop 2" gördüğünüz yere resim dosyasının adını yazmanız yeterlidir.

 

[feraset045]

eline sağlık güzel olmuş

 

[ozcanya]

üstat logo nasıl yapılır
ben çalıştığım sağlık ocağına logo yapmak istiyorum
bana bir fikir verirmisiniz

 

[1Al2Ver]

Günaydın,

Aynı şekilde dosyadan ekleyeceğiniz resimi de döndürebilirsiniz.
"Ekle > Resim > Dosyadan". Eklediğiniz resimi boyutlandırdıktan sonra adını kontrol edin. "Resim ??" gibi adı olmalı.
"Gruop 2" gördüğünüz yere resim dosyasının adını yazmanız yeterlidir.

Günaydın sayın anemos, teşekkür ederim, saygılarımla.

 

[feraset045]

peki anemos ve yardımcı olabilecek diğer arkadaşlar bu logo ve imajı kendi ekseni etrafında döndürülemezmi

 

[1Al2Ver]

Logoları döndürmek

Sayın anemos, adımları takip ettim ama belki de atladığım bir yer var, dosya D:\resimlerim\yemekler-jpg isimli klasörde , resimin adı "Resim 1" , bu ismi " koddaki "Group 2" yerine yazmama rağmen olmadı, sanırım eksik bir şey yapıyorum, zaman bulupta bakarsanız memnun olurum, saygılar.

 

[Zeki Gürsoy]

"Resim 12" olarak isimlenmiş.

Private Dur As Boolean
 
Private Sub ToggleButton1_Click()
Dur = ToggleButton1.Value
ToggleButton1.Caption = IIf(Dur = False, "Başlat", "Durdur")
    
    Do While Dur
        DoEvents
        Sheets(1).Shapes("Resim 12").IncrementRotation [e1]
    Loop
    
End Sub

Ayrıca "E1" e "-" değer verirseniz ters yönde de dönebilir.

 

[feraset045]

hayır dönmüyor e1 e ters yönde verdiğimizde bunun kendi ekseni etrafında nasıl döndürürüz

 

[1Al2Ver]

"Resim 12" olarak isimlenmiş.

Private Dur As Boolean
 
Private Sub ToggleButton1_Click()
Dur = ToggleButton1.Value
ToggleButton1.Caption = IIf(Dur = False, "Başlat", "Durdur")
    
    Do While Dur
        DoEvents
        Sheets(1).Shapes("Resim 12").IncrementRotation [e1]
    Loop
    
End Sub

Ayrıca "E1" e "-" değer verirseniz ters yönde de dönebilir.

Sayın anemos, tekrar teşekkür ederim, bizi kırmadınız uğraştınız, izininiz olursa öğrenmek istediğim birkaç konu var, Resim 12 olarak ben mi isim vermişim, bir klasör içinde buna benzer onlarca resim var, örneğin aşure.jpg kadayıf tatlısı.jpg vb. bu resimleri, şu anki resim yerine kullanmaya kalktığımızda isimleri ne olmalı, nasıl ve nereden isimlendirilmeleri gerekir, detaylı bir açıklama rica etsem acaba zamanınızı almış olurmuyum, saygılarımla.

 

[Zeki Gürsoy]

hayır dönmüyor e1 e ters yönde verdiğimizde bunun kendi ekseni etrafında nasıl döndürürüz

3-B değerlerini kullanmak gerekir. Zaman ayırıp uğraşmak lazım.

 

[1Al2Ver]

Sayın anemos, tekrar teşekkür ederim, bizi kırmadınız uğraştınız, izininiz olursa öğrenmek istediğim birkaç konu var, Resim 12 olarak ben mi isim vermişim? Bir klasör içinde buna benzer onlarca resim var, örneğin aşure.jpg kadayıf tatlısı.jpg vb. bu resimleri, şu anki resim yerine kullanmaya kalktığımızda isimleri ne olmalı, nasıl ve nereden isimlendirilmeleri gerekir, detaylı bir açıklama rica etsem acaba zamanınızı almış olurmuyum, saygılarımla.

Sayın anemos'un en son cevabından önce yazdığım için gözden kaçmış olabileceği düşüncesi oluştu, bu nedenle tekrarladım, saygılarımla.

 

[Zeki Gürsoy]

İhtiyacınıza göre geliştirirsiniz.

Sub Resim_Ekle()
Dim pic As Picture
 
Set pic = Sheets(1).Pictures.Insert( _
        "D:\resimlerim\aşure.jpg")
 
With pic
    .Top = 0
    .Left = 0
    .Height = 100
    .Width = 100
    .Name = "Asure" '****
End With
End Sub

Manuel isimlendirmek için resim seçili iken hücre adreslerinin göründüğü combo içine istediğiniz ismi verin.

 

[1Al2Ver]

Sayın anemos, tekrar teşekkür ederim, saygılarımla.