マインドマップツールっぽいものの作成方法【PowerPointVBA】

PowerPointVBAでマインドマップツールのようなものはつくれないかと考えて試した結果。

何とかそれらしいものはできたので紹介。左端の図形をクリックすると、対応した図形が表示され

次の図形もクリックで対応した図形の表示・非表示の機能を組み込んだだけのもの。

完成したイメージはこんな感じで、図形は好きなものにし、コネクタもそれっぽいものに設定すればもっと良くなる気がします。

図形にマクロを設定する方法は過去の記事を参照して頂ければ。

図形にマクロを設定する方法【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を開く日は来るかもしれない…。

コメントを残す

メールアドレスが公開されることはありません。 が付いている欄は必須項目です