İ
İhsan Tank
Misafir
arkadaşlar başlıktada açıklama yapmaya çalıştım Userform'da bir İmage var ve Bunu Mümkünse hem textbox2'ye göre resim getirsin hemde otomatik gelsin. dosya ekliyorum umarım bir çözüm'ü vardır
-
DİKKAT DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
- Katılım
- 5 Ocak 2009
- Mesajlar
- 1,586
- Excel Vers. ve Dili
- 2003 Türkçe
Selam,
resimleriniz C:\ altında ise Kodlarınıza aşağıdaki kırmızı alanı ekleyiniz.
Resimlerinizi zoom yapmak için aşağıdaki mavi alanı aktif yapınız.
İyi çalışmalar.
resimleriniz C:\ altında ise Kodlarınıza aşağıdaki kırmızı alanı ekleyiniz.
Resimlerinizi zoom yapmak için aşağıdaki mavi alanı aktif yapınız.
Kod:
Private Sub ComboBox1_Click()
On Error Resume Next
Sheets("Sayfa1").[A2:A65536].Find(ComboBox1.Value).Activate
TextBox1 = Sheets("Sayfa1").Cells(ActiveCell.Row, 2).Value
TextBox2 = Sheets("Sayfa1").Cells(ActiveCell.Row, 3).Value
[COLOR="Red"][B]Image1.Picture = LoadPicture(TextBox2)[/B][/COLOR]
[COLOR="Blue"]'Image1.PictureSizeMode = fmPictureSizeModeZoom[/COLOR]
End Sub
İ
İhsan Tank
Misafir
teşekkür ederim işimi gördü
assenucler
Altın Üye
- Katılım
- 19 Ağustos 2004
- Mesajlar
- 3,552
- Excel Vers. ve Dili
- Ofis 365 TR 64 Windows 11 Home Single Language x64 TR
- Altın Üyelik Bitiş Tarihi
- 29-05-2025
Sayın İhsan Tank ve Ergün Güler;
Günaydın...
Emek ve katkılarınız için teşekkürler..
Günaydın...
Emek ve katkılarınız için teşekkürler..
- Katılım
- 5 Ocak 2009
- Mesajlar
- 1,586
- Excel Vers. ve Dili
- 2003 Türkçe
Ben teşekkür ederim.
İyi çalışmalar.
- Katılım
- 5 Ocak 2009
- Mesajlar
- 1,586
- Excel Vers. ve Dili
- 2003 Türkçe
- Katılım
- 5 Ocak 2009
- Mesajlar
- 1,586
- Excel Vers. ve Dili
- 2003 Türkçe
Selam,
bir örnek dosya ekleyiniz. dosya üzerinden çözmeye çalışalım.
İyi çalışmalar.
Private Sub Worksheet_Change(ByVal Target As Range)
Image1.Picture = LoadPicture(['FORM'!h30])
Image2.Picture = LoadPicture(['FORM'!b30])
Image3.Picture = LoadPicture(['FORM'!b45])
Image1.PictureSizeMode = fmPictureSizeModeZoom
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image2.PictureSizeMode = fmPictureSizeModeStretch
Image3.PictureSizeMode = fmPictureSizeModeStretch
kodlar bu nasıl düzenlemeliyim?
Image1.Picture = LoadPicture(['FORM'!h30]) ile h30 hücresine resim getiriyorum. H30 hücresine resim yolu c:\foto\1.jpg şeklinde otomatik geliyor. başka hücreye değer girdiğimde c:\foto\2.jpg c:\foto\3.jpg gibi otomatik değişiyor h30 hücresi.
h30 hücresi c:\foto\4.jpg olduğunda , c:\foto\ dizininde 4.jpg resimi olmadığı zaman runtime error 53 hatası veriyor. resim bulamadığında bu hatayı önlemek için bulamadığı resim yerine dizine hata.jpg diye bir resim koysak o resmin otomatik gelmesini nasıl sağlayabiliriz.
on error goto kumutu işe yararmı?
- Katılım
- 5 Ocak 2009
- Mesajlar
- 1,586
- Excel Vers. ve Dili
- 2003 Türkçe
Selam,
kodları aşağıdaki gibi dener misiniz? kırmızı alanlara bahsettiğiniz hata.jpg resminin yolunu yazınız.
İyi çalışmalar.
Kod:
If Dir(['FORM'!h30]) = "" Then
Image1.Picture = LoadPicture([COLOR="red"]"buraya hata.jpg yolu"[/COLOR])
Else
Image1.Picture = LoadPicture(['FORM'!h30])
End If
If Dir(['FORM'!B30]) = "" Then
Image2.Picture = LoadPicture([COLOR="red"]"buraya hata.jpg yolu"[/COLOR])
Else
Image2.Picture = LoadPicture(['FORM'!B30])
End If
If Dir(['FORM'!B45]) = "" Then
Image3.Picture = LoadPicture([COLOR="Red"]"buraya hata.jpg yolu"[/COLOR])
Else
Image3.Picture = LoadPicture(['FORM'!B45])
End If
Image1.PictureSizeMode = fmPictureSizeModeZoom
Image1.PictureSizeMode = fmPictureSizeModeStretch
Image2.PictureSizeMode = fmPictureSizeModeStretch
Image3.PictureSizeMode = fmPictureSizeModeStretchistediğim tam olarak buydu emeğin için çok teşekkür ederim. zaman ayırdığın içinde ayrıca teşekkür ederim.
saygılar.
- Katılım
- 5 Ocak 2009
- Mesajlar
- 1,586
- Excel Vers. ve Dili
- 2003 Türkçe
Selam Ben Teşekkür Ederim. Çözüm bulmanıza sevindim.
İyi çalışmalar.
bir sorum daha olacak
Private Sub Worksheet_Change(ByVal Target As Range)
yukarıdaki koda göre worksheet te bir değişiklik olunca resimler geliyor
peki bunu örneğin a1 hücresindeki değer değişince şeklinde nasıl yapabilirim?
Private Sub Worksheet_Change(ByVal Target As Range)
yukarıdaki koda göre worksheet te bir değişiklik olunca resimler geliyor
peki bunu örneğin a1 hücresindeki değer değişince şeklinde nasıl yapabilirim?
Son düzenleme:
??????????
- Katılım
- 5 Ocak 2009
- Mesajlar
- 1,586
- Excel Vers. ve Dili
- 2003 Türkçe
Selam,
ilgili sayfanızın Worksheet_Change kısmın aşağıdaki kırmızı alandaki kodu ekleyiniz.
İyi çalışmalar
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
[COLOR="Red"][B]If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub[/B][/COLOR]
'******Buraya kodlarınızı yazınız********
End SubMerhaba. Forumda yeniyim. hazırladığım bir userform dosyasında userform üzerine resim ekleyip bunu excell sayfasındaki hücreye kaydediyorum. fakat yapmak istediğim excell dosyasına bir kez kaydettikten sonra her resim yükleyip kaydet butonuna bastığımda sadece güncellenmesi. aşağıda yazdığım kod ile sürekli sayfaya frame ile üzerine resim geliyor. bu koda ekleme yaparak bu sorunun çözülmesi mümkün müdür acaba?
Kullandığım kod :
Private Sub CommandButton2_Click()
Dim img As String
img = Application.GetOpenFilename(filefilter:="Jpeg images,*.jpg", Title:="Please select an image")
If Dir(img) <> "" Then
Me.txt_Image_URL.Value = img
Me.Image1.Picture = LoadPicture(img)
End If
Yardımcı olabilirseniz sevinirim.
Kullandığım kod :
Private Sub CommandButton2_Click()
Dim img As String
img = Application.GetOpenFilename(filefilter:="Jpeg images,*.jpg", Title:="Please select an image")
If Dir(img) <> "" Then
Me.txt_Image_URL.Value = img
Me.Image1.Picture = LoadPicture(img)
End If
Yardımcı olabilirseniz sevinirim.
- Katılım
- 15 Mart 2005
- Mesajlar
- 42,290
- Excel Vers. ve Dili
- Microsoft 365 Tr-En 64 Bit
Merhaba,
Paylaştığınız kodun varolan image nesnesine resim yüklemesi gerekir. Yani image nesnesinde seçtiğiniz resim görüntülenir.
Paylaştığınız kodun varolan image nesnesine resim yüklemesi gerekir. Yani image nesnesinde seçtiğiniz resim görüntülenir.