Office学习社区 › PowerPoint之家 › 谁知道ppt中文本框的名称是怎么命名和修改的？？？

myth25 发表于 2016-4-12 12:29:46

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

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

xujingblue 发表于 2016-4-12 16:15:30

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

查看完整版本: 谁知道ppt中文本框的名称是怎么命名和修改的？？？