Ellipse
Gregor
Mit folgender Prozedur zeichne ich auf einem Blatt Ellipsen mit unterschiedlicher Farbe. Bis anhin hat das immer geklappt. Neu werden die Ellipsen zwar gezeichnet, aber sie sind nicht mehr sichtbar. Wenn ich dieselbe Prozedur in einer anderen Datei ausführe, klappt es hingegen.
Es muss also irgend etwas an den Optionen dieser Datei liegen. finde aber den Grund nicht.
Woran kann das liegen?
Sub Test ()
Cells(4, 2).Value = "SbS"
Sheets("Übersichtskarte").Shapes.AddShape(msoShapeOval, 170, 42, 9.75, 9.75).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 2
Selection.Name = "Ellipse 1"
Cells(5, 2).Value = "VS"
Sheets("Übersichtskarte").Shapes.AddShape(msoShapeOval, 170, 55, 9.75, 9.75).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17
Selection.Name = "Ellipse 2"
Cells(6, 2).Value = "Dritte"
Sheets("Übersichtskarte").Shapes.AddShape(msoShapeOval, 170, 68, 9.75, 9.75).Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 3
Selection.Name = "Ellipse 3"
End Sub
Gruss Gregor
Anzeige