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

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.


Related: How Can You Update & Download Toshiba Satellite 5105-S501 Intel PRO 10/100 Driver v.8.0.43.0,How to Update & Download Toshiba Satellite C655D-S5139 BookPlace v.2.2.7530 driver,Method to Update & Download Toshiba Satellite L655-S5073 Realtek Wireless LAN Driver v.2.00.0011,Method to Update & Download Toshiba Satellite L840-ST2N01 Sleep Utility v.1.4.0022.000104 driver,Best Way to Update & Download Toshiba Satellite Pro S300-EZ2502 Extended Tiles for Windows Mobility Center v.1.01 driver,Best Way to Download NVidia GeForce 6100 VGA Driver v.304.51 Certified,How Can You Update & Download NVidia GeForce 9300/nForce 730i VGA Driver v.310.19 Certified,Method to Download NVidia GeForce GT 330M Driver v.340.65,How Can I Update & Download NVidia GeForce GTX 590 Driver v.280.26 WHQL,Method to Download NVidia Tesla C2050 Driver v.319.17,Way to Download RealTek RTL8100C(L) Driver v.5.01,Way to Download RealTek RTL8100E Drivers v.694,Way to Update & Download RealTek RTL8101L Auto Installation Program v.6.110 driver,Method to Update & Download RealTek RTL8111G PXE and RPL ROM code v.2.58 driver,How to Update & Download RealTek RTL8411B(N) Driver v.10.003,Best Way to Update & Download ASUS A53SV nVidia Graphics Driver v.8.17.12.6686,Method to Herunterladen ASUS K75VJ Intel Rapid Storage Technology Treiber v.11.6.0.1030,How Can You Update & Download ASUS CG8580 Intel Chipset Driver v.9.3.0.1019,Method to Update & Download ASUS K41VD Intel INF Update Driver v.9.1.1.1015,Way to Update & Download ASUS Pro70T NB Probe v.3.0.0026 driver,Can't Download PP Templates Automatically To Windows 7 W/IE 8,Can't Change Drive Letter - Vista,Can't Change Homegroup Sharing Permission,Can't Connect XP Shared Printer To Win7 Except As A Local Printer.__,Can You Connect The LAN Adapter For Wii On Your Windows 7 Laptop?
Read More: How Can I Fix - check valid directx installation message on Skype?,Fast Solution to Problem: cd\/dvd driver is corrupt or missing-- Windows cannot load the device driver for this hardware. The driver may be corrupted or missing. (Code 39),How to Fix Error - Checking for updates continuously?,Fast Solution to Error: Chinese language display gibberish__,[Solved] cierre inesperado de la pantalla,Can't access c drive to open programs.,Can you use just one hard drive to store a backup disk image and restore for multiple computers?,can not install Mcafee due to Java script error,,Can Word's track changes comments print in the outside border?,cannot install old software program because computer missing indeo codec driver

No comments:

Post a Comment