VBA programmering

Hej

Jeg tror jeg kan hjælpe dig. Har du mulighed for at sende en kopi af filerne?

@-adresse under min profil.

og så velkommen til Eksperten.

alternativ her er den kode, jeg har anvendt i min model (Office 2007):

- ThisWorkbook
Public pp As Object, systemSti As String
Private Sub workbook_open()
'Stop
    systemSti = ActiveWorkbook.Path + "\"
       
    Set pp = CreateObject("PowerPoint.Application")
    With pp
        .Visible = True
        .Presentations.Open Filename:=systemSti & "PPT.pptx", ReadOnly:=msoFalse
        .ActivePresentation.SlideShowSettings.Run
    End With
             
       
    Application.OnTime Now + TimeValue("00:00:10"), "opdaterPPT"
   
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
    pp.ActivePresentation.Close
    Set pp = Nothing
End Sub

- Module1
Public Sub opdaterPPT()
On Error Resume Next
    Application.ScreenUpdating = False
   
    With ThisWorkbook.pp
        For Each sld In .ActivePresentation.Slides
            For Each sh In sld.Shapes
                If sh.Type = msoLinkedOLEObject Then
                    sh.LinkFormat.Update
                End If
            Next
        Next
    End With
   
    Application.ScreenUpdating = True
   
    Application.OnTime Now + TimeValue("00:00:10"), "opdaterPPT"
End Sub

Hej,

mange tak for svaret. Jeg har nu sat den ind i en ny makro, men synes ikke der sker noget? har bare sat makroen ind, som den ser ud ovenfor? er der noget jeg skal redigere i arket, eller fider den selv d af hvilket excel ark den linker til?

Hvis du sender en mail - så returnerer jeg min model - så kan du se opbygningen.

- Makro-udførelse skal være sat til i indstillinger.
- I VBA-koden er der en reference fra Excel til Powerpoint (Alt+F11 / menupunktet:Tools / References / Microsoft PowerPoint [versionsnr] Object Library - Flueben sættes - Gem - Luk

@-adresse under min profil.

Hvilken Office-version skal der anvendes?