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

[Muhammet Okumuş]

Aynı sorunu ben de yaşıyorum.
Insert komutu ile resim ekliyorum. Ama resimleri klasörden silince Excel'de görünmüyor. Bu resimleri Excel'e gömmek mümkün mü?

 

[Haluk]

Aynı sorunu ben de yaşıyorum.
Insert komutu ile resim ekliyorum. Ama resimleri klasörden silince Excel'de görünmüyor. Bu resimleri Excel'e gömmek mümkün mü?

Örnek kod:

Sub Test()
    'Haluk - 24/12/2019
    'sa4truss@gmail.com
    
    myPic = "C:\TestFolder\Jellyfish.jpg"
    picLeft = Range("H10").Left
    picTop = Range("H10").Top
    
    
    Sheets(1).Shapes.AddPicture Filename:=myPic, linktofile:=msoFalse, _
              SaveWithDocument:=msoCTrue, Left:=picLeft, Top:=picTop, Width:=100, Height:=100
End Sub

.

 

[Muhammet Okumuş]

Sn Haluk Bey cevabınız için teşekkür ederim. 3-4 saattir araştırıyorum, deniyorum bir türlü çözüme ulaşamadım. Addpicture yönteminde resim boyutları otomatik olarak resim boyutunda alınamaz mı? Değerleri 100 yapınca resmin şekli ve çözünürlüğü değişiyor.

 

[Haluk]

Width ve Height değerlerini 100 yerine -1 olarak değiştirin....

.

 

[Muhammet Okumuş]

Allah razı olsun. Çok uğraştırdı beni. Çok teşekkür ederim