MyTetra Share
Делитесь знаниями!
Связи PowerPoint
Время создания: 01.02.2020 00:17
Текстовые метки: VBA_PowerPoint
Раздел: !Закладки - VBA - PowerPoint
Запись: xintrea/mytetra_db_adgaver_new/master/base/15805054415uhhwgto64/text.html на raw.githubusercontent.com



Sub dslkj()

For Each sl In ActivePresentation.Slides

For i = 1 To sl.Shapes.Count

If sl.Shapes.Item(i).Type = msoLinkedOLEObject Then

Debug.Print sl.Name & "-" & i & "-" & sl.Shapes.Item(i).Name & " - " & sl.Shapes.Item(i).LinkFormat.SourceFullName

' sl.Shapes.Item(i).LinkFormat.SourceFullName = Replace(sl.Shapes.Item(i).LinkFormat.SourceFullName, "xlsx", "xlsm")

If sl.Name = "Slide401" Then

If i = 1 Then

Set ff = sl.Shapes.Item(i)

Stop

ff.LinkFormat.SourceFullName = "X:\Path\name.xlsx!Область_печати"

End If

End If

End If

Next i

Next

End Sub

Так же в этом разделе:
 
MyTetra Share v.0.59
Яндекс индекс цитирования