Powerpoint: Wie füge ich eine Dokumenteigenschaft ("Feld") in die Folie ein?

Während Word das kann, kann PowerPoint dies nicht. AFAIK können Sie Dokumenteigenschaften in PPT haben, aber Sie können sie nicht auf einer Folie einfügen. Das einzige für PowerPoint verfügbare Aktualisierungsfeld ist das Datum und die Foliennummer. In der VBA könnte dies jedoch zu einem Workaround führen. Sie können dies bei Stackoverflow fragen, um Ihre Chance zu nutzen.

Ich habe gerade eine Unterroutine geschrieben, um benannte Eigenschaften in markierte Textobjekte auf allen Folien einzufügen.

So legen Sie eine Dateieigenschaft auf Folien fest. Erstellen Sie ein Textfeld für die Zeichenfolge. Setzen Sie in den Eigenschaften / Alt Text den Namen der Eigenschaft in eckige Klammern.

Führen Sie dann das Makro aus updateProperties().

dh [title]- Ermöglicht die Aktualisierung des Dokumenttitels auf mehreren

Zwei spezielle Tags wurden geschrieben:

Kopieren Sie die Dokumenteigenschaften in alle Folien „(c) 2013, P.Boothroyd für NIS Oskemen Dim processPage As Slide  Sub updateProperties () Seite dimmen als Folie Dim propname As String 'alle Folien in der aktiven Präsentation (Dokument) analysieren Für jede processPage in Application.ActivePresentation.Slides 'alle Elemente der Seite nach Textfeld mit dem Feld "altText / title" mit "[" scannen Für jedes Objekt in processPage.Shapes Wenn links (obj.Title, 1) = "[" Dann Dim sStart, sEnd As Integer 'Eigenschaft aus eckigen Klammern extrahieren sStart = 2 sEnd = InStr (2, obj.Title, "]") propname = Trim (Mid (obj.Title, sStart, sEnd - 2)) Wenn obj.Type = msoTextBox Dann 'Setzen Sie das Textfeld auf den gewünschten Wert obj.TextFrame.TextRange.Text = getProperty (propname, obj.TextFrame.TextRange.Text) Ende wenn Ende wenn Weiter 'obj Nächste Seite End Sub  'die benannte Dokumenteigenschaft abrufen (mit optionaler Standardeinstellung) Funktion getProperty (propname, Optional def As String) As String 'Eigenschaft, die den Standardwert zugewiesen hat getProperty = def Dim fand As Boolean gefunden = falsch propname = LCase (propname)  Das Copyright ist eine generierte Eigenschaft Wenn propname = "copyright" Dann Dim Autor As String Dim Unternehmen As String Dim yearFrom As String Dim yearTo As String  'Holen Sie sich alle geeigneten Variablen author = getProperty ("author", "") company = getProperty ("company", "") yearFrom = getProperty ("erstellt", "") yearTo = Format (Now (), "JJJJ")  'Copyright-Symbol einfügen getProperty = Chr (169) + ""  'Jahresangabe für Urheberrechtsvermerk Wenn Jahr von Jahr bis Dann getProperty = getProperty + yearFrom + "-" Ende wenn getProperty = getProperty + yearTo  'füge den Autor hinzu getProperty = getProperty + "" + Autor  'Trennzeichen für Autor / Firma hinzufügen, wenn beide vorhanden sind Wenn Len (Autor)> 0 und Len (Unternehmen)> 0 Dann getProperty = getProperty & "," Ende wenn getProperty = getProperty & company  'verarbeitet, also den Wert zurückgeben gefunden = wahr Ende wenn  'Legen Sie die Foliennummer in das Dokument ein Wenn propname = "page" Dann getProperty = processPage.SlideNumber gefunden = wahr Ende wenn  'Wenn der generierte Name erstellt wurde, wird der Wert zurückgegeben Wenn gefunden, dann GoTo ret  'nach Standard-MS-Eigenschaften (Datei) des genannten Werts suchen Für jedes p in Application.ActivePresentation.BuiltInDocumentProperties Wenn LCase (p.Name) = propname Dann getProperty = p.Value gefunden = wahr Beenden Sie für Ende wenn Weiter 'p  'nach angepassten Eigenschaften des angegebenen Werts suchen Wenn gefunden, dann GoTo ret Für jedes p In Application.ActivePresentation.CustomDocumentProperties Wenn LCase (p.Name) = propname Dann getProperty = p.Value gefunden = wahr Beenden Sie für Ende wenn Weiter 'p ret: Funktion beenden 

Eine Problemumgehung besteht darin, benutzerdefinierte Eigenschaften zu verwenden, die Sie leicht "Gehe zu" (keine Folien durchgehen) müssen.

Von http://msdn.itags.org/powerpoint/4426/ :

1. Wählen Sie die Form oder den Text aus, für den Sie ein Lesezeichen festlegen möchten.
2. Wählen Sie Datei | Eigenschaften ... und aktivieren Sie die Registerkarte Benutzerdefiniert.
3. Geben Sie einen Namen für das Lesezeichen ein.
4. Klicken Sie auf "Link zum Inhalt". Der Wert, der in der nebenstehenden Dropdown-Liste aufgeführt ist, wenn Sie auf "Link to content" klicken, ist ein Verweis auf Ihre Auswahl.
5. Klicken Sie auf Hinzufügen.
6. Klicken Sie auf OK, um das Dialogfeld Eigenschaften zu schließen.

Nachdem Sie ein Lesezeichen erstellt haben, können Sie wie folgt darauf
zugreifen : 1. Wählen Sie Bearbeiten | Gehe zu Eigenschaft ...
2. Klicken Sie im Dialogfeld auf den Namen der Eigenschaft (dies ist der Name, den Sie dem Lesezeichen gegeben haben).
3. Klicken Sie auf Gehe zu.

Das Dialogfeld "Gehe zu" enthält eine Liste von Lesezeichen, auf die Sie doppelklicken können, und Sie gelangen zu Ihren bevorzugten Textfeldern, die Sie bearbeiten und einfügen können.

Dies können Sie am einfachsten in Powerpoint (zumindest für Werte, die auf jeder Folie angezeigt werden) tun, indem Sie den Folienmaster bearbeiten. Geben Sie den Namen des Autors dort ein.

(Ein möglicher Grund dafür, dass Word Sie und keiner der anderen das zulässt, ist, dass die verschiedenen Teams bei Microsoft selten miteinander sprechen ...)