Man kann per Makro mit dem
Befehl
ActiveSheet.Shapes.AddShape(msoShapeOval, 600,
100, 100, 100).Select
eine Kreisfläche an einer beliebigen Stelle (hier 600px von links und
100px von oben) erzeugen. Die letzten beiden Zahlenwerte sind
Breite und Höhe.
Die Zahlen lassen sich im Makro sehr einfach durch Werte mit Bezug
auf die Zellinhalte ersetzen.
Die Frage wäre hier nur, wie das Makro gestartet wird und wie man
die Zielposition ermittelt.
Die Farbe lassen sich mit
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 176, 80)
.Transparency = 0
.Solid
End With
With Selection.ShapeRange.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
End With
ändern.
Gruß Flupo
