Sub Casdoption1_Clic()
With ActiveSheet
For i = 4 To 22
Set station = .Shapes("station" & .Cells(i, "M"))
station.Width = (.Cells(i, "O") * 100) + 3
station.Fill.ForeColor.RGB = .Cells(i, "O").Font.Color
Next
End With
End Sub
Sub Casdoption2_Clic()
With ActiveSheet
For i = 4 To 22
Set station = .Shapes("station" & .Cells(i, "M"))
station.Width = (.Cells(i, "Q") * 100) + 3
station.Fill.ForeColor.RGB = .Cells(i, "Q").Font.Color
Next
End With
End Sub