Определить цвет автофигуры

[agregator]

Здравствуйте уважаемые программисты. Подскажите как определить цвет заливки автофигуры не выбирая её. Например:

ActiveSheet.Shapes("AutoShape 1").Select
If Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10 Then

Работает. А

If ActiveSheet.Shapes("AutoShape 1").ShapeRange.Fill.ForeColor.SchemeColor = 10 Then

не работает(Debug)

[shanemac51]

Sub Цвет()
'    ActiveSheet.Shapes("AutoShape 1").Select
'If Selection.ShapeRange.Fill.ForeColor.SchemeColor = 10 Then
With Worksheets("Лист1").Shapes("AutoShape 1")
If .Fill.ForeColor.SchemeColor = 10 Then
    .Line.ForeColor.SchemeColor = 6
    .Fill.ForeColor.SchemeColor = 7
    Else
    .Line.ForeColor.SchemeColor = 10
    .Fill.ForeColor.SchemeColor = 10
End If
End With
    Range("D11").Select
End Sub

[agregator]

Shanemac51, спасибо. Понял, надо было убрать все Selection в коде.