- Katılım
- 14 Ekim 2018
- Mesajlar
- 30
- Excel Vers. ve Dili
- 2016 - Türkçe
- Altın Üyelik Bitiş Tarihi
- 09.11.2019
Merhaba Aşağıdaki Kodlara sahip bir makrom bulunmaktadır ve Pictures Sınıfının Paste Özelliği Kullanılamıyor Hatası alıyorum. Konu hakkında destek olabilir misiniz 
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c:c]) Is Nothing Then Exit Sub
On Error GoTo tekrar
ActiveSheet.DrawingObjects.Delete
Dim ResimYolu As String
Dim resim As Object
For satır = 2 To 5000
ResimYolu = "Dosyakonumu" & "\" & Range("c" & satır).Value & ".jpg"
If Dir(ResimYolu) = "" Then GoTo tekrar Else
Set resim = ActiveSheet.Pictures.Insert(ResimYolu)
With Range("b" & satır)
resim.Top = .Top
resim.Left = .Left
resim.Height = ActiveCell.Height
resim.Width = ActiveCell.Width
resim.Select
Selection.Copy
Range("a" & satır).Select
ActiveSheet.Pictures.Paste.Select
Selection.Top = ActiveCell.Top
Selection.Left = ActiveCell.Left
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = ActiveCell.Height
Selection.ShapeRange.Width = ActiveCell.Width
resim.Delete
End With
tekrar:
Next satır
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı", vbInformation
End Sub