SA Arkadaşlar
Sitede bulduğum bir kodu uyarladım ve resim
klasörümde kritere uyan resimleri insert yapıyorum...
Ancak bir eksiğim var,
Gelen resmi hücrede ortalanmıyor ve fonksiyonun çalışması için
=ResimAl(20) ifadesini hücreye girip "Enter" yapmazsam resim gelmiyor.
Her satıra tek tek girip Enter yapmam zor oluyor.
Function ResimAl(SatirNo)
Cells(SatirNo, 5).Select
resimadi = LoadPicture("")
resimadi = Cells(SatirNo, 1).Text & ".jpg"
On Error Resume Next
ActiveSheet.Pictures.Insert("R:\Fiyat Listeler\Fermator_YedekParca\" & resimadi).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 35
Selection.ShapeRange.Width = 50
Selection.ShapeRange.Rotation = 0#
Selection.s
Cells(20, 1).Select
End Function
Sitede bulduğum bir kodu uyarladım ve resim
klasörümde kritere uyan resimleri insert yapıyorum...
Ancak bir eksiğim var,
Gelen resmi hücrede ortalanmıyor ve fonksiyonun çalışması için
=ResimAl(20) ifadesini hücreye girip "Enter" yapmazsam resim gelmiyor.
Her satıra tek tek girip Enter yapmam zor oluyor.
Function ResimAl(SatirNo)
Cells(SatirNo, 5).Select
resimadi = LoadPicture("")
resimadi = Cells(SatirNo, 1).Text & ".jpg"
On Error Resume Next
ActiveSheet.Pictures.Insert("R:\Fiyat Listeler\Fermator_YedekParca\" & resimadi).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 35
Selection.ShapeRange.Width = 50
Selection.ShapeRange.Rotation = 0#
Selection.s
Cells(20, 1).Select
End Function
Son düzenleme: