Ich habe mehrere Variablen ( Range), die ich durch einfache farbige Linien verbunden haben möchte. Das soll etwa so ähnlich wie ein Diagramm werden. Ist das mittels VBA möglich?
Danke
Sub x()
Dim la!, ta!, wa!, ha!
Dim lb!, tb!, wb!, hb!
Dim a As Range, b As Range
Set a = Sheets("Tabelle1").Range("A10")
Set b = Sheets("Tabelle1").Range("B30")
la = a.Left
ta = a.Top
wa = a.Width
ha = a.Height
lb = b.Left
tb = b.Top
wb = b.Width
hb = b.Height
With ActiveSheet.Shapes.AddLine(la + (wa / 2), ta + (ha / 2), lb + (wb / 2), tb + (hb / 2)).Line
.Weight = 2#
.ForeColor.RGB = RGB(55, 155, 55)
End With
End Sub