Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
256to260
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatisch Kreise zeichnen

Automatisch Kreise zeichnen
17.05.2003 09:37:12
Willi
Hallo
Wer kann mir helfen.
Es soll automatisch nach Angabe eines Winkels aus einer Zelle ein Kreis um einen definierten Punkt(zentraler Kreis)im Tabellenblatt gezeichnet werden.
Ändert sich der Winkel soll auch der Kreis entsprechend an richtiger Stelle neu gezeichnet werden. Der Winkel kann zwischen 0 und 360 Grad liegen. Ist das überhaupt mit Exel möglich?


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige