Office: Einfaches Blockschaltbild mit VBA (Flowchart)

Hallo, vielleicht ist mein Beitrag für andere Nutzer von Excel hilfreich.

Ich muss , um noch durchblicken zu können, unbedingt Ablaufpläne (Flowcharts) erstellen. Leider komme ich mit dem Text einfügen in die Symbole nicht klar(weder bei PowerPoint noch bei Excel allein), ohne dafür viel Zeit aufzuwenden.
Ich helfe mir nun wie folgt : Ich schreibe den gesamten Text in Excel und schiebe dann die zutreffenden Autosymbole mit der Maus darüber.
Leider muss man aber ein kleines VBA Programm schreiben, weil es den Transparentbefehl bei den Autosymbolen nicht gibt (oder?). Man kann z. B. 15Befehlschalter vorsehen mit denen man die benötigten Symbole aufruft.
Der große Vorteil ist, dass ich in Excel alle Formatierungstricks kenne, wie z. B. Zellen verbinden, hoch und tief setzen v. Zeichen usw, außerdem stört der Textboxrahmen bei dieser Methode nicht.

Beispiel für ein START Symbol

Sub Flowcharts()
Dim Rhombus As Shape
Dim neuBlatt As Worksheet
Dim x As Double, y As Double, Breite As Double, Höhe As Double
Set neuBlatt = Worksheets("Name")
x = 260
y = 100
Höhe = 15
Breite = 70
Set Rhombus = neuBlatt.Shapes.AddShape(msoShapeFlowchartDecision, x, y, Breite, Höhe)
Rhombus.Fill.Transparency = 0.5 ' kann variiert werden
Rhombus.Line.Weight = 1.5 'kann variiert werden
End Sub

:)