Re: Automatisch Kreise zeichnen
17.05.2003 11:29:41
Holger Levetzow
Der Makrorecorder ergab für einen nichtgefüllten Kreis: ActiveSheet.Shapes.AddShape(msoShapeOval, 218.25, 18.75, 102#, 102#).Select
Selection.ShapeRange.Fill.Visible = msoFalse
Dazu sagt die Hilfe:
Left, Top Erforderlicher Single-Wert. Die Position (in Punkt) der oberen linken Ecke des Begrenzungsrechtecks der AutoForm, relativ zur oberen linken Ecke des Dokuments.
Width, Height Erforderlicher Single-Wert. Höhe und Breite des Begrenzungsrechtecks der AutoForm in Punkt.
Du mußt also nur die x- und y-Koordinaten von Excel berechnen lassen, den alten Kreis löschen und den neuen zeichnen.
Damit das bei der Eingabe Deines Winkels geschieht (z.B. in A1), stecke das alles in ddas entspr. Blattmodul. Z.B. in:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
...
End If
End Sub
Holger