Ellipse zeichnen
Gregor
Ich möchte in der jeweils aktiven Zelle eine Ellipse zeichnen und habe untenstehendes Makro aufgezeichnet.
Nun soll aber die Ellipse immer in der jeweiligen aktiven Zelle eingefügt werden. Wie kann ich die richtige Position angeben?
Sub Ellipse()
ActiveSheet.Shapes.AddShape(msoShapeOval, 45, 45, 9.5, 9.5).Select
Selection.ShapeRange.Line.Weight = 0.5
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 2
Selection.ShapeRange.Line.Visible = msoTrue
End Sub
Vielen Dank für eure Hilfe
Gregor