VBA in powerpoint

[NicodeLooier]

Tijdens het werken met visual basic in powerpoint ben ik een probleem tegengekomen.
De variabelen die ik op een dia instel blijven alleen op die dia bewaard. Kan ik dit powerpoint ook laten onthouden tot het einde van de presentatie?

Door het klikken op een knop in powerpoint moet er in een gekoppeld Excelbestand een cel worden bijgewerkt. Elke dia heeft een andere cel, elke knop op de dia een andere waarde voor die cel.

Om dit op te lossen heb ik een hele omslachtige manier gevonden.
Als ik nu op een knop klik,

1. opent hij het Excelbestand ​

2. vult de waarde in en​

3. sluit hij het bestand (en slaat het op).​

Het probleem wat blijft is dat ik het maar aan één bestand kan koppelen, terwijl ik meer dan 20 bestanden wil bijwerken. Ik zie nu als enige oplossing om voor elk een aparte powerpoint te maken.


Heeft er iemand veel verstand van VBA of OLE-objecten zodat hij/zij me verder kan helpen?
Is er een bepaalde VBA-code die de functie heeft van "alles vervangen", terwijl de voorstelling aan de gang is, zodat ik met één knop op de eerste dia, alle verwijzingen in de andere knoppen kan aanpassen?

 

[NicodeLooier]

code

Dit is de code die ik nu (per knop) gebruik...

Alle suggesties zijn welkom

Public oXLApp As Excel.Application
Public oWB As Workbook

Private Sub CommandButton1_Click()
        Set oXLApp = New Excel.Application
        Set oWB = oXLApp.Workbooks.Open(ActivePresentation.Path & "\UGT.xls")
        If Not oWB Is Nothing Then
        oWB.Worksheets(3).Range("B3") = "a"
            oXLApp.Visible = False
        End If
                oWB.Close True
                oXLApp.Quit
            ActivePresentation.SlideShowWindow.View.Next
    Exit Sub
End Sub

 

[NicodeLooier]

Solution

Click here for my solution