Hey Markster,

Untested but something like this might work:

[VBA] Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
PPSLide.Shapes.Paste.Select
PPApp.ActiveWindow.Selection.ShapeRange.Height = 400
[/VBA]

You will no doubt have to alter the last row to suit your needs. HTH