Удалить все изображения на одном слайде с VBA в PowerPoint - PullRequest
Новая
       21

Удалить все изображения на одном слайде с VBA в PowerPoint

2 голосов
/ 28 июня 2019

Я хочу удалить только изображения на слайде с VBA в PowerPoint.

С данным кодом все фигуры на слайде удаляются.

Sub DeleteAllPictures()

ActivePresentation.Slides(1).Shapes.Range.Delete

End Sub

Изображения добавляются со следующим кодом: 

    Sub InsertPic_EAP()
  'Insert Picture
 ActivePresentation.Slides(1).Shapes.AddPicture FileName:="U:\Automatisierung\3D_Module\EAP.png", _
   LinkToFile:=msoTrue, _
   SaveWithDocument:=msoTrue, Left:=260, Top:=110, _
   Width:=270, Height:=250

 ActivePresentation.Slides(1).Shapes.AddPicture FileName:="U:\Automatisierung\Bilder_AP\EAP_01.png", _
   LinkToFile:=msoTrue, _
   SaveWithDocument:=msoTrue, Left:=620, Top:=220, _
   Width:=270, Height:=115

    End Sub

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

1 Ответ

2 голосов
/ 28 июня 2019

Этот код будет работать для вас: Редактировать - для связанных изображений 

Sub DeleteAllPictures()

Dim shp As Shape

    For Each shp In ActivePresentation.Slides(1).Shapes

    If shp.Type = msoLinkedPicture Then
        shp.Delete
    End If

    Next

End Sub

Циклическая прокрутка всех фигур на слайде и удаление, если это изображение.

...