谁知道ppt中文本框的名称是怎么命名和修改的？？？

myth25

我在vb代码shapes("")中需要引用ppt文本框的名，谁知道ppt中文本框(不是控件)的名称是怎么命名和修改的？？？

xujingblue

Sub Name()
    On Error GoTo AbortNameShape
    Dim Name$
    If ActiveWindow.Selection.ShapeRange.Count = 1 Then
        Name$ = ActiveWindow.Selection.ShapeRange(1).Name
        Name$ = InputBox$("请给这个图形命名", "Shape Name", Name$)
        If Name$ <> "" Then
            ActiveWindow.Selection.ShapeRange(1).Name = Name$
        End If
    Else
        MsgBox "Only 1 Shape is allowed to be selected"
        Exit Sub
    End If
    Exit Sub
AbortNameShape:
    MsgBox "没有选择图形"
End Sub