Pictures Sınıfının Paste Özelliği Kullanılamıyor Hatası

[caneruysal]

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

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

 

[Korhan Ayhan]

Merhaba,

Hangi satırda hata veriyor?

 

[caneruysal]

ActiveSheet.Pictures.Paste.Select

Bu kodda hata veriyor.

 

[Korhan Ayhan]

Sayfa koruması var mı?

 

[caneruysal]

Merhaba,

Hayır sayfada herhangibir koruma bulunmuyor. Ayrıca şöyle bir bilgi de vereyim. Bu kod bazı bilgisayarlarda çalışıyor bazılarında çalışmıyor.

Çalışan bilgisayarlarda bazen PICTURES SINIFININ INSERT ÖZELLİĞİ ALINAMIYOR.
hatası da alıyoruz.

 

[Korhan Ayhan]

Bu kodunuz tam olarak nasıl işlem yapıyor?

 

[Korhan Ayhan]

İlk gözüme çarpan detay,

ResimYolu ve Resimal ifadeleri eşit olmalıdır.

 

[Korhan Ayhan]

Resim dosyası nerde ve kod içinde tanımlı adı doğrumu?

 

[Korhan Ayhan]

Sayfa koruması kullanıyormusunuz?

 

[Korhan Ayhan]

Nette biraz arama yaptım. Ama tam olarak çözüm olabilecek bir yorum göremedim.

Linki Türkçe'ye çevirip inceleyebilirsiniz.

How to autosize images and insert into cells in 2016 Excel for Mac - Microsoft Q&A

Hello, Please help me create or find code and how to place it, for autosizing different sized images and insert them into different sized cells in a workbook 2016 Excel for Mac. Thank you

answers.microsoft.com