Comment nommer un objet dans une diapositive PowerPoint?

StackOverflow https://stackoverflow.com/questions/3074209

  •  28-09-2019
  •  | 
  •  

Question

Je sais comment nommer une zone de texte ou un objet semblable dans PowerPoint avec VB, mais je me demandais s'il y avait un moyen d'objets nom à travers le ruban (PowerPoint 2007). Par exemple, si j'ajouter une zone de texte sur une diapositive, est-il possible de lui attribuer un nom (un peu comme la fenêtre des propriétés de l'accès ou la zone de texte dans Excel 2003 sur le côté supérieur gauche où vous pouvez saisir le nom) ?

En gros donc je peux faire référence au code plus tard; sans avoir à utiliser le code pour nommer chaque objet i ajouter après le fait. Peut-être un moyen plus facile par le ruban?

Était-ce utile?

La solution

Oui. Cliquez sur l'objet (zone de texte, forme, etc.) pour sélectionner l'objet et dans les Outils de dessin | Format , cliquez sur volet Sélection Réorganiser groupe . De là, vous verrez les noms des objets - vous pouvez double-cliquer sur (ou appuyez sur F2 ) sur le nom et le renommer. En décochant, il devient renommé. Vous pouvez également accéder à ce à partir du Accueil -> Dessin Groupe -> Réorganiser déroulant -> Sélection volet ou en appuyant sur ALT + F10 .

Autres conseils

Sélectionnez l'objet -> Format -> Volet Sélection -> Double-cliquez pour modifier le nom

entrer image description ici

Alors que la réponse ci-dessus est juste que je ne vous conseille pas de changer le nom afin de l'invoquer dans le code.

Les noms sont difficiles. Ils peuvent changer. Vous devez utiliser le ShapeID et SlideId.

Surtout méfiez-vous de changer le nom d'une forme depuis PowerPoint par programme repose sur le nom et pourrait nuire à son fonctionnement régulier.

C'EST PAS UNE REPONSE A LA QUESTION ORIGINAL, IL EST UNE REPONSE A @ QUESTION EN Teddy @ RÉPONSE DE LA Dudi EST COMMENTAIRES

Voici un moyen de la liste d'identification de la présentation active à la fenêtre immédiate (Ctrl + G) dans l'éditeur 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

Cliquez sur Insertion -> Object-> Créer à partir du fichier -.> Parcourir

Une fois que le fichier est sélectionné, choisissez l'option « Changer l'icône » et vous serez en mesure de renommer le fichier et changer l'icône si vous le souhaitez.

Hope this helps!

Licencié sous: CC-BY-SA avec attribution
Non affilié à StackOverflow
scroll top