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

PowerPoint VBAでグラフタイトルを取得する-ChartTitle.Text

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

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

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

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

[スポンサードリンク]

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

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

Sub グラフタイトルの文字列を取得する()
 Dim sld As Slide
 For Each sld In ActivePresentation.Slides

  Dim shp As Shape
  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マクロ

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

最終更新日時:2021-06-08 15:02

[スポンサードリンク]

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

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

「グラフ・Chart」の記事一覧

検索


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

.