Гиперссылки в PowerPoint

[sasha_prof]

Доброго всем времени суток.
Возможно немного не в ту тему пишу, но всеже.
Не подскажите, есть ли возможность СМЕНИТЬ АДРЕСС всех гиперссылок с одного на другой?

[EducatedFool]

Примерно так: http://excelvba.ru/code/replace_hyperlinks

Какое отношение имеет PowerPoint к разделу Microsoft Office Excel ?

[sasha_prof]

Сообщение от EducatedFool

Примерно так: http://excelvba.ru/code/replace_hyperlinks

Какое отношение имеет PowerPoint к разделу Microsoft Office Excel ?

Так ненашел такого раздела.

К сожалению у меня заблокирован этот сайт.

Можете выложить сюда данные?

[EducatedFool]

Исправление повреждённых гиперссылок во всей книге

Sub ЗаменаИспорченныхГиперссылок()
    On Error Resume Next
    Dim hl As Hyperlink, oldString As String, newString As String, sh As Worksheet
    ' часть гиперссылки, подлежащая замене
    oldString = "C:\Documents and settings\Бухгалтер\Application data"
    ' на что заменяем
    newString = "\\адрес_сервера"
    For Each sh In ActiveWorkbook.Worksheets    ' перебираем все листы в активной книге
        For Each hl In sh.Hyperlinks    ' перебираем все гиперссылки на листе
            If hl.Address Like oldString & "*" Then
                hl.Address = Replace(hl.Address, oldString, newString)
            End If
        Next
    Next sh
End Sub

[sasha_prof]

Чтото вот на эту часть матерится

PHP код:

sh As Worksheet 


Вернее в Екселе работает а вот в PowerPoint нет(