kadir78
Altın Üye
- Katılım
- 6 Nisan 2016
- Mesajlar
- 227
- Excel Vers. ve Dili
- office 2019
- Altın Üyelik Bitiş Tarihi
- 30-12-2026
Aşağıdaki makro kodları sorunsuz çalışıyor. Klasörden resim çekiyorum. Küçük bir ayrıntı var sormak istediğim. Kaynak klasördeki (C:\Resimler) resim dosyasını silince excel de resim bulunmadı hatası veriyor. Fakat manuel olarak makro kullanmadan resim ekle yaptığımda, kaynak resim dosyasını silsem bile excel hata vermiyor, resim gözüküyor. Makro koduyla yaptığımda resim gözükmüyor. Yardımcı olursanız sevinirim. İyi günler.
Sub RY()
Sheets("2.Sayfa").Activate
ActiveSheet.Range("A9").Select
Dim myPicture As String, myRange As Range, pn As String
pn = Range("B9")
myPicture = "C:\Resimler\" & pn & ".jpg"
Set myRange = Selection
InsertAndSizePic myRange, myPicture
End Sub
Sub InsertAndSizePic(Target As Range, PicPath As String)
Dim p As Picture
Application.ScreenUpdating = False
Set p = ActiveSheet.Pictures.Insert(PicPath)
If Target.Cells.Count = 1 Then Set Target = Target.MergeArea
With Target
p.Top = .Top
p.Left = .Left
p.Width = .Width
End With
Sheets("Bilgiler").Activate
ActiveSheet.Range("B1").Select
End Sub
Sub RY()
Sheets("2.Sayfa").Activate
ActiveSheet.Range("A9").Select
Dim myPicture As String, myRange As Range, pn As String
pn = Range("B9")
myPicture = "C:\Resimler\" & pn & ".jpg"
Set myRange = Selection
InsertAndSizePic myRange, myPicture
End Sub
Sub InsertAndSizePic(Target As Range, PicPath As String)
Dim p As Picture
Application.ScreenUpdating = False
Set p = ActiveSheet.Pictures.Insert(PicPath)
If Target.Cells.Count = 1 Then Set Target = Target.MergeArea
With Target
p.Top = .Top
p.Left = .Left
p.Width = .Width
End With
Sheets("Bilgiler").Activate
ActiveSheet.Range("B1").Select
End Sub
Son düzenleme: