In article <2EB0097C-8FB5-4B74-9780-(E-Mail Removed)>, Changhee
wrote:
> 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.
>
> 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, PPT MVP
PPT FAQ:
www.pptfaq.com
PPTools:
www.pptools.com
================================================
Similar Threads
