Klasörden Resim Ekleme

[dsaffethoscan]

FormumunAD16 hücresindeki fonksiyonla oluşan rakam resmin adı ve AI54 hücresine sığdırarak gelmesini istediğim resimdir. Ama önce bir resim varsa resmi silsin, sonra resmi getirsin.

Konuyla ilgili forumda 4-5 konu var ama makroyu dosyama aldığımda çalışmıyor.

 

[Orion1]

Dosyanız ektedir.

Sub resim()
On Error Resume Next
Sheets("Üretim Formu").Image1.Picture = LoadPicture("")
Sheets("Üretim Formu").Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Kesim_ebatları\" & Range("AD16").Value & ".jpg")
Sheets("Üretim Formu").Image1.PictureSizeMode = fmPictureSizeModeStretch

End Sub

 

[dsaffethoscan]

Teşekkür ederim. Ama bir sorunum var. AD16 hücresinin değerini fonksiyonla oluşturuyordum. Rakam 9'da kaldığı için siz elle yazmışsınız. Ben tekrar fonksiyonu yazdığımda aşağıda resim gelmiyor. U16'daki combobox'da 50X70 veya 33X70 seçerseniz AD16 değeri 2 veya 3 oluyor. Bu kodda fonksiyon değerini almıyor mu?

 

[Orion1]

Teşekkür ederim. Ama bir sorunum var. AD16 hücresinin değerini fonksiyonla oluşturuyordum. Rakam 9'da kaldığı için siz elle yazmışsınız. Ben tekrar fonksiyonu yazdığımda aşağıda resim gelmiyor. U16'daki combobox'da 50X70 veya 33X70 seçerseniz AD16 değeri 2 veya 3 oluyor. Bu kodda fonksiyon değerini almıyor mu?

2 nolu mesajda dosyayı güncelledim.

 

[dsaffethoscan]

Elinize sağlık çok güzel olmuş. Teşekkürler.

Başlıkla alakası olmayacak ama birşey daha sormak istiyorum.

Formda G2'yi doldurduktan sonra tab ile sırasıyla Q2 - V2 - AE2 - AJ2 - AP2 - sonra da formumdan çıkıp boş hücrelere doğru gidiyor. Ben istiyorum ki G2 - V2 - AJ2 sonra da taba basınca doldurulması gereken alttaki alan olan G7 hüçresine gitsin. Bir de AJ7'de olduğu gibi bu hücrede combobox varsa hücre yerine combobox"ın içine girsin. İnternet sayfalarındaki gibi ya da muhasebe programlarındaki gibi doldurulması gereken alanlara veya seçilmesi gereken combobox'lara gitse çok iyi olur.

Hücreleri kiletleyip dosyayı koru dediğimde yandaki boş alanlara gitmeye devam ediyor ve combobox'ların içine değil bulunduğu hücre alanlarına gidiyor.

Dosyanın bir kısmında olursa kalanını ben yapmaya çalışırım. Ya da nasıl olacağını anlatırsanız ben uğraşırım.

 

[Orion1]

userform kullanıp bu sorunu geçebilirisiniz.

 

[dsaffethoscan]

Nasıl kullanacağımı bilmiyorum. Asıl olarak grafikerim. Grafik programlarını iyi bilirim. Ama bilgisayara meraklı olduğum için bu formu bitirmeye çalışıyorum. Bu form sayesinde excell'in bir derya olduğunu öğrendim. Userform kullanımı ile ilgili ders bilgilerine bakayım. Ayrıca arattırınken tab ile ilerleme gibi baktım ama birşey bulamadım.

 

[dsaffethoscan]

Evde işyerimdeki bilgisayarımda gayet güzel çalıştı. Ama ağdaki başka biri formu doldurmak için açtığında sanırım yoldan dolayı çalışmıyor.

Sheets("Üretim Formu").Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Kesim_Ebatları\" & Range("AS54").Value & ".jpg")

satırını Sheets("Üretim Formu").Image1.Picture = LoadPicture(ThisWorkbook.Path & "\\Server\KURUMSAL\PAZARLAMA\Uretim_Formları\Kesim_Ebatları\" & Range("AS54").Value & ".jpg")

şeklinde yolu değiştiriyorum ama resmi görmüyor. Hücreyi de AD16 değil AS54 olarak değiştirdim. Acaba başka bilgisayardan yolu yazarken \\Server şeklinde yolu yazmıyor muyuz?

 

[batuhangs]

Evde işyerimdeki bilgisayarımda gayet güzel çalıştı. Ama ağdaki başka biri formu doldurmak için açtığında sanırım yoldan dolayı çalışmıyor.

Sheets("Üretim Formu").Image1.Picture = LoadPicture(ThisWorkbook.Path & "\Kesim_Ebatları\" & Range("AS54").Value & ".jpg")

satırını Sheets("Üretim Formu").Image1.Picture = LoadPicture(ThisWorkbook.Path & "\\Server\KURUMSAL\PAZARLAMA\Uretim_Formları\Kesim_Ebatları\" & Range("AS54").Value & ".jpg")

şeklinde yolu değiştiriyorum ama resmi görmüyor. Hücreyi de AD16 değil AS54 olarak değiştirdim. Acaba başka bilgisayardan yolu yazarken \\Server şeklinde yolu yazmıyor muyuz?

Bu sorunu bende yaşıyorum, serverdan resimleri alamıyorum..