Umbenennen von Objekten in PowerPoint

Question

Wahrscheinlich eine sehr dumme Frage, aber ich kann mir nicht vorstellen, wie man ein Objekt in PowerPoint umbenennt. Zum Beispiel werden alle meine Graphen standardmäßig "Graph 1" usw. Könnte mir jemand dabei helfen ? Danke!

Answer 1

In PowerPoint 2007 können Sie dies aus dem Auswahlbereich tun.

Um den Auswahlbereich anzuzeigen, klicken Sie auf die Registerkarte Start in der Multifunktionsleiste und dann auf Anordnen und dann auf 'Auswahlbereich ...' unten. Der Auswahlbereich wird auf der rechten Seite geöffnet. (Oder drücken Sie STRG + F10)

Um ein Objekt umzubenennen, wählen Sie zuerst das Objekt aus und doppelklicken Sie dann auf den Objektnamen im Auswahlbereich und Sie können den neuen Objektnamen eingeben.

Answer 2

Vielen Dank für Ihre Hilfe, aber eigentlich bin ich nur mit VBA zu tun ...

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

Prost

Answer 3

(Diese Antwort setzt voraus, Sie sind nur sinnvollere Namen während der Entwicklung, so dass Ihr anderen Code zuweisen das verweist auf die Objekte können lesbarer sein).

Fügen Sie den folgenden Code in ein Sub ein und führen Sie ihn dann von der betreffenden Folie aus. Jede Form wird nacheinander ausgewählt, sodass Sie sehen können, auf welche Form Bezug genommen wird. Ein Eingabefeld informiert Sie über den aktuellen Namen und fragt Sie nach einem neuen Namen. Wenn Sie eine Eingabe mit der Länge Null abbrechen oder OK, bleibt der alte Name erhalten. In diesem Code gibt es keine Validierung des Namenseintrags. Stellen Sie daher sicher, dass Sie nur gültige Namen eingeben. Nachdem Sie es einmal ausgeführt haben, können Sie es erneut ausführen, um zu überprüfen, ob die Namen, die Sie in der ersten Runde eingegeben haben, auf das gewünschte Objekt angewendet wurden.

Die Schleife deckt alle Objekte auf der aktuellen Folie ab. Wenn Sie also mehrere Folien bearbeiten möchten, müssen Sie diese separat auf jeder Folie ausführen. Jedes Objekt auf der Folie wird berücksichtigt: Titel, Zeichnungsobjekte, Gruppen, eingebettete Bilder, Gleichungen usw. - geben Sie einfach keinen neuen Namen für Objekte ein, die Ihnen egal sind.

Nachdem Ihre Entwicklung abgeschlossen ist, verstecken Sie (Private Sub) oder löschen Sie diesen Code, damit Ihre Benutzer die Objektnamen nicht versehentlich ändern.

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