Diagramm/Chart per VBA in PowerPoint positionieren
14.11.2017 09:49:29
Karsten
ich möchte aus Excel zwei Diagramme per VBA nach PowerPoint kopieren -> die beiden Diagramme werden bereits als Grafik auf die entsprechende Folie kopiert, aber nun möchte ich sie noch gern positionieren...
Leider sind meine VBA-Kenntnisse gleich null und ich finde keine Lösung -> für jemanden mit VBA-Kenntnissen bestimmt kein großes Thema, oder? ;-)
Sub Test()
' Test Makro
' Tastenkombination: Strg+Umschalt+X
Dim strPOTX As String
Dim strPfad As String
Dim pptApp As Object
Dim pptPres As Presentation
strPfad = "D:\Documents\1.0 Tool-Werkstatt\2017\Präsentation 2018\"
strPOTX = "Master_2018_20171023_v1.0.potx"
Set pptApp = New PowerPoint.Application
pptVorlage = strPfad & strPOTX
pptApp.Presentations.Open Filename:=pptVorlage, untitled:=msoTrue
Set pptPres = pptApp.ActivePresentation
pptPres.Slides(1).Select
pptPres.Slides(1).Shapes("Untertitelbox").TextFrame.TextRange.Characters.Text = Range(" _
rng_Zeitraum").Value
Sheets("Tabelle2").ChartObjects("Dia_Gesamtvolumen").CopyPicture
pptPres.Slides(2).Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile
Sheets("Tabelle2").ChartObjects("Dia_Anzahl").CopyPicture
pptPres.Slides(2).Shapes.PasteSpecial DataType:=ppPasteEnhancedMetafile
pptPres.SaveAs strPfad & Range("rng_Thema") & "_" & Range("rng_Datum") & ".pptx"
pptPres.Close
pptApp.Quit
Set pptPres = Nothing
Set pptApp = Nothing
End Sub
Vorab schon einmal herzlichen Dank!