2008-09-24 28 views
16

Probablemente sea una pregunta muy estúpida pero no sé cómo cambiar el nombre de un objeto en PowerPoint ... Por ejemplo, todos mis gráficos se llaman por defecto "Gráfico 1", etc. ¿Podría alguien ayudarme con eso? ? Gracias!Renombrar objetos en PowerPoint

+1

duplicado posible de [Cómo nombrar un objeto dentro de una diapositiva de PowerPoint?] (Http://stackoverflow.com/questions/3074209/how-to-name-an-object-within-a-powerpoint- diapositiva) – alextansc

Respuesta

33

En PowerPoint 2007 puede hacerlo desde el panel de Selección.

Para mostrar el panel de Selección, haga clic en la pestaña Inicio en la cinta, luego haga clic en Organizar y luego en 'Panel de Selección ...' en la parte inferior. El panel de selección se abrirá a la derecha. (O presione CTRL + F10)

Para cambiar el nombre de un objeto, primero seleccione el objeto y luego haga doble clic en el nombre del objeto en el panel de Selección y podrá escribir el nuevo nombre del objeto.

+0

Lamentablemente tengo PowerPoint 2003 ... –

+0

Umh, no tengo PP 2003. Lo siento. –

+0

Esto me salvó la VIDA. ¿Por qué diablos está tan escondido? Cuando juegues con +10 animaciones y se llamen todos: group1, group2, etc. MS tiene que intensificar aquí. – Syska

0

Gracias por su ayuda, pero en realidad sólo estoy haciendo uso de VBA ...

ActiveWindow.Selection.ShapeRange(1).Name = "newname" 

Saludos

1

(Esta respuesta supone que no son más asignando nombres más significativos durante el desarrollo, por lo que su otro código que hace referencia a los objetos puede ser más legible).

Coloque el siguiente código en un sub, luego ejecútelo desde la diapositiva en cuestión. Cada forma se seleccionará sucesivamente para que pueda ver a qué forma se hace referencia. Un cuadro de entrada le dirá el nombre actual y le pedirá un nombre nuevo. Si cancela o acepta una entrada de longitud cero, el nombre antiguo permanecerá en su lugar. No hay validación de entrada de nombre en este código, así que asegúrese de escribir solo nombres válidos. Después de ejecutarlo una vez, puede ejecutarlo nuevamente solo para verificar que los nombres que escribió en la primera ronda se aplicaron al objeto que pretendía.

El ciclo cubrirá todos los objetos en la diapositiva actual, por lo que si desea procesar varias diapositivas, debe ejecutar esto por separado en cada diapositiva. Se consideran todos los objetos en la diapositiva: título, objetos de dibujo, grupos, imágenes incrustadas, ecuaciones, etc. etc. - simplemente no escriba un nuevo nombre para los objetos que no le interesan.

Después de que su desarrollo haya finalizado, best hide (Private Sub) o borre este código, para que sus usuarios no cambien los nombres de los objetos por error.

Dim s As Integer, NewName As String 

With ActiveWindow.Selection.SlideRange 
    For s = 1 To .Shapes.Count 
     .Shapes(s).Select ' So you can see the object in question 
     NewName = InputBox(.Shapes(s).Name) ' Tell what current name it is and ask for new name 
     If Len(NewName) > 0 Then .Shapes(s).Name = NewName ' If you typed a new name, apply it 
    Next s ' 1 To .Shapes.Count 
End With ' ActiveWindow.Selection.SlideRange