Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Schriftart für automatisierte PPT
28.05.2021 17:11:10 Diana
NotSolved
28.05.2021 18:03:29 Gast80100
*****
Solved

Ansicht des Beitrags:
Von:
Diana
Datum:
28.05.2021 17:11:10
Views:
106
Rating: Antwort:
  Ja
Thema:
VBA Schriftart für automatisierte PPT

Hallo Zusammen,

ich habe keine Ahnung von VBA  ._.

Aber hab mir etwas aus YT abgeschaut und kopiert.

Ich hab einen Code, der automatisch PPT erzeugt, aus der Excel Daten ausließt und diese in die PPT slides befüllen kann.

Das funktioniert auch prima - nun hätte ich gerne das die Schriftarten/fonts usw. entweder a) 1:1 wie aus Excel übernommen werden oder b) ich das irgendwie anders in den Code einbinden kann.

Ich hab bemerkt das es leider nicht funktioniert wenn ich statt dem .Value es mit Font.Size = 5 z.B. ersetze

Dann kommt in der PPT leider nur False raus, habt ihr ne Idee?
So sieht es Derzeit aus:

 

 

 

Sub sheet1()

Dim pptPres As Presentation     'Die PowerPoint-Präsentation
Dim strPfad As String           'Speicherpfad und Ort der Vorlage
Dim strPPTX As String           'Name der Vorlage
Dim pptApp As Object

    strPfad = "C:\Users\DE116832\Desktop\"
    strPPTX = "test.pptx"
    pptVorLage = strPfad & strPPTX
    
    
    
    Set pptApp = New PowerPoint.Application
    
    pptApp.Presentations.Open Filename:=pptVorLage, untitled:=msoTrue
    
    Set pptPres = pptApp.ActivePresentation
    
    pptPres.Slides(1).Select
    
    
    pptPres.Slides(2).Shapes("text1").TextFrame.TextRange.Characters.Text = Range("text1").Value
    pptPres.Slides(2).Shapes("text2").TextFrame.TextRange.Characters.Text = Range("text2").Value
    pptPres.Slides(2).Shapes("text3").TextFrame.TextRange.Characters.Text = Range("text3").Value
    
      
    pptPres.SaveAs strPfad & Range("text1") & "_" & Range("text2") & ".pptx"
    
    pptPres.Close
    pptApp.Quit
    
    Set pptPres = Nothing
    Set pptApp = Nothing

End Sub
 


 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Schriftart für automatisierte PPT
28.05.2021 17:11:10 Diana
NotSolved
28.05.2021 18:03:29 Gast80100
*****
Solved