2008-09-24 16 views
16

Probablement une question très stupide mais je ne peux pas figurer comment renommer un objet dans PowerPoint .. Par exemple, tous mes graphiques sont appelés par défaut "Graph 1" etc. Quelqu'un pourrait m'aider sur ce ? Merci!Renommer des objets dans PowerPoint

+1

double possible de [Comment nommer un objet dans une diapositive PowerPoint?] (Http://stackoverflow.com/questions/3074209/how-to-name-an-object-within-a-powerpoint- diapo) – alextansc

Répondre

33

Dans PowerPoint 2007, vous pouvez le faire à partir du volet Sélection.

Pour afficher le volet Sélection, cliquez sur l'onglet Accueil dans le ruban, puis cliquez sur Réorganiser, puis sur 'Volet de sélection ...' en bas. Le volet Sélection s'ouvre sur la droite. (Ou appuyez sur CTRL + F10)

Pour renommer un objet, sélectionnez d'abord l'objet, puis double-cliquez sur le nom de l'objet dans le volet Sélection et saisissez le nouveau nom de l'objet.

+0

Malheureusement, j'ai PowerPoint 2003 ... –

+0

Umh, ne pas avoir PP 2003. Désolé. –

+0

Cela a sauvé ma vie. Pourquoi diable est-ce si caché? Lorsque vous jouez avec +10 animations et ils sont tous appelés: groupe1, groupe2, etc MS besoin de monter ici. – Syska

0

Merci pour votre aide, mais en fait je suis juste en train de faire à l'aide de VBA ...

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

Vive

1

(Cette réponse suppose que vous êtes simplement attribuer des noms plus significatifs au cours du développement, de sorte que votre autre code que les références les objets peuvent être plus lisibles).

Placez le code ci-dessous dans un sous-marin, puis exécutez-le à partir de la diapositive en question. Chaque forme sera sélectionnée à tour de rôle, de sorte que vous pouvez voir quelle forme est référencée. Une boîte de saisie vous indiquera le nom actuel et vous demandera un nouveau nom. Si vous annulez ou validez une entrée de longueur nulle, l'ancien nom restera en place. Il n'y a pas de validation d'entrée de nom dans ce code, alors assurez-vous de ne taper que des noms valides. Après l'avoir exécuté une fois, vous pouvez l'exécuter à nouveau juste pour vérifier que les noms que vous avez tapés au premier tour ont été appliqués à l'objet que vous aviez prévu.

La boucle couvrira tous les objets de la diapositive en cours, donc si vous souhaitez traiter plusieurs diapositives, vous devez l'exécuter séparément sur chaque diapositive. Chaque objet sur la diapositive est considéré: titre, objets dessinés, groupes, images incorporées, équations, etc. etc. - ne tapez pas un nouveau nom pour les objets qui ne vous intéressent pas. Une fois votre développement terminé, mieux masquer (Private Sub) ou effacer ce code, vos utilisateurs ne changeront pas les noms d'objet par erreur.

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 
Questions connexes