ms-office - que - mover objetos arrastrando en power point

Renombrar objetos en PowerPoint

Question

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!

Answer 1

(Esta respuesta supone que simplemente está 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 código debajo de 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.

Una vez finalizado el desarrollo, best hide (Private Sub) o borre este código, para que los 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

Answer 2

Gracias por su ayuda, pero en realidad solo lo hago usando VBA ...

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

Aclamaciones

Answer 3

En PowerPoint 2007 puede hacer esto 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.