You can do this just as you would any other shape:

Select it then run something like this:

Sub StituteANewName()
  With ActiveWindow.Selection.ShapeRange(1)
      .Name = "Whatever you like"
  End With
End Sub

-----------------------------------------
Steve Rindsberg, PPT MVP
PPT FAQ:  www.pptfaq.com
PPTools:  www.pptools.com
================================================