XLS-Tabelle via VBA in PPT (mit Symbolsätze)
07.10.2019 09:16:30
Dome
Habe eine Datentabelle mit bedingter Formatierung (Symbolsätze), welche ich via VBA in PPT schreibe.
Das klappt soweit alles bestens (siehe Code unten), mit Ausnahme dessen, dass ich die Tabelle nicht analog Diagramm an einem bestimmten Ort einfügen kann.
Wie kann ich das lösen?
Sub create_powerpoint()
Dim pptApp As Object
Dim chtObj As Object
Dim pptSlide As Slide
Dim pptPres As Presentation
Dim strPfad As String
Dim strPOTX As String
strPfad = "NamePFAD\"
strPOTX = "NameDATEI.potx"
Set pptApp = New PowerPoint.Application
pptVorlage = strPfad & strPOTX
pptApp.Presentations.Open Filename:=pptVorlage, untitled:=msoTrue
Set pptPres = pptApp.ActivePresentation
'Einfügen Tabelle
ThisWorkbook.Worksheets("test").Range("B2:F6").Copy
Set pptSlide = pptApp.ActivePresentation.Slides(1)
pptSlide.Shapes.PasteSpecial ppPasteEnhancedMetafile
'Einfügen Diagramm
ThisWorkbook.Worksheets("test").Range("B13:F27").Copy
Set pptSlide = pptApp.ActivePresentation.Slides(2)
Set shp = pptSlide.Shapes.Paste
With shp
.Top = 145
.Left = 35
.Height = 201
.Width = 437
End With
pptPres.SaveAs strPfad & "test.pptx"
pptPres.Close
pptApp.Quit
Set pptPres = Nothing
Set pptApp = Nothing
End Sub
https://www.herber.de/bbs/user/132368.xlsx
Besten Dank für Eure Inputs.
LG
Dome