excel omzetten naar poweroint

[witje71]

Ik heb een vraag, kan je een excel bestand omzetten naar een powerpoint bestand?
Ik wil eigenlijk een eindejaars balans die in excel gemaakt is om zetten naar een powerpoint zodat die op een scherm kan tonen.

 

[pslijper]

is dat niet simpel en kwestie van screenshot maken en die dan op je dia plaatsen ?

 

[witje71]

dat ziet er niet uit.

 

[Warme bakkertje]

Van Andy Pope (OzMVP)

Sub ExcelToPPT_Table() 
     
    Dim rngData As  Range 
    Dim appPPT As PowerPoint.Application 
    Dim prsTest As PowerPoint.Presentation 
    Dim sldTest As PowerPoint.Slide 
    Dim shpTest As Table 
    Dim rngCell As Range 
     
    Set rngData = Range("A1:C5") 
    Set appPPT = CreateObject("Powerpoint.application") 
    appPPT.Visible = True 
     
    Set prsTest = appPPT.Presentations.Add 
    appPPT.ActiveWindow.ViewType = ppViewSlide 
    Set sldTest = prsTest.Slides.Add(1, ppLayoutBlank) 
    sldTest.Shapes.AddTable rngData.Rows.Count, rngData.Columns.Count 
    Set shpTest = sldTest.Shapes(sldTest.Shapes.Count).Table 
    For Each rngCell In rngData 
        shpTest.Cell(rngCell.Row, rngCell.Column).Shape.TextFrame.TextRange.Text = rngCell.Value 
    Next 
     
End Sub

Vergeet echter niet om een referentie naar de Powerpoint Objectbibliotheek te maken.

 

[R15]

1. Start PowerPoint.
2. Kies voor "Invoegen", dan "Object", dan voor bijvoorbeeld "Excel werkblad".
3. Dan krijg je een Excel werkblad.
Misschien dat je hiermee wat kan?