VBA: Powerpoint makro henter data fra excel som den overfører til et slide

Det ER muligt. Det vil dog tage noget tid for mig, så du skal få hjælp fra andre. Eller klø på selv :)

Eksempel:

Const stiTilExcelFil = "C:\Documents and Settings\pb.KHNBPB\Skrivebord\PP-Excel\"      'justeres
Dim xls As Object
Private Sub ListBox1_Click()
    With ActivePresentation.Slides(3)
        x = .Shapes.Count
        .Shapes(1).TextFrame.TextRange.Text = Me.ListBox1
    End With
   
    Unload UserForm1
End Sub
Private Sub UserForm_activate()
    Set xls = CreateObject("Excel.Application")
    With xls
        .Workbooks.Open stiTilExcelFil + "Test.xlsx"
        For r = 1 To 3
            Me.ListBox1.AddItem .Cells(r, 4)
        Next r
        .Application.Quit
    End With
   
    Set xls = Nothing
End Sub

NB: der skal sættes reference til Excel fra PP. I givet fald kan "hele modellen" sendes. Send en mail --> @-adr. under profil.

Jeg håber ikke at det er for sent at sige jeg er næsten nybegynder :)

Jeg har kun haft stor interrese for det i to uger , og det lykkedes mig at lave noget kode der kan oprette charts osv ...

Supertekst..ok

ok - men hvad er status så?

Statues er at jeg ikke har testet din kode , men jeg må sige jeg skal have det bekræftet hvor det forskellige koder skal indsættes hen så jeg ikke står med fejl.


Ved ikke hvor det her tre linje sættes.

**************************


Const stiTilExcelFil = "C:\Documents and Settings\pb.KHNBPB\Skrivebord\PP-Excel\"      'justeres
Dim xls As Object


Private Sub ListBox1_Click() = Userform on PPT


Private Sub UserForm_activate() = on PPT


Forkert?

Javist det hele skal i PPT :)

Supertekst

Lægger du et svar?

Det får du..