Microsoft Office Interop `PowerPoint` vs IronPPPT：完全なC#比較

using PowerPoint = Microsoft.Office.Interop.PowerPoint;
using System.Runtime.InteropServices;

PowerPoint.Application app = null;
PowerPoint.Presentation presentation = null;

try
{
    // Create PowerPoint application instance
    app = new PowerPoint.Application();

    // Create a new presentation with window hidden
    presentation = app.Presentations.Add(MsoTriState.msoTrue);

    // Add a slide to the presentation
    var slide = presentation.Slides.Add(1, PowerPoint.PpSlideLayout.ppLayoutText);

    // Access shape and add text (with error-prone indexing)
    slide.Shapes[1].TextFrame.TextRange.Text = "Hello from Interop!";
    slide.Shapes[2].TextFrame.TextRange.Text = "This requires Office installation";

    // Save the presentation to a file
    presentation.SaveAs(@"C:\TestInterop.pptx", 
        PowerPoint.PpSaveAsFileType.ppSaveAsOpenXMLPresentation);
}
finally
{
    // Manual cleanup to prevent memory leaks
    if (presentation != null)
    {
        presentation.Close();
        Marshal.ReleaseComObject(presentation);
    }

    if (app != null)
    {
        app.Quit();
        Marshal.ReleaseComObject(app);
    }

    // Force garbage collection
    GC.Collect();
    GC.WaitForPendingFinalizers();
}

Imports PowerPoint = Microsoft.Office.Interop.PowerPoint
Imports System.Runtime.InteropServices

Dim app As PowerPoint.Application = Nothing
Dim presentation As PowerPoint.Presentation = Nothing

Try
    ' Create PowerPoint application instance
    app = New PowerPoint.Application()

    ' Create a new presentation with window hidden
    presentation = app.Presentations.Add(MsoTriState.msoTrue)

    ' Add a slide to the presentation
    Dim slide = presentation.Slides.Add(1, PowerPoint.PpSlideLayout.ppLayoutText)

    ' Access shape and add text (with error-prone indexing)
    slide.Shapes(1).TextFrame.TextRange.Text = "Hello from Interop!"
    slide.Shapes(2).TextFrame.TextRange.Text = "This requires Office installation"

    ' Save the presentation to a file
    presentation.SaveAs("C:\TestInterop.pptx", PowerPoint.PpSaveAsFileType.ppSaveAsOpenXMLPresentation)
Finally
    ' Manual cleanup to prevent memory leaks
    If presentation IsNot Nothing Then
        presentation.Close()
        Marshal.ReleaseComObject(presentation)
    End If

    If app IsNot Nothing Then
        app.Quit()
        Marshal.ReleaseComObject(app)
    End If

    ' Force garbage collection
    GC.Collect()
    GC.WaitForPendingFinalizers()
End Try

using IronPPT;
using IronPPT.Models;

// Create a new empty presentation
var document = new PresentationDocument();

// Add text to the first slide with clear, intuitive API
document.Slides[0].TextBoxes[0].AddText("Hello, World!");
document.Slides[0].TextBoxes[1].AddText("Welcome to IronPPT!");

// Add a second slide with custom layout
var slide = new Slide();
slide.TextBoxes.Add(new TextBox 
{ 
    Text = "Second slide content",
    Position = (100, 100)
});
document.AddSlide(slide);

// Save the presentation to a file (supports various output paths)
document.Save("presentation.pptx");

// Alternative: Save to stream for web applications
using (var stream = new MemoryStream())
{
    document.Save(stream);
    // Return stream to web client
}

Imports IronPPT
Imports IronPPT.Models
Imports System.IO

' Create a new empty presentation
Dim document As New PresentationDocument()

' Add text to the first slide with clear, intuitive API
document.Slides(0).TextBoxes(0).AddText("Hello, World!")
document.Slides(0).TextBoxes(1).AddText("Welcome to IronPPT!")

' Add a second slide with custom layout
Dim slide As New Slide()
slide.TextBoxes.Add(New TextBox With {
    .Text = "Second slide content",
    .Position = (100, 100)
})
document.AddSlide(slide)

' Save the presentation to a file (supports various output paths)
document.Save("presentation.pptx")

' Alternative: Save to stream for web applications
Using stream As New MemoryStream()
    document.Save(stream)
    ' Return stream to web client
End Using

using IronPPT;
using IronPPT.Models;
using IronPPT.Enums;
using IronPPT.Models.Styles;

// Load an existing presentation
var document = new PresentationDocument("presentation.pptx");
Slide slide = new Slide();

// Add a rectangle shape with custom styling
Shape shape = new Shape
{
    Type = ShapeType.Rectangle,
    FillColor = Color.LightBlue,
    OutlineColor = Color.Black,
    Width = 200,
    Height = 100,
    Position = (200, 50),
    OutlineWidth = 2.5f,
    CornerRadius = 10
};
slide.AddShape(shape);

// Add multiple shapes in a loop
var colors = new[] { Color.Red, Color.Green, Color.Blue };
for (int i = 0; i < colors.Length; i++)
{
    slide.AddShape(new Shape
    {
        Type = ShapeType.Circle,
        FillColor = colors[i],
        Width = 50,
        Height = 50,
        Position = (100 + (i * 60), 300)
    });
}

// Add an Image with error handling
try
{
    Image image = new Image();
    image.LoadFromFile("IronPPT.png");
    var img = slide.AddImage(image);
    img.Position = (100, 200);
    img.Width = 400;
    img.Height = 200;
    img.MaintainAspectRatio = true;
}
catch (FileNotFoundException ex)
{
    // Handle missing image gracefully
    Console.WriteLine($"Image not found: {ex.Message}");
}

// Add the slide to the document and save
document.AddSlide(slide);
document.Save("presentation.pptx");

Imports IronPPT
Imports IronPPT.Models
Imports IronPPT.Enums
Imports IronPPT.Models.Styles

' Load an existing presentation
Dim document As New PresentationDocument("presentation.pptx")
Dim slide As New Slide()

' Add a rectangle shape with custom styling
Dim shape As New Shape With {
    .Type = ShapeType.Rectangle,
    .FillColor = Color.LightBlue,
    .OutlineColor = Color.Black,
    .Width = 200,
    .Height = 100,
    .Position = (200, 50),
    .OutlineWidth = 2.5F,
    .CornerRadius = 10
}
slide.AddShape(shape)

' Add multiple shapes in a loop
Dim colors = {Color.Red, Color.Green, Color.Blue}
For i As Integer = 0 To colors.Length - 1
    slide.AddShape(New Shape With {
        .Type = ShapeType.Circle,
        .FillColor = colors(i),
        .Width = 50,
        .Height = 50,
        .Position = (100 + (i * 60), 300)
    })
Next

' Add an Image with error handling
Try
    Dim image As New Image()
    image.LoadFromFile("IronPPT.png")
    Dim img = slide.AddImage(image)
    img.Position = (100, 200)
    img.Width = 400
    img.Height = 200
    img.MaintainAspectRatio = True
Catch ex As FileNotFoundException
    ' Handle missing image gracefully
    Console.WriteLine($"Image not found: {ex.Message}")
End Try

' Add the slide to the document and save
document.AddSlide(slide)
document.Save("presentation.pptx")

using IronPPT;
using IronPPT.Models;
using IronPPT.Enums;
using IronPPT.Models.Styles;

// Create a new presentation
var document = new PresentationDocument();
Slide slide = new Slide();

// Define the paragraph style with complete options
var style = new ParagraphStyle()
{
    NoBullet = true,
    RightToLeft = false,
    Indent = 10.00,
    Alignment = TextAlignmentTypeValues.Center,
    LineSpacing = 1.5,
    SpaceBefore = 12,
    SpaceAfter = 6
};

// Create a paragraph with the style
var paragraph = new Paragraph();
paragraph.Style = style;
paragraph.AddText("This is a sample paragraph with custom styles applied.");

// Add text with different formatting within the same paragraph
paragraph.AddText(" This text is bold.", new TextStyle 
{ 
    Bold = true,
    FontSize = 14
});

paragraph.AddText(" This text is italic and red.", new TextStyle 
{ 
    Italic = true,
    Color = Color.Red,
    FontSize = 14
});

// Create a bullet list
var bulletStyle = new ParagraphStyle()
{
    NoBullet = false,
    BulletType = BulletTypeValues.Circle,
    Indent = 20.00,
    Alignment = TextAlignmentTypeValues.Left
};

var bulletPoints = new[]
{
    "First bullet point",
    "Second bullet point with sub-items",
    "Third bullet point"
};

foreach (var point in bulletPoints)
{
    var bulletPara = new Paragraph();
    bulletPara.Style = bulletStyle;
    bulletPara.AddText(point);
    slide.AddParagraph(bulletPara);
}

// Add the slide to the document
document.AddSlide(slide);

// Save the presentation to a file
document.Save("presentation.pptx");

Imports IronPPT
Imports IronPPT.Models
Imports IronPPT.Enums
Imports IronPPT.Models.Styles

' Create a new presentation
Dim document As New PresentationDocument()
Dim slide As New Slide()

' Define the paragraph style with complete options
Dim style As New ParagraphStyle() With {
    .NoBullet = True,
    .RightToLeft = False,
    .Indent = 10.0,
    .Alignment = TextAlignmentTypeValues.Center,
    .LineSpacing = 1.5,
    .SpaceBefore = 12,
    .SpaceAfter = 6
}

' Create a paragraph with the style
Dim paragraph As New Paragraph()
paragraph.Style = style
paragraph.AddText("This is a sample paragraph with custom styles applied.")

' Add text with different formatting within the same paragraph
paragraph.AddText(" This text is bold.", New TextStyle With {
    .Bold = True,
    .FontSize = 14
})

paragraph.AddText(" This text is italic and red.", New TextStyle With {
    .Italic = True,
    .Color = Color.Red,
    .FontSize = 14
})

' Create a bullet list
Dim bulletStyle As New ParagraphStyle() With {
    .NoBullet = False,
    .BulletType = BulletTypeValues.Circle,
    .Indent = 20.0,
    .Alignment = TextAlignmentTypeValues.Left
}

Dim bulletPoints = {
    "First bullet point",
    "Second bullet point with sub-items",
    "Third bullet point"
}

For Each point In bulletPoints
    Dim bulletPara As New Paragraph()
    bulletPara.Style = bulletStyle
    bulletPara.AddText(point)
    slide.AddParagraph(bulletPara)
Next

' Add the slide to the document
document.AddSlide(slide)

' Save the presentation to a file
document.Save("presentation.pptx")

using Microsoft.Office.Interop.PowerPoint;

try 
{
    // Attempt to open an existing PowerPoint file
    var app = new Application();
    var presentation = app.Presentations.Open(@"C:\Slides\Deck.pptx");
}
catch (COMException ex)
{
    // Common errors in production:
    // 0x80040154: Class not registered (PowerPoint not installed)
    // 0x800706BA: The RPC server is unavailable
    // 0x80080005: Server execution failed
    Console.WriteLine($"COM Error: {ex.ErrorCode:X} - {ex.Message}");
}

Imports Microsoft.Office.Interop.PowerPoint

Try
    ' Attempt to open an existing PowerPoint file
    Dim app As New Application()
    Dim presentation = app.Presentations.Open("C:\Slides\Deck.pptx")
Catch ex As COMException
    ' Common errors in production:
    ' 0x80040154: Class not registered (PowerPoint not installed)
    ' 0x800706BA: The RPC server is unavailable
    ' 0x80080005: Server execution failed
    Console.WriteLine($"COM Error: {ex.ErrorCode:X} - {ex.Message}")
End Try

// This will crash if called from a background thread in a web app or service
public async Task CreatePresentationAsync()
{
    await Task.Run(() =>
    {
        var app = new Application(); // Throws exception!
        // InvalidCastException: Unable to cast COM object
    });
}

Imports System.Threading.Tasks

' This will crash if called from a background thread in a web app or service
Public Async Function CreatePresentationAsync() As Task
    Await Task.Run(Sub()
                       Dim app = New Application() ' Throws exception!
                       ' InvalidCastException: Unable to cast COM object
                   End Sub)
End Function

public void CreatePresentationWithSTA()
{
    Presentation presentation = null;
    Application app = null;

    Thread thread = new Thread(() =>
    {
        try
        {
            // Create a new PowerPoint application
            app = new Application();

            // Add a presentation and slide
            presentation = app.Presentations.Add();
            var slide = presentation.Slides.Add(1, PpSlideLayout.ppLayoutText);

            // Add content
            slide.Shapes[1].TextFrame.TextRange.Text = "STA Thread Required";

            // Save and close the presentation
            presentation.SaveAs(@"C:\output.pptx");
        }
        finally
        {
            // Cleanup
            if (presentation != null)
            {
                presentation.Close();
                Marshal.ReleaseComObject(presentation);
            }

            if (app != null)
            {
                app.Quit();
                Marshal.ReleaseComObject(app);
            }
        }
    });

    // Set thread apartment state and start
    thread.SetApartmentState(ApartmentState.STA);
    thread.Start();
    thread.Join();
}

Option Strict On



Imports System.Threading
Imports System.Runtime.InteropServices
Imports Microsoft.Office.Interop.PowerPoint

Public Sub CreatePresentationWithSTA()
    Dim presentation As Presentation = Nothing
    Dim app As Application = Nothing

    Dim thread As New Thread(Sub()
        Try
            ' Create a new PowerPoint application
            app = New Application()

            ' Add a presentation and slide
            presentation = app.Presentations.Add()
            Dim slide = presentation.Slides.Add(1, PpSlideLayout.ppLayoutText)

            ' Add content
            slide.Shapes(1).TextFrame.TextRange.Text = "STA Thread Required"

            ' Save and close the presentation
            presentation.SaveAs("C:\output.pptx")
        Finally
            ' Cleanup
            If presentation IsNot Nothing Then
                presentation.Close()
                Marshal.ReleaseComObject(presentation)
            End If

            If app IsNot Nothing Then
                app.Quit()
                Marshal.ReleaseComObject(app)
            End If
        End Try
    End Sub)

    ' Set thread apartment state and start
    thread.SetApartmentState(ApartmentState.STA)
    thread.Start()
    thread.Join()
End Sub

public void MemoryLeakExample()
{
    var app = new Application();
    var presentations = app.Presentations;
    var presentation = presentations.Open(@"C:\Slides\Deck.pptx");
    var slides = presentation.Slides;

    foreach (Slide slide in slides)
    {
        var shapes = slide.Shapes;
        foreach (Shape shape in shapes)
        {
            // Each shape is a COM object that must be released
            if (shape.HasTextFrame == MsoTriState.msoTrue)
            {
                var textFrame = shape.TextFrame;
                var textRange = textFrame.TextRange;
                Console.WriteLine(textRange.Text);

                // Without these, memory leaks occur:
                Marshal.ReleaseComObject(textRange);
                Marshal.ReleaseComObject(textFrame);
            }
            Marshal.ReleaseComObject(shape);
        }
        Marshal.ReleaseComObject(shapes);
        Marshal.ReleaseComObject(slide);
    }

    // More cleanup needed
    Marshal.ReleaseComObject(slides);
    presentation.Close();
    Marshal.ReleaseComObject(presentation);
    Marshal.ReleaseComObject(presentations);
    app.Quit();
    Marshal.ReleaseComObject(app);

    // Force garbage collection
    GC.Collect();
    GC.WaitForPendingFinalizers();
}

Imports System.Runtime.InteropServices

Public Sub MemoryLeakExample()
    Dim app = New Application()
    Dim presentations = app.Presentations
    Dim presentation = presentations.Open("C:\Slides\Deck.pptx")
    Dim slides = presentation.Slides

    For Each slide As Slide In slides
        Dim shapes = slide.Shapes
        For Each shape As Shape In shapes
            ' Each shape is a COM object that must be released
            If shape.HasTextFrame = MsoTriState.msoTrue Then
                Dim textFrame = shape.TextFrame
                Dim textRange = textFrame.TextRange
                Console.WriteLine(textRange.Text)

                ' Without these, memory leaks occur:
                Marshal.ReleaseComObject(textRange)
                Marshal.ReleaseComObject(textFrame)
            End If
            Marshal.ReleaseComObject(shape)
        Next
        Marshal.ReleaseComObject(shapes)
        Marshal.ReleaseComObject(slide)
    Next

    ' More cleanup needed
    Marshal.ReleaseComObject(slides)
    presentation.Close()
    Marshal.ReleaseComObject(presentation)
    Marshal.ReleaseComObject(presentations)
    app.Quit()
    Marshal.ReleaseComObject(app)

    ' Force garbage collection
    GC.Collect()
    GC.WaitForPendingFinalizers()
End Sub

// Interop approach - verbose and brittle
var app = new Application();
var presentation = app.Presentations.Add(MsoTriState.msoTrue);
var slide = presentation.Slides.Add(1, PpSlideLayout.ppLayoutText);

// Magic number indexing - no IntelliSense help
slide.Shapes[1].TextFrame.TextRange.Text = "Title Text";
slide.Shapes[2].TextFrame.TextRange.Text = "Body Text";

// What if shape[2] doesn't exist? Runtime error!
// No compile-time safety

presentation.SaveAs(@"C:\test.pptx", 
    PpSaveAsFileType.ppSaveAsOpenXMLPresentation,
    MsoTriState.msoTriStateMixed);

presentation.Close();
app.Quit();

// Don't forget cleanup!
Marshal.ReleaseComObject(slide);
Marshal.ReleaseComObject(presentation);
Marshal.ReleaseComObject(app);

Imports Microsoft.Office.Interop.PowerPoint
Imports System.Runtime.InteropServices

' Interop approach - verbose and brittle
Dim app As New Application()
Dim presentation As Presentation = app.Presentations.Add(MsoTriState.msoTrue)
Dim slide As Slide = presentation.Slides.Add(1, PpSlideLayout.ppLayoutText)

' Magic number indexing - no IntelliSense help
slide.Shapes(1).TextFrame.TextRange.Text = "Title Text"
slide.Shapes(2).TextFrame.TextRange.Text = "Body Text"

' What if shape[2] doesn't exist? Runtime error!
' No compile-time safety

presentation.SaveAs("C:\test.pptx", PpSaveAsFileType.ppSaveAsOpenXMLPresentation, MsoTriState.msoTriStateMixed)

presentation.Close()
app.Quit()

' Don't forget cleanup!
Marshal.ReleaseComObject(slide)
Marshal.ReleaseComObject(presentation)
Marshal.ReleaseComObject(app)

using IronPPT;
using IronPPT.Models;

// IronPPT approach - clean and type-safe
var document = new PresentationDocument();

// Clear property access with IntelliSense
document.Slides[0].TextBoxes.Add(new TextBox 
{ 
    Text = "Title Text",
    Position = (50, 50)
});

document.Slides[0].TextBoxes.Add(new TextBox 
{ 
    Text = "Body Text",
    Position = (50, 150)
});

// Simple save - no magic constants
document.Save("presentation.pptx");

// Automatic resource cleanup with IDisposable

Imports IronPPT
Imports IronPPT.Models

' IronPPT approach - clean and type-safe
Dim document As New PresentationDocument()

' Clear property access with IntelliSense
document.Slides(0).TextBoxes.Add(New TextBox With {
    .Text = "Title Text",
    .Position = (50, 50)
})

document.Slides(0).TextBoxes.Add(New TextBox With {
    .Text = "Body Text",
    .Position = (50, 150)
})

' Simple save - no magic constants
document.Save("presentation.pptx")

' Automatic resource cleanup with IDisposable