dosya içindeki fotograflardan slide show hazırlama

[rexmate]

İyi günler,
benim istediğim şu ki;
bir dosyanın içindeki aynı boyuttaki resimleri (örneğin 20 tane .jpeg) sırayla arka arkaya slidelara ekleyip, istediğim boyuta getiren bir makro.
Resimleri manuel olarak insert ettikten sonra istediğim boyuta getiren makroyu yapabiliyorum ama bunu otomatikleştirmek istiyorum.
İlginize şimdiden teşekkürler

 

[Nazmi YAZICI]

Mrb,

Resimleri otomatik yüklemek için;

Sub Insert_Picture()
Dim i As Integer
For i = 1 To 20
 yol = "C:\Resimlerim\"
 Cells(1, i).Select
 ActiveSheet.Pictures.Insert (yol & "Resim" & i & ".jpeg")
Next i
End Sub

Resimleri boyutlandırmak için;

Sub R_Size()
Dim i As Integer
say = ActiveSheet.Shapes.Count
For i = 1 To say
    ActiveSheet.Shapes(i).Select
    Selection.ShapeRange.Height = 439.5
    Selection.ShapeRange.Width = 283.5
Next i
End Sub

gibi kodlar işinize yarayabilir. Ancak sizdeki uygulamanın tam detaylarını bilmediğimiz için kodları kendinize göre düzenlemelisiniz. Mesela;

ActiveSheet.Shapes(i).Select

ile aktif sayfa üzerindeki tüm resim,çizim gibi şekillerin tamamı şekillenir. Eğer resimler özel bir ad ile tanımlı ise ozaman bu satır yerine;

ActiveSheet.Shapes("Picture " & i ).Select

gibi bir kod kullanmak daha doğru olur.

Kolay gelsin.