Как отформатировать текст во вставленной надписи Excel2007 - VB

Формулировка задачи:

Как отформатировать текст во вставленной надписи Excel2007
раньше в Excel2003 во вставленной надписи на лист Excel можно было выровнить весь текст либо по левому краю, либо по центру, либо по правому краю
а в Excel2007 во вставленной надписи на лист Excel можно выровнить текст, допустим, в первой строке по левому краю, во второй строке по центру, в третьей по правому краю
НО вот загвоздка в Excel2003 макрорекордер писал все, а в Excel2007 как бы это мягко сказать ниЧО
Помогите ПЛИЗ

Решение задачи: «Как отформатировать текст во вставленной надписи Excel2007»

textual
                            Листинг программы 
                        

                            Sub Макрос1()
For Each q In ActiveSheet.Shapes
If q.Type = 17 Then q.TextEffect.Alignment = 2
Next
End Sub

                        