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
nota: el fill.forecolor no funciona en excel 2013
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub cambiacolorobjeto1()
nameobjeto = "1 Rectangle"
ActiveSheet.UnprotectIf 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.ProtectEnd Sub
nota: el fill.forecolor no funciona en excel 2013
- color-rectangulo.zip(11,4 KB)
Valora esta pregunta
0
