Shape wechseln
Gregor
Mit untenstehendem Makro zeichne ich in der aktiven Zelle ein Shape auf. Nun möchte ich diesen Shape (analog einer Ampel) von rund auf quadratisch und grün oder von rund auf dreieckig und orange wechseln. Den zu wechselnden Shape wird vom Benutzer mit der Maus angeklickt.
Ist dies überhaupt möglich und wenn ja, kann mir jemand das Makro aufzeichnen?
Sub Shapes()
Dim obj As Shape
Cells(ActiveCell.Row, ActiveCell.Column).Select
Set obj = ActiveSheet.Shapes.AddShape(msoShapeOval, ActiveCell.Left, _
ActiveCell.Top, 9.5, 9.5)
With obj
.Line.Weight = 0.5
.Fill.ForeColor.SchemeColor = 3
.Line.Visible = msoTrue
End With
End Sub
Vielen Dank zum voraus.
Gregor