finding object name

  • Thread starter Thread starter Inah
  • Start date Start date
I

Inah

How do you find out the object name? Please see my
previous post on Jan 15 8:53 AM, subject = Large image
scrolling. I'm trying to follow B's suggestion, but I got
stuck on the second step. Thanks.
 
Copy this macro into your existing module, select your object on a slide,
click "Tools", "Macro", "Macros", highlight the "NameShape" macro, then
click "Run".

Here is the macro:

=============

Sub NameShape()
Dim Name$
On Error GoTo AbortNameShape

If ActiveWindow.Selection.ShapeRange.Count = 0 Then
MsgBox "No Shapes Selected"
Exit Sub
End If
Name$ = ActiveWindow.Selection.ShapeRange(1).Name

Name$ = InputBox$("Give this shape a name", "Shape Name", Name$)

If Name$ <> "" Then
ActiveWindow.Selection.ShapeRange(1).Name = Name$
End If
Exit Sub

AbortNameShape:
MsgBox Err.Description

End Sub

============

Bill Foley
www.pttinc.com
 
Back
Top