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
|