Bağlantılı resim görüntülenemiyor sorunu

[hasanfizik]

Bağlantılı resim görüntülenemiyor sorunu [YARDIM]

Merhaba arkadaşlar. Benim sorunum ekli dosyada bulunan excelde resim ekranında böyle bir hata alıyor olmam. üzerine tıkladığımda resim açılıyor fakat resim excelde görünmüyor. resimler ctrl m ile atılmış. resim>ekle desem olacak biliyorum fakat elimde yüzlerce resim dosyası var işimle ilgili. hepsini öyle yapamam. bir yolu varmı sizce? başka bilgisayarda yapılıyor bana gelince böyle bir sorunla karşılaşıyorum. lütfen yardım edin.

 

[Ömer]

Merhaba,

Kodu çalıştırdıktan sonra dener misiniz.

Sub Adres_Degis()
 
    Dim rsm As Shape, yol As String, ad As String
 
    For Each rsm In ActiveSheet.Shapes
        yol = rsm.Hyperlink.Address
        ad = Split(yol, "\")(UBound(Split(yol, "\")))
        rsm.Hyperlink.Address = ad
    Next rsm
 
End Sub

.

 

[hasanfizik]

Teşekkür ederim Ömer bey. Ama ben yapamadım dediğinizi. o kadar ileri düzey bilmiyorum. basice yapıştırdım çalıştır dedim hata verdi. Yanlış yapmış olabilirim.
farklı bir yol varmı? yada daha ayrıntılı yazabilirmisiniz

 

[webuyeislemleri]

Ömer bey, merhaba.
Aşağıda ki kod ile excel hücre ebatına uygun olarak resim ekliyorum.
Fakat excel dosyası ve klasörler başka bilgisayara kopyalandığında excel eklediğim resimler görünmüyor. Köprüler çalışıyor. Bu sorunu nasıl aşarım.
Excel küçüm resimlerin olduğu hücrede "Bağlantılı resim görüntülene miyor ..." başlayan hata mesajı var.

Sub xresimyukle()
Dim xresimsec As String
Dim resimyol As String
Dim Adres As Range
Set Adres = Selection
xresimsec = Application.GetOpenFilename()
On Error Resume Next
Set pic = ActiveSheet.Pictures.Insert(xresimsec)
With pic
.ShapeRange.LockAspectRatio = msoFalse
.Height = (Adres.Height - 8)
.Width = (Adres.Width - 8)
.Top = (Adres.Top + 4)
.Left = (Adres.Left + 4)
.Placement = (xlMoveAndSize)
End With
resimyol = Replace(xresimsec, "\Kucuk\", "\")
ActiveSheet.Hyperlinks.Add Anchor:=pic.ShapeRange.Item(1), Address:=resimyol
End Sub

Merhaba,

Kodu çalıştırdıktan sonra dener misiniz.

Sub Adres_Degis()
 
    Dim rsm As Shape, yol As String, ad As String
 
    For Each rsm In ActiveSheet.Shapes
        yol = rsm.Hyperlink.Address
        ad = Split(yol, "\")(UBound(Split(yol, "\")))
        rsm.Hyperlink.Address = ad
    Next rsm
 
End Sub

.

 

[Baggwell]

Merhaba, resimlerin tümünü seçip kez > resim olarak yapıştır yapın, Farklı kaydet yaparak dosyanızı makrodan çıkartırsanız çözülecektir.

 

[webuyeislemleri]

Sorun bozulmuş bir dosyada ki resimleri nasıl düzeltirim, (küçük resimleri geri nasıl getiririm)
Ömer beyn Sub Adres_Degis() makrosunu görünce bununla düzeltile bilir mi dedim. fakat yapamadık.

 

[Baggwell]

makro ile çözülmüyor sanırım

 

[webuyeislemleri]

CVP

biz sadece makroyu paylaştık, bu yüzden yanlış anlaşıldık.

Sorunlu örnek doysa ektedir.

Kucuk ve büyük hali şeklide iki resim var.
Excel şişmesin diye ekranda görünen ile köprü hedefinde ki resimler farklı.

Küçük resim, C:\Data\02 10 2014\kucuk
Büyük resim, C:\Data\02 10 2014\

yer alıyor.
Bir makro ile çalışan linklere kucuk kelimesi eklenerek nasıl " Bağlantılı resim dosyası ... " hatasından kurtulurum.

örnek ek dosya http://s3.dosya.tc/server28/JZRJew/Kitap1.xls.html


Şimdiden teşekkür.

 

[Baggwell]

Anlamadığım nokta şu, a3 hücresinde herhangi bir değer olmadan o resmi b3 hücresine nasıl getiriyorsunuz ?

 

[webuyeislemleri]

Anlamadığım nokta şu, a3 hücresinde herhangi bir değer olmadan o resmi b3 hücresine nasıl getiriyorsunuz ?

Siz eklediğim dosyaya sayfa için de ki makro ile resim ekleye bildiniz mi?