Ovale Shapes verändern
07.12.2004 15:00:07
Gregor
Mit folgendem Code setze ich alle Shapes auf einem Blatt auf gelb:
Sub ShapesFaerben()
Dim i%, varArr()
ReDim varArr(ActiveSheet.Shapes.Count)
For i = 1 To UBound(varArr)
varArr(i) = i
Next i
ActiveSheet.Shapes.Range(varArr).Fill.ForeColor.SchemeColor = 5
End Sub
Kann ich den Code verändern, dass es mir nur die ovalen Shapes gelb einfärbt und alle rechteckigen Shapes unverändert lässt.
Danke Gregor