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.

Leave a Reply