PM> Install-Package Spire.Presentation

using Spire.Presentation;
using Spire.Presentation.Diagrams;
using Spire.Presentation.Drawing;

namespace AddSmartArt
{
    class Program
    {
        static void Main(string[] args)
        {
            //Presentationクラスのインスタンスを作成する
            Presentation presentation = new Presentation();

            //最初のスライドを取得する
            ISlide slide = presentation.Slides[0];

            //指定されたスライドにSmartArtを挿入する
            ISmartArt smartArt = slide.Shapes.AppendSmartArt(20, 40, 300, 300, SmartArtLayoutType.Gear);

            //SmartArtのスタイルと色を設定する
            smartArt.Style = SmartArtStyleType.SubtleEffect;
            smartArt.ColorStyle = SmartArtColorType.GradientLoopAccent3;

            //すべてのデフォルトノードを削除する
            foreach (object a in smartArt.Nodes) 
                smartArt.Nodes.RemoveNode(0);

            //SmartArtに2つのノードを追加する
            ISmartArtNode node1 = smartArt.Nodes.AddNode();
            node1.TextFrame.Text = "最適化";
            ISmartArtNode node2 = smartArt.Nodes.AddNode();
            node2.TextFrame.Text = "デザイン";

            //テキストの塗りつぶしのスタイルと色を最初のノードに設定する
            node1.TextFrame.TextRange.Fill.FillType = FillFormatType.Solid;
            node1.TextFrame.TextRange.Fill.SolidColor.KnownColor = KnownColors.DarkRed;

            //結果ファイルを保存する
            presentation.SaveToFile("AddSmartArt.pptx", FileFormat.Pptx2007);
        }
    }
}

Imports Spire.Presentation
Imports Spire.Presentation.Diagrams
Imports Spire.Presentation.Drawing

Namespace AddSmartArt
    Friend Class Program
        Private Shared Sub Main(ByVal args As String())
            'Presentationクラスのインスタンスを作成する
            Dim presentation As Presentation = New Presentation()

            '最初のスライドを取得する
            Dim slide As ISlide = presentation.Slides(0)

            '指定されたスライドにSmartArtを挿入する
            Dim smartArt As ISmartArt = slide.Shapes.AppendSmartArt(20, 40, 300, 300, SmartArtLayoutType.Gear)

            'SmartArtのスタイルと色を設定する
            smartArt.Style = SmartArtStyleType.SubtleEffect
            smartArt.ColorStyle = SmartArtColorType.GradientLoopAccent3

            'すべてのデフォルトノードを削除する
            For Each a As Object In smartArt.Nodes
                smartArt.Nodes.RemoveNode(0)
            Next

            'SmartArtに2つのノードを追加する
            Dim node1 As ISmartArtNode = smartArt.Nodes.AddNode()
            node1.TextFrame.Text = "最適化"
            Dim node2 As ISmartArtNode = smartArt.Nodes.AddNode()
            node2.TextFrame.Text = "デザイン"

            'テキストの塗りつぶしのスタイルと色を最初のノードに設定する
            node1.TextFrame.TextRange.Fill.FillType = FillFormatType.Solid
            node1.TextFrame.TextRange.Fill.SolidColor.KnownColor = KnownColors.DarkRed

            '結果ファイルを保存する
            presentation.SaveToFile("AddSmartArt.pptx", FileFormat.Pptx2007)
        End Sub
    End Class
End Namespace