Cacher is the code snippet organizer for pro developers

' For complete examples and data files, please go to https://github.com/groupdocs-metadata/GroupDocs.Metadata-for-.NET
' initialize PptFormat
Dim pptFormat As New PptFormat(Common.MapSourceFilePath(filePath))

' get hidden data
Dim hiddenData As PptInspectionResult = pptFormat.InspectDocument()

' get comments
Dim comments As PptComment() = hiddenData.Comments

If comments.Length > 0 Then
	' remove all comments
	pptFormat.RemoveHiddenData(New PptInspectionOptions(PptInspectorOptionsEnum.Comments))
	Console.WriteLine("Comments removed.")

	' and commit changes
	pptFormat.Save()
	Console.WriteLine("Changes saved successfully!")
Else
	Console.WriteLine("No comments found!")
End If