Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema Frame
BildScreenshot zu Frame Frame-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema Label
BildScreenshot zu Label Label-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Textbox in PowerPoint

Betrifft: Textbox in PowerPoint von: Chris
Geschrieben am: 06.10.2014 18:45:13

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

  

Betrifft: Im folgenden... von: Case
Geschrieben am: 07.10.2014 07:19:09

Hallo, :-)

... Beispiel siehst Du wie das erste Slide auf eine Objektvariable gelegt wird:

PowerPoint - bestehende Datei - vorhandene TextBoxen befüllen...

Mit der Codezeile:

Set objPPDoc = objPPPres.Slides(1)
Servus
Case



  

Betrifft: Falscher Link - hier der Richtige... :-) von: Case
Geschrieben am: 07.10.2014 07:32:35

Hallo, :-)

das war der falsche Link. :-(

Jetzt aber:

PowerPoint - bestehende Datei - vorhandene TextBoxen befüllen...

Servus
Case



  

Betrifft: AW: Falscher Link - hier der Richtige... :-) von: Chris
Geschrieben am: 07.10.2014 18:02:06

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 :)


 

Beiträge aus den Excel-Beispielen zum Thema "Textbox in PowerPoint"