PPT VBA закрыть позицию в коллекции презентаций - PullRequest
Новая
       6

PPT VBA закрыть позицию в коллекции презентаций

0 голосов
/ 08 мая 2018

Я использую Slides.InsertFromFile для вставки слайдов из отдельного PPTM в открытый PPTM. Это приводит к добавлению исходного PPTM в коллекцию Presentations. Я хотел бы удалить его из коллекции после вставки слайда. Следующее не удаляет исходный PPTM из коллекции, какие-либо предложения? 

With Presentations.Item(IndexOfSourcePPTM)
                        .Saved = msoTrue 
                        .Close
                    End With

1 Ответ

0 голосов
/ 09 мая 2018

Вот так, все заработало. Вот как я открыл PPTM, который хочу закрыть позже: 

Set TheNewlyOpenedTandemPresentation = Presentations.Open(TandemFileToLoadFilePath, msoFalse, msoFalse, msoTrue)  'filepath,readonly,untitled/ascopy, visiblewindow

Позже я возвращаюсь назад и просто .Закрыть 

Dim ThePresentationCounter As Integer
    For ThePresentationCounter = Presentations.Count To 1 Step -1
        If StrComp(Presentations(ThePresentationCounter).Name, CurrentTandemFileName) = 0 Then
            Presentations(ThePresentationCounter).Close
        End If
    Next
...