Notifications
Clear all

Incompatibilidade VBA entre excel 2010 e 2007

5 Posts
2 Usuários
0 Reactions
732 Visualizações
(@xrenners)
Posts: 3
New Member
Topic starter
 

Bom dia a todos!

Sou novo por aqui e espero poder contar com a ajuda de vcs!
Pessoal, tenho uma planilha em excel onde cadastro meus funcionários em 3 gerencias diferentes, e emito seus crachás.
No layout do crachá eu inclui 3 autoformas "elipse" que muda a cor de acordo com a gerencia solicitada da seguinte forma:
Ex.: ○ ○ ○

Não planilha existem 3 células (uma para cada gerencia) que recebe "SIM" ou "NÃO"
Compras | RH | GG
Sim/não | Sim/não | Sim/não
○ ○ ○

Se ele é da gerência de compras a célula estará como "sim" e a elipse fica azul, se estiver como "não" a elipse fica branca. E assim pra as outras 2 condições.

No office 2010 eu uso o seguinte código para fazer isso acontecer:

Sub Farol_1()

If Range("D47").Value = "SIM" Then

ActiveSheet.Shapes.Range(Array("Oval 2")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 127, 255)
.Transparency = 0
.Solid
End With

ElseIf Range("D47").Value = "NÃO" Then

ActiveSheet.Shapes.Range(Array("Oval 2")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 255, 255)
.Transparency = 0
.Solid
End With

End If

End Sub

Só que quando eu abro essa planilha no office 2007 acontece um erro 1004 na linha "ActiveSheet.Shapes.Range(Array("Oval 2")).Select"

Gostaria de saber se tem como eu mudar essa condição para que ela funcione nos 2 offices ou pelo menos no 2007, pq no 2010 roda tudo tranquilo e sem erros.

Abraço!

 
Postado : 19/12/2014 5:57 am
(@xrenners)
Posts: 3
New Member
Topic starter
 

Desculpem esqueci de anexar a imagem do erro e não consegui editar o post.

 
Postado : 19/12/2014 6:09 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Experimente utilizar assim: ActiveSheet.Shapes("Oval 2").Select

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 19/12/2014 6:24 am
(@xrenners)
Posts: 3
New Member
Topic starter
 

Reinaldo, valeu pela dica mas o problema persiste na mesma linha!

 
Postado : 19/12/2014 6:25 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

a maneira que sugeri, creio eu, é oriunda do 2003, e compatível com as versões posteriores.
Se continua gerando o erro, provavelmente é outra coisa, não "apenas" compatibilidade.

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 20/12/2014 6:56 am