Pfeilfarbe abhängig von Richtung ändern
16.01.2007 09:01:44
Dieter
dies ist meine 1. Anfrage im Forum, nachdem ich im Archiv keine Lösung für mein Problem gefunden habe, was vielleicht aber auch nur an ungeeigneten Suchbegriffen liegen mag?
Mein Problem:
Ich habe 2 Rechtecke (in verschiedenen Spalten) durch eine Verbindung (gerader Pfeil) verknüpft.
Die Rechtecke sind von Zellposition und -größe abhängig.
Wenn durch Einfügen oder Löschen von Zellen die Rechtecke verschoben werden ist es mir gelungen, einen Makro zu schreiben, der die Verbindung wieder herstellt.
Der sieht so aus:
Sub NeuVerbinden()
' Makro1 Makro
' Makro am 27.10.2006 von dfedra aufgezeichnet
y = ActiveSheet.Shapes.Count ' Anzahl der Autoformen
For x = 1 To y
If ActiveSheet.Shapes(x).AutoShapeType = -2 Then ' wenn Pfeil
' für den Fall gelöschter Verbindungen überspringen
If Err <> 0 Then
MsgBox ("Fehler Nr " & Err)
On Error Resume Next
End If
' Pfeil neu verbinden und rot färben
ActiveSheet.Shapes(x).Select
Selection.ShapeRange.Line.ForeColor.SchemeColor = 10
Selection.ShapeRange.RerouteConnections
End If
Next x
End Sub
Was ich nun brauche ist eine Erweiterung, so dass die Pfeilfarbe rot wird, wenn die Verbindung durch das Verschieben nach oben zeigt, und blau, wenn die Verbindung nach unten zeigt....
Eine Beispieldatei (pfeilproblem.xls) habe ich hochgeladen.
https://www.herber.de/bbs/user/39693.xls
Danke für eure Mithilfe!
dieter