vba to align picture centre and middle on powerpoint slide

[cjcass]

Hi,
I have some code below that takes a range in Excel and copies it as a picture into Powerpoint. The bottom section of the code sizes and positions the picture on the ppt slide. How can I change the code so the picture is aligned centre and middle on the slide?
Hope you can help, many thanks.


Dim Shp As Object
Dim sld As Object
Dim eff As Object
Const msoAnimEffectFade As Long = 10
Const msoAnimTriggerWithPrevious As Long = 2
Set PPApp = GetObject(, "Powerpoint.Application")
Set PPPres = PPApp.ActivePresentation

Range("G20:O20").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
Set sld = PPPres.Slides("Yourself")
Set Shp = sld.Shapes.Paste.Item(1)

Set eff = sld.TimeLine.MainSequence.AddEffect _
(Shape:=Shp, effectid:=msoAnimEffectFade, Trigger:=msoAnimTriggerWithPrevious) 'effect details

eff.Timing.Duration = 0.5
eff.Timing.TriggerDelayTime = 0

With Shp
.LockAspectRatio = msoTrue
.ScaleHeight 0.75, msoTrue
.Left = 21
.Top = 116
.ZOrder msoSendToBack

End With
End Sub

 

[cjcass]

ok, have sussed it...

With Shp
.LockAspectRatio = msoTrue
.ScaleHeight 0.75, msoTrue
sngDefaultSlideWidth = PPPres.PageSetup.SlideWidth
sngDefaultSlideHeight = PPPres.PageSetup.SlideHeight
.Left = (sngDefaultSlideWidth - .Width) / 2
.Top = (sngDefaultSlideHeight - .Height) / 2
.ZOrder msoSendToBack
End With