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

blue021433

Altın Üye
Katılım
21 Şubat 2007
Mesajlar
24
Excel Vers. ve Dili
Office Professional Plus 2019 Türkçe
Altın Üyelik Bitiş Tarihi
11-01-2025
Merhaba Arkadaşlar.
Makro ile hücreye çift tıkladığım zaman resim ekleme yapabiliyorum.
Fakat hücrelere bu yöntemle resim eklediğim zaman başka bilgisayarda bu resimler görüntülenemiyor.
İstediğim şey resimlerin excele gömülü kalması.
Kullanılan kod aşağıda ki gibidir.
Sizlerin önerebileceği yeni kod varsa seve seve kullanırım :)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim sPicture As String, pic As Picture
sPicture = Application.GetOpenFilename _
("Pictures (*.gif; *.jpg; *.bmp; *.tif), *.gif; *.jpg; *.bmp; *.tif", _
, "Select Picture to Import")
If sPicture = "False" Then Exit Sub
Set pic = ActiveSheet.Pictures.Insert(sPicture)
With pic
.ShapeRange.LockAspectRatio = msoFalse
.Height = Target.Offset(0, 0).MergeArea.Height - 0.2
.Width = Target.Offset(0, 0).MergeArea.Width - 0.2
.Top = ActiveCell.Top + 0.2
.Left = ActiveCell.Left + 0.2
.Placement = xlMoveAndSize
End With
Set pic = Nothing
Range("F1").Select
End Sub
 
Son düzenleme:

kakara

Altın Üye
Katılım
5 Mart 2014
Mesajlar
252
Excel Vers. ve Dili
excel 2016 plus
Altın Üyelik Bitiş Tarihi
19-12-2025
@blue021433 aynı sorunu bende yasadım cozum bulamamıstım
 

blue021433

Altın Üye
Katılım
21 Şubat 2007
Mesajlar
24
Excel Vers. ve Dili
Office Professional Plus 2019 Türkçe
Altın Üyelik Bitiş Tarihi
11-01-2025
Konu ile ilgili yarım edecek veya farklı fikir verecek kimse yok mu ?
 
Üst