MACRO PARA CAMBIAR EL COLOR DE UNA LABEL AL HACER CLICK
Publicado por Pablo Ramirez (1 intervención) el 01/04/2020 19:40:42
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
Private Sub Label1_Click()
MultiPage1.Value = 0 'nos pasa a la 1 pestaña
Label1.ForeColor = vbBlue
Label2.ForeColor = vbBlack
Label3.ForeColor = vbBlack
Label4.ForeColor = vbBlack
Label6.ForeColor = vbBlack
Label7.ForeColor = vbBlack
Label8.ForeColor = vbBlack
Label9.ForeColor = vbBlack
Label10.ForeColor = vbBlack
End Sub
Private Sub Label10_Click()
MultiPage1.Value = 8 'nos pasa a la 9 pestaña
Label1.ForeColor = vbBlack
Label2.ForeColor = vbBlack
Label3.ForeColor = vbBlack
Label4.ForeColor = vbBlack
Label6.ForeColor = vbBlack
Label7.ForeColor = vbBlack
Label8.ForeColor = vbBlack
Label9.ForeColor = vbBlack
Label10.ForeColor = vbBlue
End Sub
Private Sub Label2_Click()
MultiPage1.Value = 1 'nos pasa a la 2 pestaña
Label1.ForeColor = vbBlack
Label2.ForeColor = vbBlue
Label3.ForeColor = vbBlack
Label4.ForeColor = vbBlack
Label6.ForeColor = vbBlack
Label7.ForeColor = vbBlack
Label8.ForeColor = vbBlack
Label9.ForeColor = vbBlack
Label10.ForeColor = vbBlack
End Sub
Private Sub Label3_Click()
MultiPage1.Value = 2 'nos pasa a la 3 pestaña
Label1.ForeColor = vbBlack
Label2.ForeColor = vbBlack
Label3.ForeColor = vbBlue
Label4.ForeColor = vbBlack
Label6.ForeColor = vbBlack
Label7.ForeColor = vbBlack
Label8.ForeColor = vbBlack
Label9.ForeColor = vbBlack
Label10.ForeColor = vbBlack
End Sub
Private Sub Label4_Click()
MultiPage1.Value = 3 'nos pasa a la 4 pestaña
Label1.ForeColor = vbBlack
Label2.ForeColor = vbBlack
Label3.ForeColor = vbBlack
Label4.ForeColor = vbBlue
Label6.ForeColor = vbBlack
Label7.ForeColor = vbBlack
Label8.ForeColor = vbBlack
Label9.ForeColor = vbBlack
Label10.ForeColor = vbBlack
End Sub
Private Sub Label6_Click()
MultiPage1.Value = 4 'nos pasa a la 5 pestaña
Label1.ForeColor = vbBlack
Label2.ForeColor = vbBlack
Label3.ForeColor = vbBlack
Label4.ForeColor = vbBlack
Label6.ForeColor = vbBlue
Label7.ForeColor = vbBlack
Label8.ForeColor = vbBlack
Label9.ForeColor = vbBlack
Label10.ForeColor = vbBlack
End Sub
Private Sub Label7_Click()
MultiPage1.Value = 5 'nos pasa a la 6 pestaña
Label1.ForeColor = vbBlack
Label2.ForeColor = vbBlack
Label3.ForeColor = vbBlack
Label4.ForeColor = vbBlack
Label6.ForeColor = vbBlack
Label7.ForeColor = vbBlue
Label8.ForeColor = vbBlack
Label9.ForeColor = vbBlack
Label10.ForeColor = vbBlack
End Sub
Private Sub Label8_Click()
MultiPage1.Value = 6 'nos pasa a la 7 pestaña
Label1.ForeColor = vbBlack
Label2.ForeColor = vbBlack
Label3.ForeColor = vbBlack
Label4.ForeColor = vbBlack
Label6.ForeColor = vbBlack
Label7.ForeColor = vbBlack
Label8.ForeColor = vbBlue
Label9.ForeColor = vbBlack
Label10.ForeColor = vbBlack
End Sub
Private Sub Label9_Click()
MultiPage1.Value = 7 'nos pasa a la 8 pestaña
Label1.ForeColor = vbBlack
Label2.ForeColor = vbBlack
Label3.ForeColor = vbBlack
Label4.ForeColor = vbBlack
Label6.ForeColor = vbBlack
Label7.ForeColor = vbBlack
Label8.ForeColor = vbBlack
Label9.ForeColor = vbBlue
Label10.ForeColor = vbBlack
End Sub
Valora esta pregunta
0
