Dosya açılışında Atatürk'ün resmini süreli olarak göstermek

[musculus2]

Dosya açılışında Atatürk'ün resmini süreli olarak göstermek

macro ile yazılmış bir excel kitabı açtığımızda 5-10 saniyeliğine Atatürk' ün resmini gösterebilirmiyiz

? ? ? ? ? ?

 

[Levent Menteşoğlu]

Resmi eklermisiniz.

 

[kombo]

macro ile yazılmış bir excel kitabı açtığımızda 5-10 saniyeliğine Atatürk'ün resmini gösterebilirmiyiz

Türkçemize sahip çıkmadığımız gibi özel isimlerede mi artık vurdumduymaz olduk?

 

[musculus2]

Elbette türkçeyi kullanma taraftarıyım.Resim ektedir ama herhangi bir Mustafa Kemal ATATÜRK resmide olabilir.

 

[Haluk]

Son mesajınızın düzeltilmiş şekli aşağıdadır.

Elbette Türkçeyi kullanma taraftarıyım. Resim ektedir ama herhangibir Mustafa Kemal ATATÜRK resmi de olabilir.

 

[musculus2]

Düzeltme için teşekkürler.

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Umarım faydası olur.

 

[musculus2]

Eline sağlık

Arkadaşım sadece güzel değil mükemmel olmuş.

 

[bulentcigali]

sayın cost control çok güzel bir uygulama ancak belli bir süre vermişsiniz onu anlayamadım ve bulamadım iyi çalışmalar

 

[Korhan Ayhan]

Selamlar,

Örnek dosyayı açtıktan sonra 10 saniye bekleyin otomatik olarak excel sayfası açılacaktır. Daha sonra Alt+F11 tuşlarına basın açılan pencerede sol tarafta UserForm1 yazısının üzerinde sağ klik yapın "View Code" seçeneğini seçtiğinizde kodlara ulaşabilirsiniz.

 

[baydeniro]

Merhaba. Ben bu dosyayı açtığımda TEST butonuna bastığım zaman makro çalışma hatası veriyor. Debug'ta aşağıda yazılı bölümü satı olarak gösteriyor.

If Application.Version < 9 Then

Bu neden kaynaklanıyor olabilir ?

 

[Korhan Ayhan]

Selamlar,

Versiyon ile ilgili bir problem olabilir. Dosyadaki koddaki aşağıdaki kısmı silip tekrar denermisiniz.

    If Application.Version < 9 Then
    lngFormHwnd = FindWindow("THUNDERXFRAME", Me.Caption)
    Else
    lngFormHwnd = FindWindow("THUNDERDFRAME", Me.Caption)
    End If

 

[ANTALYA 01]

D

Sayın CostControl

Bu çalışmanızı Ben başka bir sayfada deniyorum.Run time error 424;
Object reguired Diye Hata Mesajı veriyor.

Debug yaptığımda
Label1.Caption=Format Aktif hale geliyor Fakat arka planda resim geliyor.Nerde yanlış yapmış olabilirim.

 

[Korhan Ayhan]

Selamlar,

Uyguladığınız çalışmada Label1 varmı?

 

[ANTALYA 01]

D

Dosya Ektedir

 

[necokara]

Say&#305;n Cost_Control ,

&#199;al&#305;&#351;man&#305;z &#231;ok g&#252;zel, bu &#231;al&#305;&#351;may&#305; her excel dosyas&#305; i&#231;in uygulayabilirmiyiz?
Yani herhangi bir excel dosyas&#305; veya bo&#351; excel dosyas&#305; a&#231;t&#305;&#287;&#305;mda da resmin a&#231;&#305;lmas&#305;n&#305; sa&#287;lamayabilirmiyiz ?

Sayg&#305;lar&#305;mla !!

 

[Korhan Ayhan]

Selamlar,

Sn. ANTALYA 01,

Belirttiğim gibi formunuzun üzerinde Label1 yok. Eklerseniz problem ortadan kalkacaktır.

 

[Korhan Ayhan]

Selamlar,

Sn. necokara,

Eklemi&#351; oldu&#287;um dosyay&#305; indirdikten sonra a&#231;&#305;p farkl&#305; kaydet dedikten sonra Atat&#252;rk ismiyle EKLENT&#304; olarak kaydedin. Daha sonra bu eklentiyi aktif hale getirin. Bundan sonra her exceli a&#231;&#305;&#351;&#305;n&#305;zda bu g&#246;r&#252;nt&#252; ekrana gelecektir.

 

[necokara]

te&#351;ekk&#252;r ederim.

 

[necokara]

Say&#305;n Cost_Control,

Eklenti olarak yapt&#305;m ancak, daha &#246;nceden kay&#305;tl&#305; bir dosyay&#305; a&#231;mak i&#231;in t&#305;klad&#305;&#287;&#305;mda eklenti &#231;al&#305;&#351;&#305;yor, resim g&#246;z&#252;k&#252;yor ancak istedi&#287;im dosya a&#231;&#305;lm&#305;yor, sadece excel bo&#351; olarak kal&#305;yor. A&#231;abilmek i&#231;in istedi&#287;im dosyaya yeniden t&#305;klamam gerekiyor. Bu sorunu halledebilirmiyiz.