|
Hallo zusammen,
ich habe mit VBA ein Code erstellt, mit dem sich Pfeile erstellen lassen.
Dieser sieht verkürzt, für zwei Koordinaten so aus:
ZA = InputBox("Eingabe1")
ZB = InputBox("Eingabe2")
Ax = Range(ZA).Left + Range(ZA).Width / 2
Ay = Range(ZA).Top + Range(ZA).Height / 2
Bx = Range(ZB).Left + Range(ZB).Width / 2
By = Range(ZB).Top + Range(ZB).Height / 2
ActiveSheet.Shapes.AddLine(Ax, Ay, Bx, By).Select
End With
In die InputBox gibt man jeweils die entsprechende Zelle an, bspw. G13 und G15, so ensteht dann da ein Pfeil.
Mein Problem ist, dass sich immer nur jeweils ein Pfeil in der Mitte der Zelle bilden lässt(aufgrund des codes natürlich), wenn ich mehrere in der gleichen Zelle einfüge (wenn ich zmb G13 und G15 ein Pfeil in grün erstelle und einen in blau), wird der vorherige Pfeil überdeckt. Ich bräuchte einen Code mit dem man, bspw. in zwei Farben zwei Pfeile erstellt die von G13 bis G15 gehen, aber nebeneinander sich bilden lassen und keines überdeckt wird.
Habt Ihr da Ideen?
Danke im Voraus für die Hilfe :-)
LG Alyssa
|