After testing found that:

Set PPSlide = PPPres.Slides.Add(SlideCount + 1, ppLayoutTitleOnly)
<-- this instruction can not be implement by Powerpoint 2007

..Shapes.PasteSpecial(Link:=True).Select <-- this cause bugs

Is there anyway to update these code to compatible with office 2007??