Edit the name of a shape
Problem
You want to specify the name of a shape so you can locate it easily later.
Solution
Select the shape then run this code:
Sub NameIt()
Dim sResponse As String
With ActiveWindow.Selection.ShapeRange(1)
sResponse = InputBox("Rename this shape to ...", "Rename Shape", .Name)
Select Case sResponse
' blank names not allowed
Case Is = ""
Exit Sub
' no change?
Case Is = .Name
Exit Sub
Case Else
On Error Resume Next
.Name = sResponse
If Err.Number <> 0 Then
MsgBox "Unable to rename this shape"
End If
End Select
End With
End Sub
See How do I use VBA code in PowerPoint? to learn how to use this example code.
Search terms:edit,shape,name