Best Junk File Cleaner: Fast Solution to Problem: Changing color of shape to red, green, yellow on click in VBA

Changing color of shape to red, green, yellow on click in VBA

I wanted to create a macro to change shape color to red, green, and yellow on click with VBA, but failed.
Nevertheless, I have created following three modules which are not working as I wanted.
Can you help me..:(

module 1

Sub trafficlight_cLICK()
With ActiveSheet.Shapes
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 2
End With
End Sub
Sub trafficlight2_click()
With ActiveSheet.Shapes
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 5
End With
End Sub
Sub trafficlight3_click()
With ActiveSheet.Shapes
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 11
End With
End Sub

----------------------------------------------------------------------
module 2

Sub traffic_cLICK()
With ActiveSheet.Shapes
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 11
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 5

Selection.ShapeRange.Fill.ForeColor.SchemeColor = 2
End With
End Sub

-----------------------------------------------------------------------------------

module 3

Private Sub CommandButton1_Click()
Dim col As Integer, c As Integer
col = Selection.ShapeRange.Fill.ForeColor.SchemeColor
For c = 1 To 30
    col = IIf(col = 30, 1, col)
        If col = c Then
          Selection.ShapeRange.Fill.ForeColor.SchemeColor = col + 1
        End If
Next c
End Sub

Anwsers to the Problem Changing color of shape to red, green, yellow on click in VBA

Download Error Fixer (Free)

Open Action Center by clicking the Start button Picture of the Start button, clicking Control Panel, and then, under System and Security, clicking Review your computer's status.

Make sure your computer has at least the minimum amount of random access memory (RAM) required to run the program that is displaying the error. Look for the program requirements online or in the packaging information.

Recommended Method to Fix the Problem: Changing color of shape to red, green, yellow on click in VBA:

How to Fix Changing color of shape to red, green, yellow on click in VBA with SmartPCFixer?

1. Click the button to download SmartPCFixer . Install it on your computer. Open it, and it will perform a scan for your system. The errors will be shown in the list.

2. After the scan is done, you can see the errors and problems which need to be repaired.

3. The Repair part is done, the speed of your computer will be much higher than before and the errors have been removed. You can also use other functions in this software. Like dll downloading, junk file cleaning and print spooler error repair.

Best Junk File Cleaner

Sunday, September 18, 2016

Fast Solution to Problem: Changing color of shape to red, green, yellow on click in VBA

Changing color of shape to red, green, yellow on click in VBA

Anwsers to the Problem Changing color of shape to red, green, yellow on click in VBA

Recommended Method to Fix the Problem: Changing color of shape to red, green, yellow on click in VBA:

How to Fix Changing color of shape to red, green, yellow on click in VBA with SmartPCFixer?

No comments:

Post a Comment