usmanazizgroupdocs
12/8/2015 - 8:29 AM

GetBuiltinDocumentPropertiesPptFormat.vb

' 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 pptMetadata As PptMetadata = pptFormat.DocumentProperties

' built-in properties
Console.WriteLine(vbLf & "Built-in Properties")
For Each [property] As KeyValuePair(Of String, PropertyValue) In pptMetadata
    If pptMetadata.IsBuiltIn([property].Key) Then
        Console.WriteLine("{0} : {1}", [property].Key, [property].Value)
    End If