vba resim boyutu & hücre rengi

[üveyin]

merhabalar, arkadaşlar excel sayfamdaki resimleri diger sekmedeki sayfada liste oluşturuyorum mevcut kodum işlemlerimi yapıyor fakat eksik olan hücreye göre resmi boyutlandırması ve hücre rengini değiştirmesini istemiyorum yardımlarınız için şimdiden teşekkür ederim.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [C2:C1000]) Is Nothing Then Exit Sub

Application.EnableEvents = False

KalacağıSatır = Target.Row + 1

ActiveSheet.Pictures.Delete

SonSatır = ActiveSheet.Cells(Rows.Count, "C").End(3).Row
For Satır = 10 To SonSatır

On Error Resume Next

Yol = "B" & WorksheetFunction.Match(Range("C" & Satır), Worksheets("Resim Listem").Range("C:C"), 0)
If Err.Number > 0 Then
Err.Number = 0
Else

Worksheets("Resim Listem").Range(Yol).Copy
ActiveSheet.Range("B" & Satır).Select
ActiveSheet.Paste

End If

Next Satır


Range("C" & KalacağıSatır).Select

Application.EnableEvents = True

End Sub

 

[üveyin]

ilgili olan arkadaşlar teşekkür ediyorum. sorunumu çözdüm,bu konu ile ilgilenen yada bu konuyu araştıranlar olursa aşağıdaki gibi kırmızı işaretli kod ile çözüldü.

Worksheets("Resim Listem").Range(Yol).CopyPicture Appearance:=xlScreen, Format:=xlPicture