• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Resim ekleme hücre bilgileri ile ..lütfen yardım.

  • Konbuyu başlatan Konbuyu başlatan cellaks
  • Başlangıç tarihi Başlangıç tarihi
C

cellaks

Katılım
3 Ekim 2011
Mesajlar
12
Excel Vers. ve Dili
2007
Merhaba ; arkadaşlar benim makro veya excel hakkında bi bilgim yok araştırdığım kadarıyla makro ile kod üzerind istediğim tarz bir şey yapabileceğim kanıtına vardım sizlerin yorumları ile bunu daha çok güçlendirmek istiyorum.

örnekle açıklamak istiyorum konuyu.

Örnek;

benim resim adında bir klasörüm var ve içinde 1.000 adete yakın resim var resimlerin isimlerinden bir tanesinin adı 8520kkm01 . bu resimlerdeki isim aynı zamanda sistmimdeki stok kodu olarak aynı şekilde geçiyor. Doğal olarak excel e rarpor aldığımda resimlerin ismi ile rapor alıyorum ben excel de o kodun üzerine geldiğinde açıklama yerine bu ürünün resmi nasıl gelebilir. yani bu kod nerde yazarsa yazsın üzerine geldiğim de o koda ait ürün resmi gelsin istiyorum. bu sayede excel e resim eklemekden kurtulmuş olurum her seferinde. bi kod mantığıylada anlatmak isitoyurm 8520kkm01 kodunu git c:\resim\8520kkm01.jg 'dan al açıklamada göster gibi. c:\resim\hücredekikod.jg.. umarım gerekli açıklamalarda bulunmuşumdur. şimdiden teşekkür ederim yardımlarınız bekliyorum.
 
Kodu, Sayfa1'in kod kısmına ekleyin. Herhangi bir hücrede yazılı bir resmin ismi üzerine geldiğinizde kod çalışacaktır. Resimlerin bulunduğu yolu belirtmeyi unutmayın.
Kod: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    ActiveSheet.Pictures.Delete
    Yol = "C:\"
    ActiveSheet.Pictures.Insert Yol & Target.Text & ".jpg"
    Set obj = Pictures(1)
    obj.Top = 100
    obj.Height = 100
End Sub
 

Ekli dosyalar

tşk ederim çalışma için ama nasıl eklenir bilmiyorum ama resimli bi şekilde veya daha açıklamalı bu kodları nereye ekleyecem söylersen çok sevinirim. geliştirici kısmınca al-ver var sanırım burdan oluşan xml. alablirim diye düşünüyorum bu şekilde nasıl olur yardım edebilriseniz sevinirim. resim lerin yolunu derken c:\ bulunnan resim klasörünün adını belirticem dimi _? tek tek resimlerin kod yarını yazmama gerek kalmıyacak sanırım bu şekilkde anladım yanlışım varsa düzeltirsen sevinirim ilginiz için ayrıcca teşekkürler eğer açıklama yapmassanız bi şekilde bulmaya çalşırım yöntemlere..
 
Merhaba,

Alternatif olsun.

A sütununda resim adlarının bulunduğu varsayılmıştır. Seçtiğiniz resim "C:\resim\ dizininde varsa gösterir. Kodlar ilgili sayfanın kod bölümünde olmalı.

Dosyayı inceleyiniz.

Kod: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    Dim Dosya As String
    If Target.Column <> 1 Then
        Image1.Visible = False
    Else
        Dosya = Dir("C:\resim\" & Target.Value & ".jpg")
        If Dosya <> "" Then
            Image1.Visible = True
            ActiveSheet.Image1.Picture = LoadPicture("C:\resim\" & Target.Value & ".jpg")
        Else
            Image1.Visible = False
        End If
    End If
End Sub
 

Ekli dosyalar

cellaks' Alıntı:
tşk ederim çalışma için ama nasıl eklenir bilmiyorum ama resimli bi şekilde veya daha açıklamalı bu kodları nereye ekleyecem söylersen çok sevinirim. geliştirici kısmınca al-ver var sanırım burdan oluşan xml. alablirim diye düşünüyorum bu şekilde nasıl olur yardım edebilriseniz sevinirim. resim lerin yolunu derken c:\ bulunnan resim klasörünün adını belirticem dimi _? tek tek resimlerin kod yarını yazmama gerek kalmıyacak sanırım bu şekilkde anladım yanlışım varsa düzeltirsen sevinirim ilginiz için ayrıcca teşekkürler eğer açıklama yapmassanız bi şekilde bulmaya çalşırım yöntemlere..
Genişletmek için tıkla ...

2 nolu mesaja, örnek bir dosya ekledim, inceleyin.
 
Merhaba yardımlarınız için teşekkür ederim hepinize..



Sanırım bu olayı çözdüm beninm pc de makroyu aktifleştiremedim geliştiriciyi açtım ama pasif durumda... başka pc de denedim oldu ellerinize sağlık ama ufak bir sorun var sanırım bu da çözülür alt satırlara indikçe resim önizlemesi yukarda satırlarda kalıyor satırlarla birlirle aşağıya inmiyor sabit bir sütünda kalıyor.1 nolu satırında üzerine gelsem aynı yerde 500 nolu satıra da gelsem aynı yerde önizleme yapıor doğal olarak bende ekran yettiği kadar satırların önzilemesini görüyorum.. şimdiden teşekkürler. HAMİTCAN bey sizin vermiş olduğunuz kodlarla ilgili bu durum diğer arkadaşın ki sanırım xlsm uzantılı open office ondan deneyemedim..Sizin kodlar üzerinde düzeltme yaparsak çözülmüş olucak sorunum. Diğer arkadaşımıza da emeğinden ötürü teşekkür ederim yardımı için teşekkür ederim.
 
Böyle deneyin.
Kod: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    On Error Resume Next
    ActiveSheet.Pictures.Delete
    Yol = "C:\Documents and Settings\All Users\Belgeler\Resimlerim\Örnek Resimler\"
    ActiveCell.Select
    ActiveSheet.Pictures.Insert Yol & Target.Text & ".jpg"
    Set obj = Pictures(1)
    obj.Top = 100
    obj.Height = 100
[color=red]obj.Left = Cells(ActiveCell.Row, "j").Left[/color]
[color=red]obj.Top = Cells(ActiveCell.Row, "j").Top[/color]
End Sub
 
yardımlarınız için çok teşekkürler sorun çözüldü tam isteddiğim gibi oldu.. Emeğine sağlık..
 
benim sorunum çözülmüştü ama söyle bir istekte bulunmak isityourm olursa tabi sizi fazla kızdırmasssam ..:)) şimdi satırları indikçe resimde iniyor dolayısı ile resimler sayfanın en altına geldikçe görüş mesafesi kayboluyor. demek istediğim ben ne kadar satır inerssen iniyim resim satırın olduğu yerde başlamasın hep ortalasın kendini istiyorum sanırım anlatmış oldum..
 
Sorunuzu anlamadım, örnek ile açıklayın.
 
resimler excel de göründüğü yer j sütunu olarak farkettim yine aynı yerde olsun ama benim raporlarım 500 satır olabiliyor resimin başladığı satır ise kodun olduğu satırla birlikte aşağıya iniyor..
ben hep ortalama yapsın istiyorum.
 
Bence şu şekilde yapsak iyi olacak; üstten birkaç satırı dondurup resmin bu kısımda çıkmasını sağlamak.
 
olur siz nasıl iyi olucağını düşünürseniz ben uyarım teşekkürler.
 
çok teşekkürler bu daha iyi oldu yardımınız içi n tekrar teşekkürler..
 
Sn hamitcan yardımlarınız için teşekkürler

Yb®
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst