# VBA on PPT HomeKey EndKey

I have two simple macros in MS Word 2010:

Sub Home()
' Bound to C-a :)
Selection.HomeKey Unit:=wdLine
End Sub

Sub End()
' Bound to C-e :)
Selection.EndKey Unit:=wdLine
End Sub


in the spirit of this old post.

Is there any way of having this type of functionality on PPT? I’ve done a fair amount of VBA on Excel but close to 0 on PPT and can’t figure this out. I was trying the following:

Sub Home()
Set Parent = ActiveWindow.Selection.Parent
Start = ActiveWindow.Selection.TextRange.Text = "changed"
Line = 0
e = 0
Do While (e < Start)
Line = Line + 1
e = e + Parent.TextForm.Lines(e, 1).Length
Loop

->Parent.TextForm.Lines(e, 1).Select

End Sub


I get an error on the indicated line. Is there a simpler (i.e., single command like in DOC) way to accomplish this.