Este fórum está sendo desativado

[Adri]

Bom Dia,

Tenho um formulário que tem dois tipos de cadastros, sendo um Credor e um Conta, então para ativar as linhas relativas a Credor clica em uma forma(retangulo) com nome Credor, que muda a cor da forma ativa e quando se quer a conta clica em em forma-Conta, e, assim alterna. Estava usando o código abaixo que vi em um exemplo, porém, está dando erro, gostaria de saber como consertar:

'MENU CAD 2

Public Sub efeitoMenuCad2()
Dim sMENU3 As String
sMENU3 = ActiveSheet.Shapes(Application.Caller).Name

'cor padrão Amarelo
ActiveSheet.Shapes.Range(Array("MenuCad2")).Fill.ForeColor.RGB = RGB(255, 255, 153)
ActiveSheet.Shapes.Range(Array("MenuCad2")).TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(0, 112, 192)

'cor seleção Azul
ActiveSheet.Shapes.Range(Array(sMENU3)).Fill.ForeColor.RGB = RGB(0, 112, 192)
ActiveSheet.Shapes.Range(Array(sMENU3)).TextFrame2.TextRange.Font.Fill.ForeColor.RGB = RGB(255, 255, 0)


End Sub

'PARA ATRIBUIR A COR SELEÇÃO A VARIOS BOTÕES
Sub atribuir2()
Dim forma As Shape
For Each forma In ActiveSheet.Shapes.Range("MenuCad2")
forma.OnAction = "efeitoMenuCad2"
Next
End Sub

[alexandrevba]

Boa tarde!

Qual o erro?

seria melhor postar seu arquivo modelo contendo apenas o código e objetos em questão.


Att