save slide as a jpeg of certain size

Hi All

I am trying to save a powerpoint slide as a jpeg for use in a web page, is there a way to do a save as jpeg but make the size of the image smaller (i.e. only fit half the screen instead of all of it)

thanks

gibbo

I don't think you can do it directly. Can you use .wmf instead of .jpg (it's much smaller)?

You should be able to use the export method Change the sizes to suit

eg

Code:

---

Sub dothis()
With ActivePresentation.Slides(1)
.Export "C:\Documents and Settings\john\Desktop\test.jpg" _
, FilterName:="JPG", ScaleWidth:=300, ScaleHeight:=200
End With
End Sub

---