Einfügen Tabelle mit editierbaren Zellen aus Excel in Powerpoint mit VBA

Question

ich einige VBA haben, dass successdfully Kopien Zellendaten aus Excel und Pasten in einem bestimmten Powerpoint-Folie einer bestimmten Vorlage.

jedoch mit dem eingefügten Objekt kann ich wähle nicht einzelne Zellen und Format wie nötig. Ich nehme an, dies hat damit zu tun, wie der Pasten-Typ funktioniert - Was müsste ich im VBA-Code ändern, um es einzufügen, damit ich den Inhalt der Zellen manipulieren kann?

Wenn ich einige Zellen manuell in Excel kopieren und dann manuell einfügen spezielle "Keep Source Formatierung (K)" einmal in PowerPoint, bekomme ich eine bearbeitbare Tabelle, ich kann Zellenabstand ändern, neue Zeilen einfügen usw. Wenn ich es kann es manuell, sicherlich kann es mit VBA getan werden?

Hier ist mein Code, der die Paste funktioniert:

'Opens a PowerPoint Document from Excel 

Dim PPapp As PowerPoint.Application, PPpres As PowerPoint.Presentation, PPslide As PowerPoint.Slide 
Dim XLws As Worksheet 

    Set XLws = ActiveSheet 
    Set PPapp = New PowerPoint.Application 
    Set PPpres = PPapp.Presentations.Open("C:\Users\Colin\Dropbox (Edge45)\Edge45 Team Folder\Edge45 Company Documents\Templates\Powerpoint Templates\Edge45 Audit Template Macro.potm", Untitled:=msoTrue) 
    PPapp.Visible = True 
    Set PPslide = PPpres.Slides(2) 
    XLws.Range("A1:D16").Copy 
    PPslide.Shapes.PasteSpecial DataType:=ppPasteOLEObject, Link:=msoFalse 
    Application.CutCopyMode = False 

Answer 1

Wenn Sie die Zeile ändern:

PPslide.Shapes.PasteSpecial DataType:=ppPasteOLEObject, Link:=msoFalse 

zu

PPslide.Shapes.PasteSpecial DataType:=ppPasteHTML, Link:=msoFalse 

Es wird den Bereich als editierbare HTML einfügen, als ob du den Bereich selbst kopiert/eingefügt hast.

Siehe https://msdn.microsoft.com/en-us/library/office/ff745158.aspx für andere Optionen.