Метод CustomerData.Delete (PowerPoint)

Статья
04/07/2023

Удаляет указанный объект CustomXMLPart из коллекции CustomerData объекта CustomLayout, Master, Presentation, Shape или Slide .

Синтаксис

expression. Delete( _Id_ )

Выражение Выражение, возвращающее объект CustomerData .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Id	Обязательный	String	Идентификатор удаляемого объекта CustomXMLPart .

Замечания

Отдельные объекты CustomXMLPart в коллекции CustomerData представлены идентификаторами GUID (глобально уникальными идентификаторами). Передайте ИДЕНТИФИКАТОР GUID, представляющий пользовательскую XML-часть, которую требуется удалить, в параметр Id метода Delete в виде строки. Идентификатор определенной пользовательской XML-части можно получить, выполнив итерацию по коллекции с помощью свойства Id коллекции CustomerData .

Пример

В следующем примере показано, как использовать метод Delete для удаления пользовательской XML-части из коллекции CustomerData . Она добавляет новую настраиваемую XML-часть в коллекцию CustomerData первой фигуры на первом слайде активной презентации. Затем он получает идентификатор новой части и передает его в метод Delete .

Public Sub Delete_Example() 
 
    Dim pptSlide As Slide 
    Set pptSlide = ActivePresentation.Slides(1) 
     
    Dim pptShape As Shape 
    Set pptShape = pptSlide.Shapes(1) 
     
    ' Get the CustomerData collection of the shape 
    Dim pptCustomerData As customerData 
    Set pptCustomerData = pptShape.customerData 
     
    ' Get the current count of custom XML parts 
    Debug.Print pptCustomerData.Count 
     
    ' Add a new CustomXMLPart object to the CustomerData 
    ' collection for this shape and get the revised count of 
    ' custom XML parts 
    Dim pptCustomXMLPart As CustomXMLPart 
    Set pptCustomXMLPart = pptCustomerData.Add 
    Debug.Print pptCustomerData.Count 
     
    ' Get the ID of the new part 
    Dim myString As String 
    myString = pptCustomXMLPart.Id 
    Debug.Print myString 
     
    ' Delete the new part and re-check the count of custom XML parts 
    pptCustomerData.Delete (myString) 
    Debug.Print pptCustomerData.Count 
 
End Sub

См. также

Коллекция CustomerData

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через