PowerPointで「Shape Type」をVBAで操作する方法【初心者向け解決ガイド】

2025.10.102026.01.27

PowerPointでプレゼンテーションを作成していると、図形（Shape）を使うことが多いと思います。でも、その図形をVBA（Visual Basic for Applications）を使って操作できるって知っていましたか？もし、「どうやって？」と不安に思う方も大丈夫！この記事では、初心者の方でもわかりやすく、PowerPointの図形をVBAで操作する方法を紹介します。難しいと思われがちなVBAも、少しずつ学んでいけばきっと楽しさを感じられるはずです！

VBAで図形を操作する基本の「き」
VBAで図形を種類ごとに操作する方法
1. 図形の色を変える
2. 図形のサイズを変更する
よくある質問や疑問
1. Q1: VBAを使うにはどこでコードを実行すればいいですか？
2. Q2: VBAを使うのは難しくないですか？
まとめ

VBAで図形を操作する基本の「き」

PowerPointのイメージ

VBA（Visual Basic for Applications）を使えば、PowerPointで図形を自動的に作成したり、変更したりすることができます。まずは、VBAで「Shape Type」をどのように扱うかを見ていきましょう。

Shape Typeとは？

PowerPointでは、図形（Shape）にはいくつかの種類があります。たとえば、四角形や円、線などがその一例です。それぞれの図形をVBAで扱うためには、「Shape Type」を理解することが必要です。

Shape Typeは、図形の種類を識別するための番号で、VBAではこの番号を使って図形を操作します。

Shape Typeの例

PowerPointで使用される主要なShape Typeの例を挙げてみましょう

ここがポイント！

msoShapeRectangle（四角形）
msoShapeOval（楕円）
msoShapeLine（線）
msoShapeRectangle（長方形）

これらのShape TypeをVBAコードで指定することで、図形の種類に応じた操作が可能になります。

VBAで図形を作成する基本コード

では、実際にVBAで図形を作成してみましょう。以下のコードは、PowerPointで四角形（長方形）を作成するものです。

Sub CreateRectangle()
    ' 新しいスライドを作成
    Dim slide As slide
    Set slide = ActivePresentation.Slides.Add(1, ppLayoutText)
    
    ' 長方形を追加
    slide.Shapes.AddShape msoShapeRectangle, 100, 100, 200, 150
End Sub

このコードを実行すると、指定された位置（100, 100）に幅200、高さ150の長方形が追加されます。

VBAで図形を種類ごとに操作する方法

VBAでは、Shape Typeを指定して図形を操作することができます。例えば、図形の色を変えたり、大きさを変えたりすることが可能です。これから、実際にどのように操作するかを見ていきます。

図形の色を変える

次に、作成した長方形の色を変更する方法を紹介します。以下のコードでは、図形の色を赤に変更しています。

Sub ChangeShapeColor()
    ' 新しいスライドを作成
    Dim slide As slide
    Set slide = ActivePresentation.Slides.Add(1, ppLayoutText)
    
    ' 長方形を追加
    Dim shape As shape
    Set shape = slide.Shapes.AddShape(msoShapeRectangle, 100, 100, 200, 150)
    
    ' 図形の色を赤に変更
    shape.Fill.ForeColor.RGB = RGB(255, 0, 0)
End Sub

このコードを実行すると、作成した長方形の色が赤に変わります。色を変更したい場合は、RGB関数でカラーコードを指定することができます。

図形のサイズを変更する

次に、図形の大きさを変更する方法を見てみましょう。以下のコードでは、長方形のサイズを変更しています。

Sub ResizeShape()
    ' 新しいスライドを作成
    Dim slide As slide
    Set slide = ActivePresentation.Slides.Add(1, ppLayoutText)
    
    ' 長方形を追加
    Dim shape As shape
    Set shape = slide.Shapes.AddShape(msoShapeRectangle, 100, 100, 200, 150)
    
    ' 図形のサイズを変更
    shape.Width = 300
    shape.Height = 200
End Sub

このコードでは、長方形の幅を300、高さを200に変更しています。

よくある質問や疑問

Q1: VBAを使うにはどこでコードを実行すればいいですか？

VBAコードはPowerPointの「開発」タブから「Visual Basic」エディターを開くことで実行できます。エディターが開いたら、コードを入力して実行することができます。

Q2: VBAを使うのは難しくないですか？

初めは難しいかもしれませんが、少しずつ理解を深めることで、どんどん楽しくなります。コードの基本を少しずつ覚え、試しながら使ってみると良いでしょう！

まとめ

PowerPointの図形をVBAで操作する方法は、思っているよりも簡単で、便利です。初心者でも基本のコードを覚えれば、自分のプレゼンテーションをもっと魅力的にカスタマイズできるようになります。最初は難しく感じるかもしれませんが、少しずつ挑戦してみてくださいね。わからないことがあれば、いつでも質問をお寄せください！

他にも疑問やお悩み事があればお気軽にLINEからお声掛けください。