Импорт SVG в PowerPoint с помощью VBA

Question

Я пытаюсь импортировать файл SVG в своей презентации с помощью приведенного ниже сценария, но он импортируется во все слайды вместо импорта только в активный слайд.

Sub InsertLogoOnEveryPage()

Dim Sld As Slide
Dim Shp As Shape
Dim sFontName As String
Dim oTop As Single

' font:
sFontName = "Times"

For Each Sld In ActivePresentation.Slides

    Debug.Print Sld.Name
    'Insert logo.
    Sld.Shapes.AddPicture FileName:="C:\G-Tools\logo\GEP LOGO 2017-01.svg", _
        LinkToFile:=msoFalse, _
        SaveWithDocument:=msoTrue, Left:=357, Top:=240

Next Sld

End Sub

Может кто-нибудь, пожалуйста, помогите мне Чтобы решить эту проблему.

Большое спасибо заранее.

Answer 1

Измените:

For Each Sld In ActivePresentation.Slides

на:

Set Sld = Application.ActiveWindow.View.Slide

и удалите отметку Next Sld ближе к концу.