- Katılım
- 19 Kasım 2007
- Mesajlar
- 19
- Excel Vers. ve Dili
- 2010 Excel ve Türkçe
Merhabalar,
Aşağıdaki kodla birlikte Powerpointe yer alan resimleri belirli boyuta ve konuma getirebilirsiniz.
Tek tek uğraşmanıza gerek kalmaz.
Değerleri aşağıdaki siteden CM to Point(Computer)'a göre değiştirebilirsiniz.
Kod'lardaki veriler (Point Computer verileridir)
1 Cm 0.75 point(Computer) ediyor.
http://www.translatorscafe.com
****
Aşağıdaki kodla birlikte Powerpointe yer alan resimleri belirli boyuta ve konuma getirebilirsiniz.
Tek tek uğraşmanıza gerek kalmaz.
Değerleri aşağıdaki siteden CM to Point(Computer)'a göre değiştirebilirsiniz.
Kod'lardaki veriler (Point Computer verileridir)
1 Cm 0.75 point(Computer) ediyor.
http://www.translatorscafe.com
Kod:
Sub Resimboyut()
For NumSlide = 1 To ActivePresentation.Slides.Count
ActivePresentation.Slides(NumSlide).Select
For Each Picture In ActiveWindow.Selection.SlideRange.Shapes
Picture.Select
Picture.LockAspectRatio = msoFalse
Picture.Height = 311.81
Picture.Width = 500
Next
Next
End Sub
Kod:
Sub hizalama()
For NumSlide = 1 To ActivePresentation.Slides.Count
ActivePresentation.Slides(NumSlide).Select
For Each Picture In ActiveWindow.Selection.SlideRange.Shapes
Picture.Select
Picture.LockAspectRatio = msoFalse
Picture.Left = 109.984
Picture.Top = 114.236
Next
Next
End Sub
Son düzenleme: