Userform ımage

[Orion1]

ya olmamışmı ne kelime Orion hoam inanın hayran kaldım. )))
uzun zamandır aradığım bişeydi. bende bi ekleme yaptım lşimdi. kodların en üstüne syfada resim varsa sil dedim. varsa önce siliyor. sonrada yeni resmi bırakıyor.

ufak bir ekleme daha istiycem. şimdide aktif sayfada ki resmi userform arka planı nasıl yapıcaz ))



Private Sub CommandButton1_Click()
ActiveSheet.DrawingObjects.Delete ‘RESİM VARSA ÖNCE VAR OLAN RESMİ SİL
Dim resim As Object, x
Range("A1").Select
ChDir ("C:\")
x = Application.GetOpenFilename(FileFilter:="Resim Dosyaları,*.jpg", Title:="RESİM DOSYASINI SEÇİN")
If x = False Then MsgBox "Resim dosyası seçilmedi!!", vbCritical, "UYARI": Exit Sub
Set resim = ActiveSheet.Pictures.Insert(x)
'En Boy Oranı Sabit Değil.İstediğimiz Boyut Veriliyor.
'Dikkat Boyut cm Değil İnç
'EnBoy oranı sabit olmasını istiyorsak msoFalse Yerine msoTrue yazılacak
resim.ShapeRange.LockAspectRatio = msoFalse
resim.ShapeRange.Height = Range("A1").Height
resim.ShapeRange.Width = Range("a1").Width
'Range("A1").Select



End Sub

O konu başka.
Onun için yeni bir konu açabilirsiniz.

 

[Ömer BARAN]

Merhaba.

Sayın GİZLEN sorunu mutlaka çözmüştür.
Ben de hazırlamıştım göndereyim dedim.
Deneyiniz.

İlk açılışta kendi bilgisayarınızda kayıtlı bir resmi seçerek, dosyayı kaydedip kapatın.
İkinci açılıştan itibaren sorunsuz çalışması gerekir.
.

 

[zulfuernek]

ömer hocam indiremiyorum.
dosya paylaşım rica edebilirmiyim

 

[Ömer BARAN]

ALTIN ÜYELİK durumunu zaman zaman unutuyorum.
Dosya burada.

 

[zulfuernek]

ömer hocam kısmen olmuş ama emeğinize sağlık gerçekten mantıklı bir düşünce

fakat burdaki sorun şu ki: dosya yolunu kaydettiğimiz için resim dosyası silinince userform hata veriyor. silinse dahi resmi ben değiştirene kadar userform da o resim kalmalı. bu yüzden excel sayfasına kaydetsin istiyorum ben. ydosya yolunu değilde direk sayfadaki pictureye nasıl uygularız?

 

[Saban Sertkaya]

İşin aslına bakarsanız bu isteğiniz biraz, sağ kulağı sol elle tutmak gibi oluyor. Ben örneği denemedim ama yine de şu konuyu bir inceleyin derim. Murat Bey'in benzer bir durum için çözüm önerisi olmuş.

http://www.excel.web.tr/f48/sayfadan-userforma-resim-ekleme-t142733.html