Makro İle gelen Resimleri Kaydediyorum fakat resimler Çıkmıyor

[Grimm80]

Merhabalar

Excel dosyama makro ile resimleri çağırıyorum fakat mAİL ile gönderdiğim zaman karşı taraf resimleri göremiyor resimler çıkmıyor biraz araştırdım Aşağıdaki gibi yaplıyormuş Shapes komutu kullanılanarak Fakat ben bunu benim komutuma eklemeyedim Kod yapım aşağıdaki gibidir . Şimdiden tşk.ler


Set myDocument = Worksheets(1)
myDocument.Shapes.AddPicture _
"c:\microsoft office\clipart\music.bmp", _
True, True, 100, 100, 70, 70




Sub UFUKK()
Dim a As Integer
Dim son As Integer
Dim ad As String
Dim yol As String

yol = "C:\buyukresim\"
son = Range("A" & Rows.Count).End(xlUp).Row
For a = 1 To son
ad = yol & Cells(a, 1) & ".jpg"

If Dir(ad) = "" Then
With ActiveSheet.Pictures.Insert(yol & "noimage.jpg")
.Left = Cells(a, 2).Left
.Top = Cells(a, 2).Top
.ShapeRange.LockAspectRatio = True
.ShapeRange.Height = 100
End With
Else
With ActiveSheet.Pictures.Insert(ad)
.Left = Cells(a, 2).Left
.Top = Cells(a, 2).Top
.ShapeRange.LockAspectRatio = True
.ShapeRange.Height = 100
End With
End If

Rows(a).RowHeight = 100
Next a
MsgBox "İşlem tamamlandı", vbInformation, "T A M A M"
End Sub