Ладно, а изменить размер кнопок автофильтра возможно?

Спасибо за макрос. В принципе довольно удобный метод: одним щелчком больше, зато эстетика в сохранности. Еще вопрос. Есть ли макрос перекрашивающий фигуру в другой цвет при наведении курсора?

Устроит, конечно:)

Буду признателен, если поможете с реализацией. Разумеется, не в ущерб здоровью - до завтра подождет.

Ценю Ваше мнение, если интересно мое - я не вижу никакой обратной пропорции между профессионализмом и оформлением программы, скорее наоборот. Я может и наивен, но свято верю, что ненавязчивый и удобный интерфейс - одно из достоинств умело выполненной программы (пусть и второстепенное, не спорю). Что касается многолетнего опыта создателей Excel... ну, четыре (почти 5) лет назад им пришла в голову идея сменить интерфейс и впихнуть в Excel новые функции и возможности. Тогда у Вас был шанс сказать: "я 15 (16) лет работаю с табличными процессорами и не было у меня необходимости...", - в общем, думаю, Вы меня поняли. За совет перейти на фотошоп спасибо, ровно как и за неоднозначные намеки на мою компетенцию.

Спасибо за понимание. Поверьте, это в Ваших же интересах. Вы не сможете самостоятельно переделать код под свои нужды, в случае каких-либо изменений. Тогда зачем Вам эта головная боль? А насчет "профессиональный уровень", я имел ввиду только Эксель. Возможно Вы классный спец в какой-то другой области. В Экселе, судя по Вашим постам - нет. Это абсолютно не с целью Вас обидеть. Я знаю случаи, когда планетяне будучи чайниками сначала, становились очень грамотными специалистами со временем. И Вам искренне желаю того же.  
 
То Serge 007: ага, в основном спрашивающих, где чего найти:-) Но что мне однозначно понравилось, это возможность задавать массив в качестве фильтра в 2007.

Не тот файл...

Владимир, Юрий, спасибо за варианты. Попробую объединить

Пока ждал попробовал ещё поискать ответ на свой вопрос по другим форумам. Ответ найден. Пользователь EducatedFool предлагал достойное решение:  
 
Private Sub Label1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)  
   Label1.Caption = "X= " & X & vbLf & "Y=" & Y  
   Call ОкраскаКнопок(X, Y)  
End Sub  
 
Sub test()  
   MsgBox "макрос запущен", vbInformation  
End Sub  
 
Sub ОкраскаКнопок(ByVal X As Single, ByVal Y As Single)  
   d = 5: Dim sha As Shape  
   For Each sha In Me.Shapes  
       With sha  
           If .Name Like "MyButton*" Then  
               НадКнопкой_поX = ((Abs(.Left - X) < d) Or (Abs(X - .Left - .Width) < d) Or (X - .Left - .Width) * (.Left - X) > 0)  
               НадКнопкой_поY = ((Abs(.Top - Y) < d) Or (Abs(Y - .Top - .Height) < d) Or (Y - .Top - .Height) * (.Top - Y) > 0)  
               КурсорРядом = НадКнопкой_поX And НадКнопкой_поY  
               НоваяПрозрачность = IIf(КурсорРядом, 0.7, 0.1)  
               If НоваяПрозрачность <> .Fill.Transparency Then  
                   .Fill.Transparency = НоваяПрозрачность  
                   '.TextFrame.Characters.Font.Bold = КурсорРядом  
               End If  
           End If  
       End With  
   Next  
End Sub  
 
//---  
 
Жаль что на этом форуме нельзя вставлять код так, чтобы он выглядел как в редакторе. Примите как пожелание для улучшения форума. )))