Soru Makrolu fotoğraf yüklediğim dosya başka bilgisayarda açılmıyor.

[enkorkmaz]

Merhabalar,
Hazırladığım excel sayfasında yaklaşık 500 adet ürün var. Ve hepsinin birer kodu ve fotoğrafı mevcut. Excel vba ile liste oluşturdum. Sayfaya çağırdığım fotoğrafları üst-alt-sağ ve soldan hücrelere sığdırdım. Buraya kadar tamam. Buradan sonra 2 problem ile karşılaşıyorum. 1- Hazırlanmış olan dosya, başka bilgisayara gönderildiğinde fotoğraflar açılmıyor. 2- Sayfa 1 de olan ürünlerin kodlarını kopyala yapıştır yaptığımda, örneğin 3. sırada bulunan ürünün fotoğrafı yok. Ondan sonra gelen ürünlerin fotoğrafları olduğu halde hiçbirinin fotoğrafı açılmıyor.
Yardımlarınız için şimdiden teşekkür ederim.


Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [a:a]) Is Nothing Then Exit Sub

'hata kontrolü
On Error GoTo çıkış
' Resimleri Sil

ActiveSheet.DrawingObjects.Delete
'Resim yolunun bulunması

Dim ResimYolu As Variant
Dim Resim As Object

For satır = 2 To 500

ResimYolu = ActiveWorkbook.Path & "\" & Range("a" & satır) & ".png"

' Resmi oluştur

' Resmi oluştur
Set Resim = ActiveSheet.Pictures.Insert(ResimYolu)

'Resmi Boyutlandır

Set ImageCell = Range("b" & satır).MergeArea

With Range("b" & satır)
Resim.ShapeRange.LockAspectRatio = msoFalse
Resim.Top = ImageCell.Top
Resim.Left = ImageCell.Left
Resim.Height = ImageCell.Height
Resim.Width = ImageCell.Width
End With

Next satır

çıkış:
End Sub