Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
412to416
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
412to416
412to416
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ellipse zeichnen

Ellipse zeichnen
Gregor
Hallo zusammen
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Ellipse zeichnen
Nike
Hi,
so:

Sub Ellipse()
ActiveSheet.Shapes.AddShape(msoShapeOval, ActiveCell.Left, ActiveCell.Top, 9.5, 9.5).Select
Selection.ShapeRange.Line.Weight = 0.5
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 2
Selection.ShapeRange.Line.Visible = msoTrue
End Sub

Bye
Nike
AW: Ellipse zeichnen - ohne select...
Nike
Hi,
die OO Variante sieht so aus:

Sub Ellipse()
Dim obj As Shape
Set obj = ActiveSheet.Shapes.AddShape(msoShapeOval, ActiveCell.Left, ActiveCell.Top, 9.5, 9.5)
With obj
.Line.Weight = 0.5
.Fill.ForeColor.SchemeColor = 2
.Line.Visible = msoTrue
End With
End Sub

Bye
Nike
Anzeige
AW: Ellipse zeichnen
Gregor
Nike
Vielen herzlichen Dank für die rasche Antwort, genau das suchte ich!
Liebe Grüsse
Gregor

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige