Não sei se entendi exatamente a proposta...

Sub Macro1()

ActiveSheet.Shapes("Rectangle 1").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 41

End Sub

Sub Macro2()

ActiveSheet.Shapes("Rectangle 1").Select
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 65

End Sub

Eu queria saber os atalho para resolver esse problema, onde clicar, abas e talz
pq o prof vai pergunta algo ;s

Eu queria saber os atalho para resolver esse problema, onde clicar, abas e talz
pq o prof vai pergunta algo ;s

Luk, se seu exemplo faz parte de um exercicio que seu professor passou, e está com duvidas, o ideal seria perguntar a ele os atalhos e como se chega a resolução do mesmo, pois acredito que lhe passar simplesmente a solução não irá ajuda-lo a entender, visto que o colega Edson já postou e você continuou com duvida.

Então, uma dica que muitos acabam desconsiderando, e não sei se em seu curso foi falado a respeito, é referente ao "Gravador de Macros", sendo assim se utiliza-lo poderá ver depois todos os passos que levaram a formatação de um Shape e entenderá a rotina postada pelo Edson.

Uma outra dica seria, após utilizar o "Gravador de Macros" edite a rotina que acabou de criar e com o uso da Tecla "F8" percorra a rotina Passo a Passo e poderá acompanhar todas as ações realizadas facilitando a compreensão e verá que teremos varias outras linhas dde opções na rotina, como a abaixo:

Sub Macro1()
'
' Macro1 Macro
' Macro gravada em 25/2/2011 por Mauro
'

    ActiveSheet.Shapes("Rectangle 1").Select
    Selection.ShapeRange.Fill.Visible = msoTrue
    Selection.ShapeRange.Fill.Solid
    Selection.ShapeRange.Fill.ForeColor.SchemeColor = 41
    Selection.ShapeRange.Fill.Transparency = 0#
    Selection.ShapeRange.Line.Weight = 0.75
    Selection.ShapeRange.Line.DashStyle = msoLineSolid
    Selection.ShapeRange.Line.Style = msoLineSingle
    Selection.ShapeRange.Line.Transparency = 0#
    Selection.ShapeRange.Line.Visible = msoTrue
    Selection.ShapeRange.Line.ForeColor.RGB = RGB(0, 0, 0)
    Selection.ShapeRange.Line.BackColor.RGB = RGB(255, 255, 255)
    Range("A1").Select
    
End Sub

e para entender o que cada uma faz é só posicionar o cursor em cima de uma instrução e teclar "F1" que terá na tela de ajuda varias informações a respeito.

Espero que não me interprete erroneamente, mas minha intensão é colaborar para seu aprendizado e não reprimir.

[]s

belesa, to sem tempo, mas salvei aqui e votesta e posta.. vlw

Galera, ja aprendi muito, so que tipo
coloco os botoes la nos quadros menores, o primeiro tem a funçao de fazer o retangulo maior fica azul, e o segundo ficar branco
como faço essa funçao, queria saber como fazer isso, gravando o macro e nao o codigo ;s
pq é dificil decora o codigo ne ;s

é impossivel isso que eu quero?