Question Comment nommer un objet dans une diapositive PowerPoint?


Donc, je sais comment nommer une zone de texte, ou un objet similaire dans PowerPoint avec VB, mais je me demandais s'il y avait un moyen de nommer des objets via le ruban (PowerPoint 2007). Par exemple, si j'ajoute une zone de texte sur une diapositive, existe-t-il un moyen de lui attribuer un nom (un peu comme la fenêtre des propriétés dans Access ou la zone de texte d'Excel 2003 située en haut à gauche où vous pouvez entrer le nom) ?

Fondamentalement, je peux le référencer dans le code plus tard; sans avoir à utiliser le code pour nommer chaque objet que j'ajoute après le fait. Peut-être un moyen plus facile à travers le ruban?


32
2018-06-19 03:34


origine


Réponses:


Oui. Cliquez sur l'objet (zone de texte, forme, etc.) pour sélectionner l'objet et dans le Outils de dessin | Format onglet, cliquez sur Volet de sélection dans le Organiser groupe. De là, vous verrez les noms des objets - vous pouvez double-cliquer (ou appuyer sur F2) sur n'importe quel nom et le renommer. En le désélectionnant, il devient renommé. Vous pouvez aussi y accéder depuis le Accueil onglet -> Dessin groupe -> Organiser menu déroulant -> Sélection volet ou en appuyant sur ALT + F10.


77
2018-06-19 06:05



Bien que la réponse ci-dessus soit correcte, je ne vous recommanderais pas de changer le nom pour pouvoir vous y fier dans le code.

Les noms sont délicats. Ils peuvent changer. Vous devez utiliser ShapeId et SlideId.

Attention surtout à changer le nom d'une forme par programmation puisque PowerPoint s'appuie sur le nom et que cela peut entraver son fonctionnement normal.


4
2018-06-21 21:40



CECI N'EST PAS UNE RÉPONSE À LA QUESTION ORIGINALE, C'EST UNE RÉPONSE À LA QUESTION DE @ Teddy DANS LES COMMENTAIRES DE LA RÉPONSE DE @ Dudi

Voici un moyen de lister les identifiants dans 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

2
2017-11-26 12:27



Cliquez sur Insérer -> Objet-> Créer depuis un fichier -> Parcourir.

Une fois le fichier sélectionné, choisissez l'option "Changer d'icône" et vous pourrez renommer le fichier et changer l'icône si vous le souhaitez.

J'espère que cela t'aides!


0
2017-11-09 11:28