Resim Ekleme

[mesutaygun70]

Aşağıdaki gibi bir kodla sayfaya resim getirebiliyorum. Ama bazen 20 resim oluyor bazen 10, Eğer resim varsa getiriyor fakat resim yoksa "Bağlantılı resim görüntülenemiyor. Dosya taşınmış yeniden adlandırılmış veya silinmiş olabilir. " şeklinde bir uyarı çıkıyor.

Nasıl bir düzeltme yapmam gerekir ki resim yoksa bu uyarı olmasın


Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B1:x1]) Is Nothing Then Exit Sub
ActiveSheet.DrawingObjects.Delete
On Error GoTo çıkış

Dim resimyolu As Variant
Dim Resim As Object

For satır = 1 To 38
resimyolu = ActiveWorkbook.Path & "\" & Range("x" & satır) & ".JPG"
Set Resim = ActiveSheet.Pictures.Insert(resimyolu)

With Range("b" & satır + 44 & ":j" & satır + 44)
Resim.Top = .Top + 22
Resim.Left = .Left + 5
Resim.Height = .Height - 10
Resim.Width = .Width - 10
'Resim.Object.PictureSizeMode = fmPictureSizeModeStretch
ActiveSheet.Shapes.SelectAll
Selection.ShapeRange.Height = 378.4251968504
Selection.ShapeRange.Width = 497.7637795276
End With

Next satır
çıkış:
End Sub

 

[muygun]

Merhaba;
Private Sub Worksheet_Change(ByVal Target As Range)
satırından sonra
on error resume next
satırını ekleyerek deneyin.
İyi çalışmalar.