vba - que - ¿Cómo nombrar un objeto dentro de una diapositiva de PowerPoint?

que es un slide en power point

Question

Así que sé cómo nombrar un cuadro de texto, o un objeto similar en PowerPoint con VB, pero me preguntaba si había una forma de nombrar objetos a través de la cinta de opciones (PowerPoint 2007). Por ejemplo, si agrego un cuadro de texto en una diapositiva, ¿hay alguna manera de asignarle un nombre (algo así como la ventana de propiedades en el acceso, o el cuadro de texto en Excel 2003 en la parte superior izquierda donde puede ingresar el nombre) ?

Básicamente para que pueda referenciarlo en el código más tarde; sin tener que usar código para nombrar todos y cada uno de los objetos que agrego después del hecho. Tal vez una forma más fácil a través de la cinta de opciones?

Answer 1

Haga clic en Insertar -> Objeto -> Crear desde archivo -> Buscar.

Una vez que el archivo está seleccionado, elija la opción "Cambiar ícono" y podrá cambiar el nombre del archivo y cambiar el ícono si lo desea.

¡Espero que esto ayude!

Answer 2

Sí. Haga clic en el objeto (cuadro de texto, forma, etc.) para seleccionar el objeto y en las Herramientas de dibujo | Haga clic en la pestaña Formato , haga clic en el Panel de selección en el grupo Organizar . Desde allí, verá nombres de objetos: puede hacer doble clic (o presionar F2 ) en cualquier nombre y cambiarle el nombre. Al deseleccionarlo, se renombra. También puede acceder desde la pestaña Inicio -> Grupo de dibujo -> Organizar menú desplegable -> Panel de selección o presionando ALT + F10 .

Answer 3

Si bien la respuesta anterior es correcta, no recomendaría que cambies el nombre para confiar en el código.

Los nombres son difíciles. Ellos pueden cambiar Debería usar ShapeId y SlideId.

Especialmente tenga cuidado de cambiar el nombre de una forma programáticamente ya que PowerPoint se basa en el nombre y podría obstaculizar su funcionamiento regular.

Answer 4

ESTA NO ES UNA RESPUESTA A LA PREGUNTA ORIGINAL, ES UNA RESPUESTA A @ PREGUNTA DE Teddy EN LOS COMENTARIOS DE LA RESPUESTA DE @ Dudi

Aquí hay una manera de listar los identificadores en la presentación activa a la ventana inmediata (Ctrl + G) en el editor de VBA:

Sub ListAllShapes()

    Dim curSlide As Slide
    Dim curShape As Shape

    For Each curSlide In ActivePresentation.Slides
        Debug.Print curSlide.SlideID
        For Each curShape In curSlide.Shapes

                If curShape.TextFrame.HasText Then
                    Debug.Print curShape.Id
                End If

        Next curShape
    Next curSlide
End Sub