Create two rectangles

The following example shows you how to create two rectangles .

C# example

using System;
using Independentsoft.Office;
using Independentsoft.Office.Presentation;
using Independentsoft.Office.Presentation.Drawing;

namespace Sample
{
    class Program
    {
        static void Main(string[] args)
        {
            Presentation presentation = new Presentation();

            GroupShape shapeTree = new GroupShape();
            shapeTree.ID = "1";
            shapeTree.Name = "ShapeTree";
            shapeTree.ShapeProperties.TransformGroup2D = new Independentsoft.Office.Drawing.TransformGroup2D();

            Independentsoft.Office.Drawing.TextRun run1 = new Independentsoft.Office.Drawing.TextRun("Hello World");

            Independentsoft.Office.Drawing.TextParagraph paragraph1 = new Independentsoft.Office.Drawing.TextParagraph();
            paragraph1.Alignment = Independentsoft.Office.Drawing.TextAlignmentType.Center;
            paragraph1.Content.Add(run1);

            ShapeTextBody textBody = new ShapeTextBody();
            textBody.Paragraphs.Add(paragraph1);
            textBody.TextBodyProperties.AutoFit = true;

            Shape shape1 = new Shape();
            shape1.ID = "2";
            shape1.Name = "Rectange 1";
            shape1.Locking = new Independentsoft.Office.Drawing.ShapeLocking();
            shape1.Locking.DisallowGrouping = true;
            shape1.Placeholder = new Placeholder(PlaceholderType.CenteredTitle);
            shape1.TextBody = textBody;

            Unit offsetX = new Unit(2, UnitType.Inch);
            Unit offsetY = new Unit(1, UnitType.Inch);

            Unit width = new Unit(6, UnitType.Inch);
            Unit height = new Unit(2, UnitType.Inch);

            Independentsoft.Office.Drawing.RgbHexColor color = new Independentsoft.Office.Drawing.RgbHexColor();
            color.Value = "FF0000"; //red

            Independentsoft.Office.Drawing.SolidFill fill = new Independentsoft.Office.Drawing.SolidFill();
            fill.ColorChoice = color;

            Independentsoft.Office.Drawing.Outline outline = new Independentsoft.Office.Drawing.Outline();
            outline.LineWidth = new Unit(3, UnitType.Pixel);
            outline.SolidFill = fill;

            shape1.ShapeProperties.Transform2D = new Independentsoft.Office.Drawing.Transform2D();
            shape1.ShapeProperties.Transform2D.Offset = new Independentsoft.Office.Drawing.Offset(offsetX, offsetY);
            shape1.ShapeProperties.Transform2D.Extents = new Independentsoft.Office.Drawing.Extents(width, height);
            shape1.ShapeProperties.PresetGeometry = new Independentsoft.Office.Drawing.PresetGeometry(Independentsoft.Office.Drawing.ShapeType.Rectangle);
            shape1.ShapeProperties.Outline = outline;

            Independentsoft.Office.Drawing.RgbHexColor color2 = new Independentsoft.Office.Drawing.RgbHexColor();
            color2.Value = "000000"; //black

            Independentsoft.Office.Drawing.SolidFill fill2 = new Independentsoft.Office.Drawing.SolidFill();
            fill2.ColorChoice = color2;

            Independentsoft.Office.Drawing.Outline outline2 = new Independentsoft.Office.Drawing.Outline();
            outline2.LineWidth = new Unit(1, UnitType.Pixel);
            outline2.SolidFill = fill2;

            Shape shape2 = new Shape();
            shape2.ID = "3";
            shape2.Name = "Rectange 2";
            shape2.Locking = new Independentsoft.Office.Drawing.ShapeLocking();
            shape2.Locking.DisallowGrouping = true;
            shape2.ShapeProperties.Transform2D = new Independentsoft.Office.Drawing.Transform2D();
            shape2.ShapeProperties.Transform2D.Offset = new Independentsoft.Office.Drawing.Offset(new Unit(5, UnitType.Inch), new Unit(5, UnitType.Inch));
            shape2.ShapeProperties.Transform2D.Extents = new Independentsoft.Office.Drawing.Extents(new Unit(1, UnitType.Inch), new Unit(1, UnitType.Inch));
            shape2.ShapeProperties.PresetGeometry = new Independentsoft.Office.Drawing.PresetGeometry(Independentsoft.Office.Drawing.ShapeType.Rectangle);
            shape2.ShapeProperties.Outline = outline2;

            shapeTree.Elements.Add(shape1);
            shapeTree.Elements.Add(shape2);

            CommonSlideData commonSlideData = new CommonSlideData();
            commonSlideData.ShapeTree = shapeTree;

            SlideLayout layout1 = new SlideLayout();
            layout1.CommonSlideData = GetLayoutCommonSlideData();

            Slide slide1 = new Slide();
            slide1.CommonSlideData = commonSlideData;
            slide1.Layout = layout1;

            SlideMaster master1 = new SlideMaster();
            master1.CommonSlideData = GetLayoutCommonSlideData();
            master1.Layouts.Add(layout1);

            master1.TextStyles = new SlideMasterTextStyles();
            master1.TextStyles.TitleStyle = new SlideMasterTitleTextStyle();
            master1.TextStyles.TitleStyle.ListLevel1TextStyle.DefaultTextRunProperties.FontSize = 44;

            presentation.Slides.Add(slide1);
            presentation.SlideMasters.Add(master1);

            presentation.SlideSize = new SlideSize(9144000, 6858000, SlideSizeType.Screen4x3);
            presentation.NotesSlideSize = new NotesSlideSize(6858000, 9144000);

            presentation.Save("c:\\test\\output.pptx", true);
        }

        static CommonSlideData GetLayoutCommonSlideData()
        {
            GroupShape shapeTree = new GroupShape();
            shapeTree.ID = "1";
            shapeTree.Name = "layout";

            shapeTree.ShapeProperties.TransformGroup2D = new Independentsoft.Office.Drawing.TransformGroup2D();

            CommonSlideData commonSlideData = new CommonSlideData();
            commonSlideData.ShapeTree = shapeTree;

            return commonSlideData;
        }
    }
}

VB example

Imports System
Imports Independentsoft.Office
Imports Independentsoft.Office.Presentation
Imports Independentsoft.Office.Presentation.Drawing

Module Module1
    Sub Main(ByVal args As String())

        Dim presentation As New Presentation()

        Dim shapeTree As New GroupShape()
        shapeTree.ID = "1"
        shapeTree.Name = "ShapeTree"
        shapeTree.ShapeProperties.TransformGroup2D = New Independentsoft.Office.Drawing.TransformGroup2D()

        Dim run1 As New Independentsoft.Office.Drawing.TextRun("Hello World")

        Dim paragraph1 As New Independentsoft.Office.Drawing.TextParagraph()
        paragraph1.Alignment = Independentsoft.Office.Drawing.TextAlignmentType.Center
        paragraph1.Content.Add(run1)

        Dim textBody As New ShapeTextBody()
        textBody.Paragraphs.Add(paragraph1)
        textBody.TextBodyProperties.AutoFit = True

        Dim shape1 As New Shape()
        shape1.ID = "2"
        shape1.Name = "Rectange 1"
        shape1.Locking = New Independentsoft.Office.Drawing.ShapeLocking()
        shape1.Locking.DisallowGrouping = True
        shape1.Placeholder = New Placeholder(PlaceholderType.CenteredTitle)
        shape1.TextBody = textBody

        Dim offsetX As New Unit(2, UnitType.Inch)
        Dim offsetY As New Unit(1, UnitType.Inch)

        Dim width As New Unit(6, UnitType.Inch)
        Dim height As New Unit(2, UnitType.Inch)

        Dim color As New Independentsoft.Office.Drawing.RgbHexColor()
        color.Value = "FF0000"
        'red
        Dim fill As New Independentsoft.Office.Drawing.SolidFill()
        fill.ColorChoice = color

        Dim outline As New Independentsoft.Office.Drawing.Outline()
        outline.LineWidth = New Unit(3, UnitType.Pixel)
        outline.SolidFill = fill

        shape1.ShapeProperties.Transform2D = New Independentsoft.Office.Drawing.Transform2D()
        shape1.ShapeProperties.Transform2D.Offset = New Independentsoft.Office.Drawing.Offset(offsetX, offsetY)
        shape1.ShapeProperties.Transform2D.Extents = New Independentsoft.Office.Drawing.Extents(width, height)
        shape1.ShapeProperties.PresetGeometry = New Independentsoft.Office.Drawing.PresetGeometry(Independentsoft.Office.Drawing.ShapeType.Rectangle)
        shape1.ShapeProperties.Outline = outline

        Dim color2 As New Independentsoft.Office.Drawing.RgbHexColor()
        color2.Value = "000000"
        'black
        Dim fill2 As New Independentsoft.Office.Drawing.SolidFill()
        fill2.ColorChoice = color2

        Dim outline2 As New Independentsoft.Office.Drawing.Outline()
        outline2.LineWidth = New Unit(1, UnitType.Pixel)
        outline2.SolidFill = fill2

        Dim shape2 As New Shape()
        shape2.ID = "3"
        shape2.Name = "Rectange 2"
        shape2.Locking = New Independentsoft.Office.Drawing.ShapeLocking()
        shape2.Locking.DisallowGrouping = True
        shape2.ShapeProperties.Transform2D = New Independentsoft.Office.Drawing.Transform2D()
        shape2.ShapeProperties.Transform2D.Offset = New Independentsoft.Office.Drawing.Offset(New Unit(5, UnitType.Inch), New Unit(5, UnitType.Inch))
        shape2.ShapeProperties.Transform2D.Extents = New Independentsoft.Office.Drawing.Extents(New Unit(1, UnitType.Inch), New Unit(1, UnitType.Inch))
        shape2.ShapeProperties.PresetGeometry = New Independentsoft.Office.Drawing.PresetGeometry(Independentsoft.Office.Drawing.ShapeType.Rectangle)
        shape2.ShapeProperties.Outline = outline2

        shapeTree.Elements.Add(shape1)
        shapeTree.Elements.Add(shape2)

        Dim commonSlideData As New CommonSlideData()
        commonSlideData.ShapeTree = shapeTree

        Dim layout1 As New SlideLayout()
        layout1.CommonSlideData = GetLayoutCommonSlideData()

        Dim slide1 As New Slide()
        slide1.CommonSlideData = commonSlideData
        slide1.Layout = layout1

        Dim master1 As New SlideMaster()
        master1.CommonSlideData = GetLayoutCommonSlideData()
        master1.Layouts.Add(layout1)

        master1.TextStyles = New SlideMasterTextStyles()
        master1.TextStyles.TitleStyle = New SlideMasterTitleTextStyle()
        master1.TextStyles.TitleStyle.ListLevel1TextStyle.DefaultTextRunProperties.FontSize = 44

        presentation.Slides.Add(slide1)
        presentation.SlideMasters.Add(master1)

        presentation.SlideSize = New SlideSize(9144000, 6858000, SlideSizeType.Screen4x3)
        presentation.NotesSlideSize = New NotesSlideSize(6858000, 9144000)

        presentation.Save("c:\test\output.pptx", True)

    End Sub

    Function GetLayoutCommonSlideData() As CommonSlideData
        Dim shapeTree As New GroupShape()
        shapeTree.ID = "1"
        shapeTree.Name = "layout"

        shapeTree.ShapeProperties.TransformGroup2D = New Independentsoft.Office.Drawing.TransformGroup2D()

        Dim commonSlideData As New CommonSlideData()
        commonSlideData.ShapeTree = shapeTree

        Return commonSlideData
    End Function

End Module

Independentsoft - any library, any programming language

Presentation .NET > Tutorial > Create two rectangles

Need help? Ask our developers: