Creating header and text boxes in slide

[kdr13]

Need VB code for creating header and text boxes in slide + Inserting text in each of these boxes.
Also need to leave the textboxes without a border line / no color border line.

Thanks a lot!

[amy.zhao]

Hi,

Thanks for your posting.
Sorry that we don't support to add header and textboxes. But a rectangle shape has nearly same functions as textbox, I recommand you to use rectangle shapes if you can.
Sharing some code to add rectangle shape:

Code: Select all

 Dim shape As IAutoShape = presentation.Slides(0).Shapes.AppendShape(ShapeType.Rectangle, New RectangleF(10, 10, 200, 100))

shape.Fill.FillType = FillFormatType.Solid
shape.Fill.SolidColor.Color = Color.White
shape.ShapeStyle.LineColor.Color = Color.White

shape.AppendTextFrame("Demo of Spire.Presentation")
Dim textRange As TextRange = shape.TextFrame.TextRange
textRange.Fill.FillType = Spire.Presentation.Drawing.FillFormatType.Solid
textRange.Fill.SolidColor.Color = Color.Black

Please feel free to contact us if you need further assistance.

Best Regards,
Amy
E-iceblue support team