Disable "update links" dialog box for all PPT files. Updated ques

[Guest]

here is the problem below. I have found a VB code that sets to manual, but
it is only good for that PPT file. How do I make that code globally change
ALL ppt file and set to manual. Code is below the message.

Microsoft Office PowerPoint

This presentation contains links to other files:• If you update the links,
PowerPoint will attempt to retrieve the latest information.
• If you don't update the links, PowerPoint will use the previous
information.
Note that file links can be used to access and share confidential
information without your permission and possibly perform other harmful
actions. Do not update the links if you do not trust the source of the
presentation.

CODE BELOW:

Sub UpdateMode()

Dim lCtrA As Integer
Dim oPres As Object 'Presentation
Dim oSld As Slide
Set oPres = ActivePresentation
With oPres
' Process shapes on the slides
For Each oSld In .Slides
Call SetLinksToManual(oSld)
Next
' Process shapes on the slides masters
If Val(Application.Version) > 9 Then
'For versions 2002 and later with multiple master support
For lCtrA = 1 To .Designs.Count
If .Designs(lCtrA).HasTitleMaster Then
Call SetLinksToManual(.Designs(lCtrA).TitleMaster)
Else
Call SetLinksToManual(.Designs(lCtrA).SlideMaster)
End If
Next
Else
' Version 97/2000
Call SetLinksToManual(.SlideMaster)
If .HasTitleMaster Then
Call SetLinksToManual(.TitleMaster)
End If
End If
End With

End Sub
Sub SetLinksToManual(oSlideOrMaster As Object)
Dim oShp As PowerPoint.Shape
For Each oShp In oSlideOrMaster.Shapes
If oShp.Type = msoLinkedOLEObject Then
'Set the link to manual update mode
oShp.LinkFormat.AutoUpdate = ppUpdateOptionManual
End If
Next oShp
End Sub
Sub SetLinksToAutomatic(oSlideOrMaster As Object)
Dim oShp As PowerPoint.Shape
For Each oShp In oSlideOrMaster.Shapes
If oShp.Type = msoLinkedOLEObject Then
'Set the link to automatic update mode
oShp.LinkFormat.AutoUpdate = ppUpdateOptionAutomatic
End If
Next oShp
End Sub

 

[Steve Rindsberg]

here is the problem below. I have found a VB code that sets to manual, but
it is only good for that PPT file. How do I make that code globally change
ALL ppt file and set to manual. Code is below the message.

You'd have to write add'l code to step through each folder/subfolder full of
PPT files you want to process and call the code below (somewhat modified) for
each file.