Sayfaya JPEG eklemek

[heft]

Merhaba
C:\Den altında A.xls dosyam var
C:\Den\Resim içerisinde de JPEG dosyalarım var.

Mesela;
A.xls sayfa1 A1 hücresine 101 yazdığımda Resim klasörü içerisindeki jpeg adlarını tarayacak ve eğer 101 var ise o resmi A3 Hücresinden başlayarak yapıştıracak (yada oradaki resmi değiştirecek) ve boyutları 8 cm e 7 cm olacak.
Eğer 101 noyu bulamaz ise 100 nolu jpegi alacak

Yapılabilir mi acaba?

 

[umutsancar]

Merhaba,

Bir adım atmış olalım...


Bu resim ekleme makrosu.
Sub ekle()
Range("A3").Select
resimadi = Range("A1").Text & ".jpg"
ActiveSheet.Pictures.Insert("C:\DEN\Resim\" & resimadi).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 198.75
Selection.ShapeRange.Width = 226.5
Selection.ShapeRange.Rotation = 0#
End Sub

Silme makrosu da çalışıyor fakat butonları da siliyor. O şimdilik muallakta kalsın yada bir kardeş el atsın... :wink:

Sub sil()
ActiveSheet.Shapes.SelectAll
Selection.Delete
Range("I7").Select
End Sub

 

[heft]

teşekkürler sn umut sancar