Einfügen des Folientitels automatisch in das Notes-Handout (PowerPoint 2016)

334
Johanna

Ich möchte ein Handbuch aus einer PowerPoint-Präsentation erstellen, wobei die Informationen im Abschnitt Notizen Teil des Ausdrucks sind. Damit ich die Folientitel als Teil eines Inhaltsverzeichnisses formatieren kann, möchte ich, dass der Folientitel im Text und nicht nur als Teil des Folienbildes angezeigt wird.

Als Exportoptionen kann ich entweder Notizen unter Folien auswählen (der Folientitel ist jedoch nicht im Textformat), oder ich kann nur die Gliederung drucken (die Folienotizen sind jedoch nicht enthalten).

Im Notes-Master sehe ich ein Kopfzeilenfeld und habe versucht, einen Folientitel dort einzufügen, aber es scheint keine Möglichkeit zu geben, den Folientitel für jede Folie automatisch festzulegen. Das heißt, ich kann keine Variable für den Titel in das Feld Header einfügen.

Wenn ich in der Gliederungsansicht nachschaue, sehe ich den Notentext nicht.

Gibt es eine Möglichkeit, automatisch ein Handout zu erstellen, das sowohl die Gliederungsinformationen als auch den Notentext enthält?

0
Ich kenne keine Möglichkeit, wie Sie dies mit PPT tun können, da es aus der Box kommt, aber mit etwas VBA sollten Sie in der Lage sein, z. B. eine Textdatei zu erstellen, die Folientitel, Folientext und Notentext enthält. Ich habe keine vollständige Lösung vorbereitet, aber Sie können die meisten Kleinigkeiten, die Sie dazu benötigen, in VBA auf meiner PPT-FAQ-Seite finden: http://www.pptfaq.com Suchen Sie auf der Hauptseite nach Begriffen wie "Export" und "Text". Das bringt Sie zu den meisten richtigen Seiten. Steve Rindsberg vor 5 Jahren 0
Vielen Dank für die Antwort, @SteveRindsberg. Ich habe eigentlich bei PPTools angefangen und bin dann abgehört worden, um ihre Makros wie Thor und PPT nach HTML zu untersuchen! Wird doppelt zurück und versuchen Sie es erneut. Ich wollte nur sicherstellen, dass ich nichts grundlegenderes versäumte. Johanna vor 5 Jahren 0
Es tut mir leid, so ablenkend zu sein. ;-) Eigentlich könnte PPT2HTML * den Job auch erledigen; Es ist nicht wirklich ein HTML-Generator. Es extrahiert Zeug aus PPT und fügt es in spezielle Felder in einer Vorlagendatei ein, die normalerweise HTML ist, aber nicht sein muss. Steve Rindsberg vor 5 Jahren 0
Ein anderer Gedanke ... würden die Notizenausdrucke von PowerPoint die Aufgabe für Sie erledigen? WENN sie den Folientitel als Text irgendwo auf der Seite haben und zusätzlich die Folie als Bild anzeigen lassen? Steve Rindsberg vor 5 Jahren 0
Ja! Genau. In der Tat habe ich Ihr VBA-Tutorial durchlaufen, um mein Verständnis zu verbessern. Ich kann jetzt Folientitel identifizieren, habe jedoch nicht herausgefunden, wie sie auf die Notes-Seiten kopiert werden ... Johanna vor 5 Jahren 0
Siehe die Antwort, die ich unten hinzugefügt habe. Anstatt die Titelform zu kopieren, fügt sie ein neues Textfeld hinzu (damit Sie die Formatierung direkter steuern können). Steve Rindsberg vor 5 Jahren 0

1 Antwort auf die Frage

0
Steve Rindsberg

Dadurch wird der Titeltext jeder Folie aufgenommen und der Notizseite hinzugefügt. Ändern Sie nach Bedarf, um die Textformatierung / -position zu ändern.

Sub AddTitlesToNotesPages()  Dim oSld As Slide Dim oShp As Shape Dim sTitleText As String  For Each oSld In ActivePresentation.Slides  ' get the slide's title text sTitleText = GetTitleText(oSld)  ' add a text shape with the text to notes page ' placement is totally arbitrary; edit to suit Set oShp = oSld.NotesPage.Shapes.AddTextbox(msoTextOrientationHorizontal, _ 0, 0, 500, 100) With oShp.TextFrame.TextRange .Text = sTitleText ' modify other stuff as needed .Font.Name = "Arial" .Font.Color.RGB = RGB(0, 0, 0) ' black ' and so on End With Next ' Slide  End Sub  Function GetTitleText(oSld As Slide) As String ' Returns the title text for oSld if any, or "Slide xxx" if not Dim oShp As Shape Dim sTemp As String For Each oShp In oSld.Shapes If oShp.Type = msoPlaceholder Then If oShp.PlaceholderFormat.Type = ppPlaceholderCenterTitle Or oShp.PlaceholderFormat.Type = ppPlaceholderTitle Then sTemp = oShp.TextFrame.TextRange.Text End If End If Next  ' if we got this far and didn't find a slide title: If Len(sTemp) = 0 Then ' return the slide index number GetTitleText = "Slide " & CStr(oSld.SlideIndex) Else ' return the title GetTitleText = sTemp End If  End Function
Genial! Ich wurde aufgehängt, als ich den Texttitel in die Notizenform schieben wollte. Mir fiel nicht mal ein, eine separate Box zu machen. Außerdem verliere ich mich immer noch im Object Viewer und habe nicht gelernt, wann ppXXX oder msoXXX verwendet wird. Das bringt mich auf jeden Fall über eine große Hürde. Vielen Dank! Johanna vor 5 Jahren 0
Normalerweise würde ich normalerweise die ppXXX-Konstante verwenden, falls verfügbar. Ich bin froh, dass das geholfen hat. Steve Rindsberg vor 5 Jahren 0
Erwischt. Danke noch einmal. PPT bekommt immer noch das Beste von mir. Auch wenn der Titel in der Notes-Seitendarstellung angezeigt wird, wird er nicht mit Notizen ausgedruckt, wenn ich Exporte> Handouts erstellen> Notizen unter den Folien verwende. Ich gehe davon aus, dass das Textfeld nicht im Notes-Master (?) Angezeigt wird. Jetzt rumspielen ... Johanna vor 5 Jahren 0
Ah. Das Drucken der Notizseiten funktioniert wie erwartet. Leider versuche ich, sie in Word zu bringen. Ich arbeite noch daran ... Johanna vor 5 Jahren 0

Verwandte Probleme