目次
経緯
PowerPointで自動化を行うためにVBAを使っていた際、
「外部のExcelファイルを開き、その中にあるグラフの一覧を取得したい」という要望が出てきました。
そこで、PowerPoint VBAからExcelを操作して、全てのシートからグラフを収集するコードを作成してみました。
実装したVBAコード
以下が、PowerPointのVBA内で実行できるコードです。
' Excelアプリケーションを作成
Dim xlApp As Object
Dim xlWorkbook As Object
Dim xlWorksheet As Object
Dim xlChartObject As Object
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
' Excelファイルを開く（filePath にパスを指定）
Set xlWorkbook = xlApp.Workbooks.Open(filePath)
' グラフのリストを作成
Dim chartList As Collection
Set chartList = New Collection
For Each xlWorksheet In xlWorkbook.Worksheets
For Each xlChartObject In xlWorksheet.ChartObjects
chartList.Add xlChartObject
Next xlChartObject
Next xlWorksheet
' グラフのリストを表示
Dim chartNames As String
chartNames = "選択されたExcelファイルのグラフリスト:" & vbCrLf
Dim i As Integer
For i = 1 To chartList.Count
chartNames = chartNames & "グラフ " & i & ": " & chartList(i).Name & vbCrLf
Next i
MsgBox chartNames, vbInformation
コードの補足
filePathには、グラフを取得したいExcelファイルのパスを文字列で指定してください。- コードは、すべてのワークシートをループ処理し、その中のすべてのグラフオブジェクトを収集します。
- 収集したグラフは
Collection型のchartListに格納され、最後にMsgBoxで一覧として表示されます。
利用シーンと活用例
このコードは以下のようなケースに有効です。
- PowerPoint上で、別ファイルのグラフ構成を一覧確認したい
- グラフの自動貼り付け処理を行う前に、グラフの存在チェックや名前の取得を行いたい
- 複数のExcelファイルからグラフ構成をまとめたい
まとめ
- PowerPoint VBAからExcelを開き、各シート内のグラフオブジェクトを取得可能
ChartObjectsを使えば、埋め込みグラフも簡単に一覧化できるCollectionに格納し、MsgBoxで名前付きで出力することで、手軽に内容を確認できる
簡易なグラフリスト取得としては十分機能します。
ご自身のプロジェクトに応じて、取得したグラフをさらに処理するコードに拡張することも可能です。
副業から独立まで「稼げる」Webスキルを習得する（PR）
ここまで読んでいただきありがとうございます。 最後に宣伝をさせてください。
「副業を始めたいが、何から手をつければいいかわからない」「独学でスキルはついたが、収益化できていない」という悩みを持つ方には、マンツーマン指導のWebスクール**「メイカラ」**が適しています。
このスクールは、単に技術を教えるだけでなく、**「副業として具体的にどう稼ぐか」**という実務直結のノウハウ提供に特化している点が特徴です。
講師陣は、実際に「副業Webライターから1年で独立して月収100万円」を達成したプロや、現役で利益を出し続けているブロガーなど、確かな実績を持つプレイヤーのみで構成されています。そのため、机上の空論ではない、現場で通用する戦術を学ぶことができます。
副業に特化した強み
- 最短ルートの提示: 未経験からでも実績を出せるよう、マンツーマンで指導。
- AI活用の習得: 副業の時間対効果を最大化するための、正しいAI活用スキルも網羅。
- 案件獲得のチャンス: 運営がWebマーケティング会社であるため、実力次第で社内案件の紹介など、仕事に直結する可能性があります。
受講者の多くは、「在宅でできる仕事を探している」「副業を頑張りたい」という20代・30代・40代が中心です。
受講前には、講師による無料説明が行われます。無理な勧誘はなく、自分に合った副業スタイルやプランを相談できるため、まずは話を聞いてみることから始めてみてはいかがでしょうか。
