Visual Basic - color en rectangulo

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

color en rectangulo

Publicado por marco antonio (2 intervenciones) el 05/03/2017 12:56:41
el siguiente codigo vb no funciona en excel 2013, pero si en excel 2010

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub cambiacolorobjeto1()
nameobjeto = "1 Rectangle"
ActiveSheet.Unprotect
 
    If ActiveSheet.Shapes(nameobjeto).Fill.ForeColor.RGB = RGB(0, 0, 255) Then
    ActiveSheet.Shapes(nameobjeto).Fill.ForeColor.RGB = RGB(0, 0, 0)
   Else
    If ActiveSheet.Shapes(nameobjeto).Fill.ForeColor.RGB = RGB(0, 0, 0) Then
    ActiveSheet.Shapes(nameobjeto).Fill.ForeColor.RGB = RGB(0, 0, 255)
 End If
 End If
 
    Application.CutCopyMode = False
    ActiveSheet.Protect
End Sub

nota: el fill.forecolor no funciona en excel 2013
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.928
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

color en rectangulo

Publicado por Andres Leonardo (1739 intervenciones) el 06/03/2017 14:48:49
Estimado

graba macro haz el relleno que necesitas.. y saca el codigo de la macro esa es la mas facil
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar