Guide for VB.NET
Core Document Formats
PowerPoint Annotation
Additional Features

VB.NET PowerPoint - Create & Add PPT Annotation

VB.NET PPT Annotator to Draw and Create Annotation on PowerPoint Slide

VB.NET
Home > .NET Imaging SDK > VB.NET > PowerPoint: Annotate PowerPoint
To get started with DocImage SDK for .NET, you are supposed to read VB.NET Imaging: Get Started first!

As we know, an annotation is used to note or comment PowerPoint (.pptx) slide as a kind of compensation for limitations (other documents are compatible, including PDF, TIFF, MS Word and Excel). Most of end users would like to install and use Microsoft PowerPoint software and create PPT slide annotation through adding a box to create some text or image contents. However, have you ever thought if you were professional developers in a certain .NET platform, such as VB.NET project, what would you do to add and draw variable text or graphics annotations to highlight or underline PPT (.pptx) slide contents? Then, please see this professional .NET PowerPoint Annotating Control for VB.NET - designed to help users to handle PowerPoint annotation adding problem with the most mature and easy-to-configure methods in VB.NET programs.
Related .net document control helps:
asp.net edit pdf text control: ASP.NET PDF Text Edit Control: online edit PDF text content using C# ASP.NET
asp.net sharepoint document viewer free: ASP.NET SharePoint Document Viewer: view, annotate, redact documents in SharePoint
asp.net view text file: ASP.NET Text file viewer in MVC, WebForms: Open, view, annotate, convert txt files in C# ASP.NET
asp.net annotate pdf control: ASP.NET Annotate PDF Control: annotate, comment, markup PDF document online using ASP.NET C#
asp.net image viewer jquery: ASP.NET Image Viewer Control(MVC & WebForms): view, annotate, redact, convert image files in html, JQuery
asp.net edit pdf image control: ASP.NET PDF Image Edit Control: online insert, edit PDF images in C#
asp.net mvc pdf editor control: ASP.NET MVC PDF Viewer & Editor: view, annotate, redact, edit PDF document in C# ASP.NET MVC
To know the contents of this article, you may see following quick navigation:
  • Explanations for why you should choose our VB.NET PowerPoint annotation SDK
  • Instructions on what are needed for using our reliable PPT annotation features in VB.NET project
  • Illustration of VB.NET demo APIs on adding and drawing annotation on PowerPoint (.pptx) slide
PPT Annotator
PowerPoint annotating control in VB.NET of RasterEdge .NET Imaging SDK is the most easy-to-use and professional PPT document annotation tool which has been perfectly developed based on the core techniques of VB .NET PowerPoint document SDK and VB.NET imaging annotating library. It shows great capabilities on platform flexibility and full annotation options.
As for the feature of platform-friendly, this .NET PPT page annotating component for VB.NET is compatible with any Visual Studio (like 2005, 2008, 2010 or 2012) and .NET framework (including .NET 2.0, 3.0, 3.5, 4.0 & 4.5) developing environments. In addition, this PPT annotating control can be installed and integrated within Windows, web and mobile PowerPoint applications with just a few steps.
What comes the most important is its great ability in offering full options on adding and creating more than 10 kinds of annotation shapes, including line, lines, free hand, free hand line, rectangle, text, hotspot, hotspot free hand, rubber stamp, callout, embedded image, and ellipse. Once you have loaded a certain PPT (.pptx) document to the VB.NET PowerPoint annotating project, you are completely free to draw any annotation on slide with no more plug-ins needed like Acrobat or Adobe reader.
We still provide the comprehensive guide for C# end users and developers to apply .NET PowerPoint annotating tool in C#.NET.
What Are Needed?
Users need to add following implementations to your VB.NET PPT document project to correctly apply annotation features.
  • RasterEdge.Imaging.Basic.dll
  • RasterEdge.Imaging.Annotation.dll
  • RasterEdge.Imaging.MSPPT.dll
Apart from the above necessary .NET imaging assemblies, other operating requirements are:
  • Windows operating systems on 32-bit and 34-bit binaries
  • Microsoft Office PowerPoint 2007, 2010 and later versions
  • Microsoft Visual Studio 2005 & later and .NET Framework 2.0 & later
How to Annotate
With this mature PowerPoint annotating combining application, VB.NET users are not only able to create and add any supported annotation object at any certain PPT slide location, also capable of burning and merging the created annotation object to the original PPT slide. For the details, please see following demo APIs and methods.
Private Function AddFloatingItem(item As BaseItem) As Integer Implements PPTXPage.AddFloatingItem
End Function
Private Sub MergItemsToPage() Implements PPTXPage.MergItemsToPage
End Sub
Simple explanations for PPT annotation methods:
  • PPTXPage: PPTXPage is the virtual PowerPoint (.pptx) document presentation and belongs to PPTXDocument, working just like PDFPage and TIFFPage in VB.NET program.
  • AddFloatingItem: designed to add and draw annotation on VB.NET project PPT document slide with a user-defined annotation shape.
  • MergItemsToPage: this particular method is developed to allow VB.NET users to burn and combine the added annotation object on PPT slide against unwanted altering.
Annotating Demo Codes
After being well informed of the developing concepts and VB.NET programming APIs, you may directly use following VB.NET sample codes to draw and add different annotations to PPT slide or develop your individualized PPT annotating program.
VB.NET PPT: Draw Callout Annotation to PPT Document
'''<summary>
''' Draw and burn a callout annoation on the first page of a PowerPoint document  
''' </summary>
Public Shared Sub PowerPointAnnotation(filePath As [String], pageIdx As Integer, annotatedFilePath As [String])

	Dim doc As New PPTXDocument(filePath)

	Dim newPage As BasePage = doc.GetPage(0)

	Dim obj As New RectangleAnnotation()

	' set annotation size 
	obj.X = 470F
	obj.Y = 420F
	obj.Width = 561F
	obj.Height = 228F

	'set annotation edge property
	obj.OutLine = New LinePen()
	obj.OutLine.Width = 5F
	'set annotation edge width
	obj.OutLine.Brush = New AnnotationBrush()
	obj.OutLine.Brush.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set annotation edge style
	obj.OutLine.Brush.Solid_Color = Color.Blue
	'set annotation edge color
	'set the property of filled shape
	obj.Fill = New AnnotationBrush()

	obj.Fill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set filled shape style
	obj.Fill.Solid_Color = Color.Gray
	'set filled shape color
	'set the property of shadow
	obj.ShadowFill = New AnnotationBrush()
	obj.ShadowFill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set shadow style
	obj.ShadowFill.Solid_Color = Color.DarkGreen
	'set shadow color
	obj.ShadowX = 10F
	'set shadow position
	obj.ShadowY = 12F
	obj.ShowShadow = True
	'show shadow or not
	obj.SetTransparency(0.5F)

	Dim item As RasterEdge.Imaging.Drawing.REItemEx = obj.CreateAnnotationItem(newPage)
	newPage.AddFloatingItem(item)

	newPage.MergeItemsToPage()

	doc.Save(annotatedFilePath)

End Sub
	
VB.NET PPT: VB Code to Add Embedded Image Object to PPT Page
'''<summary>
''' Draw and burn an embedded annoation on the first page of a PowerPoint document  
''' </summary>
Public Shared Sub PowerPointAnnotation(filePath As [String], pageIdx As Integer, annotatedFilePath As [String])

	Dim doc As New PPTXDocument(filePath)

	Dim newPage As BasePage = doc.GetPage(0)

	Dim obj As New RectangleAnnotation()

	' set annotation size 
	obj.X = 470F
	obj.Y = 420F
	obj.Width = 561F
	obj.Height = 228F

	'set annotation edge property
	obj.OutLine = New LinePen()
	obj.OutLine.Width = 5F
	'set annotation edge width
	obj.OutLine.Brush = New AnnotationBrush()
	obj.OutLine.Brush.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set annotation edge style
	obj.OutLine.Brush.Solid_Color = Color.Blue
	'set annotation edge color
	'set the property of filled shape
	obj.Fill = New AnnotationBrush()

	obj.Fill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set filled shape style
	obj.Fill.Solid_Color = Color.Gray
	'set filled shape color
	'set the property of shadow
	obj.ShadowFill = New AnnotationBrush()
	obj.ShadowFill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set shadow style
	obj.ShadowFill.Solid_Color = Color.DarkGreen
	'set shadow color
	obj.ShadowX = 10F
	'set shadow position
	obj.ShadowY = 12F
	obj.ShowShadow = True
	'show shadow or not
	obj.SetTransparency(0.5F)

	Dim item As RasterEdge.Imaging.Drawing.REItemEx = obj.CreateAnnotationItem(newPage)
	newPage.AddFloatingItem(item)

	newPage.MergeItemsToPage()

	doc.Save(annotatedFilePath)

End Sub
	
VB.NET PPT: Demo Code on Creating Ellipse Annotation
'''<summary>
''' Draw and burn an ellipse annoation on the first page of a PowerPoint document  
''' </summary>
Public Shared Sub PowerPointAnnotation(filePath As [String], pageIdx As Integer, annotatedFilePath As [String])

	Dim doc As New PPTXDocument(filePath)

	Dim newPage As BasePage = doc.GetPage(0)

	Dim obj As New RectangleAnnotation()

	' set annotation size 
	obj.X = 470F
	obj.Y = 420F
	obj.Width = 561F
	obj.Height = 228F

	'set annotation edge property
	obj.OutLine = New LinePen()
	obj.OutLine.Width = 5F
	'set annotation edge width
	obj.OutLine.Brush = New AnnotationBrush()
	obj.OutLine.Brush.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set annotation edge style
	obj.OutLine.Brush.Solid_Color = Color.Blue
	'set annotation edge color
	'set the property of filled shape
	obj.Fill = New AnnotationBrush()

	obj.Fill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set filled shape style
	obj.Fill.Solid_Color = Color.Gray
	'set filled shape color
	'set the property of shadow
	obj.ShadowFill = New AnnotationBrush()
	obj.ShadowFill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set shadow style
	obj.ShadowFill.Solid_Color = Color.DarkGreen
	'set shadow color
	obj.ShadowX = 10F
	'set shadow position
	obj.ShadowY = 12F
	obj.ShowShadow = True
	'show shadow or not
	obj.SetTransparency(0.5F)

	Dim item As RasterEdge.Imaging.Drawing.REItemEx = obj.CreateAnnotationItem(newPage)
	newPage.AddFloatingItem(item)

	newPage.MergeItemsToPage()

	doc.Save(annotatedFilePath)

End Sub
	
VB.NET PPT: Create and Burn Free Hand Annotation to PPT Slide
'''<summary>
''' Draw and burn a free hand annoation on the first page of a PowerPoint document  
''' </summary>
Public Shared Sub PowerPointAnnotation(filePath As [String], pageIdx As Integer, annotatedFilePath As [String])

	Dim doc As New PPTXDocument(filePath)

	Dim newPage As BasePage = doc.GetPage(0)

	Dim obj As New RectangleAnnotation()

	' set annotation size 
	obj.X = 470F
	obj.Y = 420F
	obj.Width = 561F
	obj.Height = 228F

	'set annotation edge property
	obj.OutLine = New LinePen()
	obj.OutLine.Width = 5F
	'set annotation edge width
	obj.OutLine.Brush = New AnnotationBrush()
	obj.OutLine.Brush.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set annotation edge style
	obj.OutLine.Brush.Solid_Color = Color.Blue
	'set annotation edge color
	'set the property of filled shape
	obj.Fill = New AnnotationBrush()

	obj.Fill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set filled shape style
	obj.Fill.Solid_Color = Color.Gray
	'set filled shape color
	'set the property of shadow
	obj.ShadowFill = New AnnotationBrush()
	obj.ShadowFill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set shadow style
	obj.ShadowFill.Solid_Color = Color.DarkGreen
	'set shadow color
	obj.ShadowX = 10F
	'set shadow position
	obj.ShadowY = 12F
	obj.ShowShadow = True
	'show shadow or not
	obj.SetTransparency(0.5F)

	Dim item As RasterEdge.Imaging.Drawing.REItemEx = obj.CreateAnnotationItem(newPage)
	newPage.AddFloatingItem(item)

	newPage.MergeItemsToPage()

	doc.Save(annotatedFilePath)

End Sub
	
VB.NET PPT: Create Free Hand Line Annotation on PPT Document
'''<summary>
''' Draw and burn a free hand line annoation on the first page of a PowerPoint document  
''' </summary>
Public Shared Sub PowerPointAnnotation(filePath As [String], pageIdx As Integer, annotatedFilePath As [String])

	Dim doc As New PPTXDocument(filePath)

	Dim newPage As BasePage = doc.GetPage(0)

	Dim obj As New RectangleAnnotation()

	' set annotation size 
	obj.X = 470F
	obj.Y = 420F
	obj.Width = 561F
	obj.Height = 228F

	'set annotation edge property
	obj.OutLine = New LinePen()
	obj.OutLine.Width = 5F
	'set annotation edge width
	obj.OutLine.Brush = New AnnotationBrush()
	obj.OutLine.Brush.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set annotation edge style
	obj.OutLine.Brush.Solid_Color = Color.Blue
	'set annotation edge color
	'set the property of filled shape
	obj.Fill = New AnnotationBrush()

	obj.Fill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set filled shape style
	obj.Fill.Solid_Color = Color.Gray
	'set filled shape color
	'set the property of shadow
	obj.ShadowFill = New AnnotationBrush()
	obj.ShadowFill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set shadow style
	obj.ShadowFill.Solid_Color = Color.DarkGreen
	'set shadow color
	obj.ShadowX = 10F
	'set shadow position
	obj.ShadowY = 12F
	obj.ShowShadow = True
	'show shadow or not
	obj.SetTransparency(0.5F)

	Dim item As RasterEdge.Imaging.Drawing.REItemEx = obj.CreateAnnotationItem(newPage)
	newPage.AddFloatingItem(item)

	newPage.MergeItemsToPage()

	doc.Save(annotatedFilePath)

End Sub
	
VB.NET PPT: How to Draw Hotspot Annotation Markup
'''<summary>
''' Draw and burn a hotspot annoation on the first page of a PowerPoint document  
''' </summary>
Public Shared Sub PowerPointAnnotation(filePath As [String], pageIdx As Integer, annotatedFilePath As [String])

	Dim doc As New PPTXDocument(filePath)

	Dim newPage As BasePage = doc.GetPage(0)

	Dim obj As New RectangleAnnotation()

	' set annotation size 
	obj.X = 470F
	obj.Y = 420F
	obj.Width = 561F
	obj.Height = 228F

	'set annotation edge property
	obj.OutLine = New LinePen()
	obj.OutLine.Width = 5F
	'set annotation edge width
	obj.OutLine.Brush = New AnnotationBrush()
	obj.OutLine.Brush.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set annotation edge style
	obj.OutLine.Brush.Solid_Color = Color.Blue
	'set annotation edge color
	'set the property of filled shape
	obj.Fill = New AnnotationBrush()

	obj.Fill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set filled shape style
	obj.Fill.Solid_Color = Color.Gray
	'set filled shape color
	'set the property of shadow
	obj.ShadowFill = New AnnotationBrush()
	obj.ShadowFill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set shadow style
	obj.ShadowFill.Solid_Color = Color.DarkGreen
	'set shadow color
	obj.ShadowX = 10F
	'set shadow position
	obj.ShadowY = 12F
	obj.ShowShadow = True
	'show shadow or not
	obj.SetTransparency(0.5F)

	Dim item As RasterEdge.Imaging.Drawing.REItemEx = obj.CreateAnnotationItem(newPage)
	newPage.AddFloatingItem(item)

	newPage.MergeItemsToPage()

	doc.Save(annotatedFilePath)

End Sub
VB.NET PPT: How to Add and Burn Hotspot Free Hand Annotation to PPT
'''<summary>
''' Draw and burn a hotspot free hand annoation on the first page of a PowerPoint document  
''' </summary>
Public Shared Sub PowerPointAnnotation(filePath As [String], pageIdx As Integer, annotatedFilePath As [String])

	Dim doc As New PPTXDocument(filePath)

	Dim newPage As BasePage = doc.GetPage(0)

	Dim obj As New RectangleAnnotation()

	' set annotation size 
	obj.X = 470F
	obj.Y = 420F
	obj.Width = 561F
	obj.Height = 228F

	'set annotation edge property
	obj.OutLine = New LinePen()
	obj.OutLine.Width = 5F
	'set annotation edge width
	obj.OutLine.Brush = New AnnotationBrush()
	obj.OutLine.Brush.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set annotation edge style
	obj.OutLine.Brush.Solid_Color = Color.Blue
	'set annotation edge color
	'set the property of filled shape
	obj.Fill = New AnnotationBrush()

	obj.Fill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set filled shape style
	obj.Fill.Solid_Color = Color.Gray
	'set filled shape color
	'set the property of shadow
	obj.ShadowFill = New AnnotationBrush()
	obj.ShadowFill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set shadow style
	obj.ShadowFill.Solid_Color = Color.DarkGreen
	'set shadow color
	obj.ShadowX = 10F
	'set shadow position
	obj.ShadowY = 12F
	obj.ShowShadow = True
	'show shadow or not
	obj.SetTransparency(0.5F)

	Dim item As RasterEdge.Imaging.Drawing.REItemEx = obj.CreateAnnotationItem(newPage)
	newPage.AddFloatingItem(item)

	newPage.MergeItemsToPage()

	doc.Save(annotatedFilePath)

End Sub
VB.NET PPT: Create Line Annotation with VB.NET Class
'''<summary>
''' Draw and burn a line annoation on the first page of a PowerPoint document  
''' </summary>
Public Shared Sub PowerPointAnnotation(filePath As [String], pageIdx As Integer, annotatedFilePath As [String])

	Dim doc As New PPTXDocument(filePath)

	Dim newPage As BasePage = doc.GetPage(0)

	Dim obj As New RectangleAnnotation()

	' set annotation size 
	obj.X = 470F
	obj.Y = 420F
	obj.Width = 561F
	obj.Height = 228F

	'set annotation edge property
	obj.OutLine = New LinePen()
	obj.OutLine.Width = 5F
	'set annotation edge width
	obj.OutLine.Brush = New AnnotationBrush()
	obj.OutLine.Brush.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set annotation edge style
	obj.OutLine.Brush.Solid_Color = Color.Blue
	'set annotation edge color
	'set the property of filled shape
	obj.Fill = New AnnotationBrush()

	obj.Fill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set filled shape style
	obj.Fill.Solid_Color = Color.Gray
	'set filled shape color
	'set the property of shadow
	obj.ShadowFill = New AnnotationBrush()
	obj.ShadowFill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set shadow style
	obj.ShadowFill.Solid_Color = Color.DarkGreen
	'set shadow color
	obj.ShadowX = 10F
	'set shadow position
	obj.ShadowY = 12F
	obj.ShowShadow = True
	'show shadow or not
	obj.SetTransparency(0.5F)

	Dim item As RasterEdge.Imaging.Drawing.REItemEx = obj.CreateAnnotationItem(newPage)
	newPage.AddFloatingItem(item)

	newPage.MergeItemsToPage()

	doc.Save(annotatedFilePath)

End Sub
VB.NET PPT: Draw and Burn Lines Annotation on PPT Slide
'''<summary>
''' Draw and burn lines annoation on the first page of a PowerPoint document  
''' </summary>
Public Shared Sub PowerPointAnnotation(filePath As [String], pageIdx As Integer, annotatedFilePath As [String])

	Dim doc As New PPTXDocument(filePath)

	Dim newPage As BasePage = doc.GetPage(0)

	Dim obj As New RectangleAnnotation()

	' set annotation size 
	obj.X = 470F
	obj.Y = 420F
	obj.Width = 561F
	obj.Height = 228F

	'set annotation edge property
	obj.OutLine = New LinePen()
	obj.OutLine.Width = 5F
	'set annotation edge width
	obj.OutLine.Brush = New AnnotationBrush()
	obj.OutLine.Brush.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set annotation edge style
	obj.OutLine.Brush.Solid_Color = Color.Blue
	'set annotation edge color
	'set the property of filled shape
	obj.Fill = New AnnotationBrush()

	obj.Fill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set filled shape style
	obj.Fill.Solid_Color = Color.Gray
	'set filled shape color
	'set the property of shadow
	obj.ShadowFill = New AnnotationBrush()
	obj.ShadowFill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set shadow style
	obj.ShadowFill.Solid_Color = Color.DarkGreen
	'set shadow color
	obj.ShadowX = 10F
	'set shadow position
	obj.ShadowY = 12F
	obj.ShowShadow = True
	'show shadow or not
	obj.SetTransparency(0.5F)

	Dim item As RasterEdge.Imaging.Drawing.REItemEx = obj.CreateAnnotationItem(newPage)
	newPage.AddFloatingItem(item)

	newPage.MergeItemsToPage()

	doc.Save(annotatedFilePath)

End Sub
VB.NET PPT: PPT Rectangle Annotating Control Within VB.NET Project
'''<summary>
''' Draw and burn a rectangle annoation on the first page of a PowerPoint document  
''' </summary>
Public Shared Sub PowerPointAnnotation(filePath As [String], pageIdx As Integer, annotatedFilePath As [String])

	Dim doc As New PPTXDocument(filePath)

	Dim newPage As BasePage = doc.GetPage(0)

	Dim obj As New RectangleAnnotation()

	' set annotation size 
	obj.X = 470F
	obj.Y = 420F
	obj.Width = 561F
	obj.Height = 228F

	'set annotation edge property
	obj.OutLine = New LinePen()
	obj.OutLine.Width = 5F
	'set annotation edge width
	obj.OutLine.Brush = New AnnotationBrush()
	obj.OutLine.Brush.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set annotation edge style
	obj.OutLine.Brush.Solid_Color = Color.Blue
	'set annotation edge color
	'set the property of filled shape
	obj.Fill = New AnnotationBrush()

	obj.Fill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set filled shape style
	obj.Fill.Solid_Color = Color.Gray
	'set filled shape color
	'set the property of shadow
	obj.ShadowFill = New AnnotationBrush()
	obj.ShadowFill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set shadow style
	obj.ShadowFill.Solid_Color = Color.DarkGreen
	'set shadow color
	obj.ShadowX = 10F
	'set shadow position
	obj.ShadowY = 12F
	obj.ShowShadow = True
	'show shadow or not
	obj.SetTransparency(0.5F)

	Dim item As RasterEdge.Imaging.Drawing.REItemEx = obj.CreateAnnotationItem(newPage)
	newPage.AddFloatingItem(item)

	newPage.MergeItemsToPage()

	doc.Save(annotatedFilePath)

End Sub
VB.NET PPT: PPT Document Rubber Stamp Annotation Drawing
'''<summary>
''' Draw and burn a rubber stamp annoation on the first page of a PowerPoint document  
''' </summary>
Public Shared Sub PowerPointAnnotation(filePath As [String], pageIdx As Integer, annotatedFilePath As [String])

	Dim doc As New PPTXDocument(filePath)

	Dim newPage As BasePage = doc.GetPage(0)

	Dim obj As New RectangleAnnotation()

	' set annotation size 
	obj.X = 470F
	obj.Y = 420F
	obj.Width = 561F
	obj.Height = 228F

	'set annotation edge property
	obj.OutLine = New LinePen()
	obj.OutLine.Width = 5F
	'set annotation edge width
	obj.OutLine.Brush = New AnnotationBrush()
	obj.OutLine.Brush.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set annotation edge style
	obj.OutLine.Brush.Solid_Color = Color.Blue
	'set annotation edge color
	'set the property of filled shape
	obj.Fill = New AnnotationBrush()

	obj.Fill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set filled shape style
	obj.Fill.Solid_Color = Color.Gray
	'set filled shape color
	'set the property of shadow
	obj.ShadowFill = New AnnotationBrush()
	obj.ShadowFill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set shadow style
	obj.ShadowFill.Solid_Color = Color.DarkGreen
	'set shadow color
	obj.ShadowX = 10F
	'set shadow position
	obj.ShadowY = 12F
	obj.ShowShadow = True
	'show shadow or not
	obj.SetTransparency(0.5F)

	Dim item As RasterEdge.Imaging.Drawing.REItemEx = obj.CreateAnnotationItem(newPage)
	newPage.AddFloatingItem(item)

	newPage.MergeItemsToPage()

	doc.Save(annotatedFilePath)

End Sub
VB.NET PPT: Insert and Customize Text Annotation on PPT Document
'''<summary>
''' Draw and burn a text annoation on the first page of a PowerPoint document  
''' </summary>
Public Shared Sub PowerPointAnnotation(filePath As [String], pageIdx As Integer, annotatedFilePath As [String])

	Dim doc As New PPTXDocument(filePath)

	Dim newPage As BasePage = doc.GetPage(0)

	Dim obj As New RectangleAnnotation()

	' set annotation size 
	obj.X = 470F
	obj.Y = 420F
	obj.Width = 561F
	obj.Height = 228F

	'set annotation edge property
	obj.OutLine = New LinePen()
	obj.OutLine.Width = 5F
	'set annotation edge width
	obj.OutLine.Brush = New AnnotationBrush()
	obj.OutLine.Brush.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set annotation edge style
	obj.OutLine.Brush.Solid_Color = Color.Blue
	'set annotation edge color
	'set the property of filled shape
	obj.Fill = New AnnotationBrush()

	obj.Fill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set filled shape style
	obj.Fill.Solid_Color = Color.Gray
	'set filled shape color
	'set the property of shadow
	obj.ShadowFill = New AnnotationBrush()
	obj.ShadowFill.FillType = RasterEdge.Imaging.Annotation.FillType.Solid
	'set shadow style
	obj.ShadowFill.Solid_Color = Color.DarkGreen
	'set shadow color
	obj.ShadowX = 10F
	'set shadow position
	obj.ShadowY = 12F
	obj.ShowShadow = True
	'show shadow or not
	obj.SetTransparency(0.5F)

	Dim item As RasterEdge.Imaging.Drawing.REItemEx = obj.CreateAnnotationItem(newPage)
	newPage.AddFloatingItem(item)

	newPage.MergeItemsToPage()

	doc.Save(annotatedFilePath)

End Sub


Recommend this to Google+


RasterEdge.com is professional provider of ASP.NET MVC Document Viewer, ASP.NET PDF Viewer, MVC PDF Viewer document, content and imaging solutions, available for ASP.NET AJAX, Silverlight, Windows Forms as well as WPF. We are dedicated to provide powerful & profession imaging controls, PDF document, image to pdf files and components for capturing, viewing, processing, converting, compressing and stroing images, documents and more.

©2000-2017 Raster Edge.com