Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Textbox in PowerPoint

Forumthread: Textbox in PowerPoint

Textbox in PowerPoint
06.10.2014 20:45:13
Chris
Hallo liebe Forumsmitglieder,
Ich möchte ein das aktuelle Datum auf die ERSTE Seite eines bestehenden PowerPoint Templates setzen. Bei Kompilieren des Codes sagt er nun Methode oder Datentype nicht gefunden und markiert das Active Window. Ich würde dies auch gerne weglassen aber weiss nicht wie. Ich möchte einfach nur das erste Slide ansprechen...
Danke und schöne Grüße
Chris

'Set Report Date on cover slide
ppt.ActiveWindow.Selection.SlideRange(1).Shapes
With .Shapes.AddTextbox(msoTextOrientationHorizontal, 1.2 * 28.3527, 13.81 * 28. _
3527, 2, 2)
.TextFrame.TextRange.Font.Color = vbWhite
.TextFrame.TextRange.Font.Size = 16
.TextFrame.TextRange.Font.Bold = msoCTrue
.TextFrame.AutoSize = ppAutoSizeNone
.TextFrame.TextRange.Text = Date
.height = 0.94 * 28.3527
.width = 13.7 * 28.3527
End With

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Falscher Link - hier der Richtige... :-)
07.10.2014 20:02:06
Chris
Danke hat funktioniert! Mit folgender Anweisung:

Set App_doc = ppt.Slides(1)
With App_doc.Shapes.AddTextbox(msoTextOrientationHorizontal, 1.2 * 28.3527, 13.81 *  _
28.3527, 2, 2)
.TextFrame.TextRange.Font.Color = vbWhite
.TextFrame.TextRange.Font.Size = 16
.TextFrame.TextRange.Font.Bold = msoCTrue
.TextFrame.AutoSize = ppAutoSizeNone
.TextFrame.TextRange.Text = Date
.height = 0.94 * 28.3527
.width = 13.7 * 28.3527
End With
Die Variable hätte man sich natürlich auch sparen können :)
Anzeige
Anzeige
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18