マインドマップツールっぽいものの作成方法【PowerPointVBA】
PowerPointVBAでマインドマップツールのようなものはつくれないかと考えて試した結果。
何とかそれらしいものはできたので紹介。左端の図形をクリックすると、対応した図形が表示され
次の図形もクリックで対応した図形の表示・非表示の機能を組み込んだだけのもの。
完成したイメージはこんな感じで、図形は好きなものにし、コネクタもそれっぽいものに設定すればもっと良くなる気がします。

図形にマクロを設定する方法は過去の記事を参照して頂ければ。
実際に使用したコード
---------------------------------------------------------------------
Option Explicit
Dim sh As Shape
Public Sub A1()
'B1の表示状態
Select Case Slide1.Shapes("B1").Visible
'表示状態の場合は非表示
Case True
Visible_False "B", False
Visible_False "C", False
Case False
Visible_False "B", True
End Select
End Sub
'渡した文字列の列の内容を表示設定を切り替える
Private Sub Visible_False(ByVal str As String, ByVal visi As Boolean)
'スライド1にある図形を順番に全て繰り返す
For Each sh In Slide1.Shapes
'Bが図形の名前に含まれていたら
If InStr(sh.Name, str) <> 0 Then
'図形を表示・非表示にする
sh.Visible = visi
End If
Next
End Sub
Public Sub B1()
'C1の表示状態で処理を分ける
Select Case Slide1.Shapes("C1").Visible
'表示の場合は
Case True
Visible_False "C1", False
Visible_False "C2", False
'非表示の場合は
Case False
Visible_False "C1", True
Visible_False "C2", True
End Select
End Sub
Public Sub B2()
'C3の表示状態で処理を分ける
Select Case Slide1.Shapes("C3").Visible
'表示の場合は
Case True
Visible_False "C3", False
Visible_False "C4", False
'非表示の場合は
Case False
Visible_False "C3", True
Visible_False "C4", True
End Select
End Sub
---------------------------------------------------------------------
もうちょっと頑張れば、良いものができそうでしたし、アドインにしても面白いなと思いましたが
作成した日がクリスマスであり、急に我に返りPowerPointをソッと閉じました。
いつかまたこのPowerPointを開く日は来るかもしれない…。