Cacher is the code snippet organizer for pro developers

' For complete examples and data files, please go to https://github.com/groupdocsmetadata/GroupDocs_Metadata_NET
' initialize PptFormat
Dim pptFormat As New PptFormat(Common.MapSourceFilePath(filePath))

' initialize PptMetadata
Dim metadata As PptMetadata = pptFormat.DocumentProperties

Dim propertyName As String = "New custom property"

' check if property is not built-in
If Not metadata.IsBuiltIn(propertyName) Then
    ' remove property
    metadata.Remove(propertyName)
Else
    Console.WriteLine("Can not remove built-in property.")
End If

' save file in destination folder
pptFormat.Save(Common.MapDestinationFilePath(filePath))