A family of Microsoft presentation graphics products that offer tools for creating presentations and adding graphic effects like multimedia objects and special effects with text.
I work with code in Europe a lot and this only one of the multilingual problems we meet!
Might be worth a PPTFAQ entry.
This is the code we use for links on objects but make sure you use a copy of the presentation it's designed for users who know what they are doing and is NOT bombproof.
Sub G2E()
Dim regX As Object
Dim osld As Slide
Dim oshp As Shape
Dim b_found As Boolean
Dim strLink As String
On Error Resume Next
Set regX = CreateObject("vbscript.regexp")
With regX
.Global = True
.Pattern = "Z(\d)S(\d)"
End With
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
Err.Clear
strLink = oshp.LinkFormat.SourceFullName
If Err = 0 Then
b_found = regX.Test(strLink)
If b_found = True Then
strLink = regX.Replace(strLink, "R$1C$2")
oshp.LinkFormat.SourceFullName = strLink
End If
End If
Next oshp
Next osld
Set regX = Nothing
End Sub