Home » パワーポイントマクロ・PowerPoint VBAの使い方 » グラフタイトルを取得するPowerPointマクロ

対象:PowerPoint2007, PowerPoint2010, PowerPoint2013, Windows版PowerPoint2016

「vba パワーポイント chart グラフ タイトル」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがありました。

PowerPoint VBA(Visual Basic for Applications)で、グラフのタイトルをどうにかしたかったのでしょう。

具体的に何をしたかったのかが、この検索キーワードだけではわかりませんので、グラフタイトルの文字列を取得するマクロをご紹介しておきます。

[スポンサードリンク]

グラフタイトルの文字列を取得するサンプルマクロ

以下のSubプロシージャを実行すると、アクティブなプレゼンテーション上のグラフタイトルがイミディエイトウィンドウに出力されます。


Sub グラフタイトルの文字列を取得する()
 Dim sld As Slide
 Dim shp As Shape

 For Each sld In ActivePresentation.Slides
  For Each shp In sld.Shapes
   If shp.HasChart Then
    Debug.Print _
      shp.Chart.ChartTitle.Text
   End If
  Next shp
 Next sld
End Sub

サンプルマクロで利用しているオブジェクト式について

アクティブプレゼンテーションの、全スライドに対するFor Each~Nextループの中で、
 For Each sld In ActivePresentation.Slides
各スライドの全図形に対するFor Each~Nextループを回すのは、
  For Each shp In sld.Shapes
PowerPoint VBAでは、よく見かける構造です。

ShapeオブジェクトのHasChartプロパティで、その図形にグラフが存在するかどうかがわかりますから、グラフを持った図形のときに、
   If shp.HasChart Then

グラフタイトルの文字列を取得しています。
    Debug.Print _
      shp.Chart.ChartTitle.Text

ChartオブジェクトのChartTitleプロパティで取得できるのは、Shapeではないかと勝手に思っていたのですが、ShapeオブジェクトではなくChartTitleオブジェクトである点が、

グラフタイトルを取得するPowerPointマクロ

私には興味深い部分です。

[スポンサードリンク]

Home » パワーポイントマクロ・PowerPoint VBAの使い方 » グラフタイトルを取得するPowerPointマクロ

TrackBack:0

TrackBack URL

Home » パワーポイントマクロ・PowerPoint VBAの使い方 » グラフタイトルを取得するPowerPointマクロ

「パワーポイントマクロ・PowerPoint VBAの使い方」の記事一覧

検索


Copyright © インストラクターのネタ帳 All Rights Reserved.

.