Sub
Schaltfläche19_Klicken()
Set
w = ActiveSheet
Dim
NeuerPfeil
As
Shape
Set
NeuerPfeil = w.Shapes.AddConnector(msoConnectorElbow, 1, 1, 1, 1)
With
NeuerPfeil.ConnectorFormat
.BeginConnect ConnectedShape:=shape1, ConnectionSite:=1
.EndConnect ConnectedShape:=shape2, ConnectionSite:=1
NeuerPfeil.RerouteConnections
End
With
End
Sub