IronPPTを使用したC# Microsoft Office相互運用アプリケーション代替

using PowerPoint = Microsoft.Office.Interop.PowerPoint;
var app = new PowerPoint.Application();
// Create a new presentation
var presentation = app.Presentations.Add(MsoTriState.msoTrue);
// Add a slide to the presentation
var slide = presentation.Slides.Add(1, PowerPoint.PpSlideLayout.ppLayoutText);
// Add some text to the slide
slide.Shapes[1].TextFrame.TextRange.Text = "Hello from Interop!";
// Save the presentation to a file
presentation.SaveAs(@"C:\TestInterop.pptx");
// Close the presentation and quit the application
presentation.Close();
app.Quit();

Imports PowerPoint = Microsoft.Office.Interop.PowerPoint
Private app = New PowerPoint.Application()
' Create a new presentation
Private presentation = app.Presentations.Add(MsoTriState.msoTrue)
' Add a slide to the presentation
Private slide = presentation.Slides.Add(1, PowerPoint.PpSlideLayout.ppLayoutText)
' Add some text to the slide
Private slide.Shapes(1).TextFrame.TextRange.Text = "Hello from Interop!"
' Save the presentation to a file
presentation.SaveAs("C:\TestInterop.pptx")
' Close the presentation and quit the application
presentation.Close()
app.Quit()

using IronPPT;
using IronPPT.Models;

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

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

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

Imports IronPPT
Imports IronPPT.Models

' Create a new empty presentation
Private document = New PresentationDocument()

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

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

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
Shape shape = new Shape
{
    Type = ShapeType.Rectangle,
    FillColor = Color.LightBlue,
    OutlineColor = Color.Black,
    Width = 200,
    Height = 100,
    Position = (200, 50)
};
slide.AddShape(shape);

// Add an Image
Image image = new Image();
image.LoadFromFile("IronPPT.png");
var img = slide.AddImage(image);
img.Position = (100, 200);
img.Width = 400;
img.Height = 200;

// 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
Private document = New PresentationDocument("presentation.pptx")
Private slide As New Slide()

' Add a rectangle shape
Private shape As New Shape With {
	.Type = ShapeType.Rectangle,
	.FillColor = Color.LightBlue,
	.OutlineColor = Color.Black,
	.Width = 200,
	.Height = 100,
	.Position = (200, 50)
}
slide.AddShape(shape)

' Add an Image
Dim image As New Image()
image.LoadFromFile("IronPPT.png")
Dim img = slide.AddImage(image)
img.Position = (100, 200)
img.Width = 400
img.Height = 200

' 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
var style = new ParagraphStyle()
{
    NoBullet = true,
    RightToLeft = true,
    Indent = 10.00,
    Alignment = TextAlignmentTypeValues.Center,
};

// 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 the paragraph to the slide
document.AddSlide(slide);
slide.AddParagraph(paragraph);

// 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
Private document = New PresentationDocument()
Private slide As New Slide()

' Define the paragraph style
Private style = New ParagraphStyle() With {
	.NoBullet = True,
	.RightToLeft = True,
	.Indent = 10.00,
	.Alignment = TextAlignmentTypeValues.Center
}

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

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

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

using Microsoft.Office.Interop.PowerPoint;

// Attempt to open an existing PowerPoint file
var app = new Application();
var presentation = app.Presentations.Open(@"C:\Slides\Deck.pptx");

Imports Microsoft.Office.Interop.PowerPoint

' Attempt to open an existing PowerPoint file
Private app = New Application()
Private presentation = app.Presentations.Open("C:\Slides\Deck.pptx")

// This will crash if called from a background thread in a web app or service
var app = new Application();

' This will crash if called from a background thread in a web app or service
Dim app = New Application()

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

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

    // Save and close the presentation
    pres.SaveAs(@"C:\output.pptx");
    app.Quit();
});

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

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

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

	' Save and close the presentation
	pres.SaveAs("C:\output.pptx")
	app.Quit()
End Sub)

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

var app = new Application();
var presentation = app.Presentations.Open(@"C:\Slides\Deck.pptx");
// Forgetting to release COM objects correctly can lead to memory leaks
presentation.Close();
app.Quit();
// Forgot to release COM objects!

Dim app = New Application()
Dim presentation = app.Presentations.Open("C:\Slides\Deck.pptx")
' Forgetting to release COM objects correctly can lead to memory leaks
presentation.Close()
app.Quit()
' Forgot to release COM objects!

var app = new Application();
var presentation = app.Presentations.Add(MsoTriState.msoTrue);
var slide = presentation.Slides.Add(1, PpSlideLayout.ppLayoutText);
slide.Shapes[1].TextFrame.TextRange.Text = "Hello from Interop!";
presentation.SaveAs(@"C:\test.pptx");
presentation.Close();
app.Quit();

Dim app = New Application()
Dim presentation = app.Presentations.Add(MsoTriState.msoTrue)
Dim slide = presentation.Slides.Add(1, PpSlideLayout.ppLayoutText)
slide.Shapes(1).TextFrame.TextRange.Text = "Hello from Interop!"
presentation.SaveAs("C:\test.pptx")
presentation.Close()
app.Quit()

using IronPPT;
using IronPPT.Models;

// Create and save a simple presentation with IronPPT
var document = new PresentationDocument();
document.Save("presentation.pptx");

Imports IronPPT
Imports IronPPT.Models

' Create and save a simple presentation with IronPPT
Private document = New PresentationDocument()
document.Save("presentation.pptx")