Hey !

I have a vba script below. It is working fine but how can i change the size of the pasted picture in power point ?

Please can anybody help me to change the code.

Sub export_to_ppt2() 'In tools Refrence add microsoft outlook
Dim PPAPP As PowerPoint.Application
Dim PPPres As PowerPoint.Presentation
Dim PPSlide As PowerPoint.Slide
Dim SlideCount As Integer
Dim shptbl As Table
Set PPAPP = New PowerPoint.Application
PPAPP.Visible = True
'create new ppt:
Set PPPres = PPAPP.Presentations.Add
'add some slides:
For ii = 1 To 10
PPPres.Slides.Add PPPres.Slides.Count + 1, ppLayoutBlank
Next ii
PasteRng PPPres, 1, Range("Rang1")
PasteRng PPPres, 2, Range("Rang2")
PasteRng PPPres, 3, Range("Rang3")
Set PPSlide = Nothing
Set PPPres = Nothing
Set PPAPP = Nothing
End Sub

Sub PasteRng(Pres, SlideNo, Rng As Range)
Rng.Copy ' copy the range
Pres.Application.ActiveWindow.View.GotoSlide SlideNo 'PPSlide.SlideIndex ' activate the slide no
Pres.Application.ActiveWindow.View.PasteSpecial ppPasteOLEObject, msoFalse ' paste using pastespecial method
End Sub