cıft tıklıyarak getırdıgım resımler farklı bılgısayarda gozukmuyor kod yardım

[kakara]

Merhaba ustadlarım ekledıgım dosyada ıstedıgım alanda cıft tıklayarak klasörden excele resım getırebılıyorum. hucrelerı bırlestırsem bıle bırlestırdıgım alanın boyutuna göre resımlerı çekebılıyorum. yalnız calısma dosyamı ağ dısında bırıne maıl attıgımda dosyamdakı ekledıgım resımler kayboluyor. makronun calısma mantıgını bozmadan ama resımlerın ag dısına bıle cıksa excel ıcınde gozukmesını sağlıyabılır mıyız ? ılgınız ıcın tesekkurler

 

[Korhan Ayhan]

İnceleyiniz.

Bağlantılı resim görüntülenemiyor, Dosya taşımış hatası

Merhaba Arkadaşlar, Eklediğim excel örneğinde derdimi atlatmaya çalıştım. Excel resim linkleri çalışıyor, fakat resimler üzerinde "Bağlantılı resim görüntülenemiyor, Dosya taşımış hatası.. " var, resimler excel de görünmüyor. Toplu olarak nasıl düzeltirim. Resim ekleme kodum; Sub...

www.excel.web.tr

 

[kakara]

@Korhan Ayhan ustadım ılgınız ıcın tesekkur ederım verdıgınız lınkı okudum kendı dosyama uyarlamaya da calıstım fakat sureklı hata alıyorum siz bır kontrol edebılır mısınız acaba ? ılgınız ıcın sımdıden tesekkur ederım

 

[Korhan Ayhan]

Deneyiniz.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim File_Path As Variant
    
    File_Path = Application.GetOpenFilename _
    ("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _
    , "Select Picture to Import")
    
    If File_Path = False Then Exit Sub
    
    Cancel = True
    
    ActiveSheet.Shapes.AddPicture Filename:=File_Path, LinktoFile:=msoFalse, _
    SaveWithDocument:=msoCTrue, Left:=ActiveCell.Left, Top:=ActiveCell.Top, _
    Width:=ActiveCell.MergeArea.Width, Height:=ActiveCell.MergeArea.Height
End Sub

 

[kakara]

@Korhan Ayhan ustadım ılgınız ıcın cok tesekkur ederım verdıgınız kod calısıyor