【PowerPoint VBA】スライドのシェイプ数を表示するマクロ

はじめに

PowerPoint VBAを使った自動化ツールを実装している際に、検証としてシェイプ数を取得する簡単なマクロを作りました。

##　取得するスライド
シェイプ数を取得するPowerPointのスライドは下記の画像です。

実装したソースコード

実装したソースコードです。

Sub GetShapeCount()
    'スライドオブジェクト変数
    Dim Slide As Slide
    'シェイプ数カウント変数
    Dim shapeCount As Integer
    'PowerPointアプリケーション、pptファイルオブジェクト
    Dim ppt As Object
    Dim ppt_file As Object
    
    Set ppt = CreateObject("PowerPoint.Application")

    
    Set ppt_file = ppt.ActivePresentation
    
    'アクティブなスライドを取得
    Set Slide = ppt_file.Slides(2)
    
    ' スライド内のシェイプ数を取得
    shapeCount = Slide.Shapes.Count
    
    ' 結果を表示
    MsgBox "このスライドには " & shapeCount & " 個のオブジェクトがあります。"
End Sub

テストした結果

テスト結果は以下の画像です

最後に

PowerPoint VBAで何か開発することも少ないので、勉強になります。