Change Color Of A Shape With Click

Oct 8, 2009

what i am trying to do is toggle the color of a shape between red and green. what i have currently (courtesy of a search on this site) is this macro:

View 9 Replies


ADVERTISEMENT

Change Line Border Color Of Shape

Sep 21, 2007

I have this simple code which sets the objects format as default.

Private Sub FormatTextBox()
ActiveSheet.Shapes("FormatBox").Select
Selection.ShapeRange.SetShapesDefaultProperties
End Sub

Is there a way to set an objects shape to the default format...not as default?

ie: if the default line color is blue. what code could i use to set an object with a black line color, to the default blue?

View 3 Replies View Related

Change Shape Color Based On Combo Box Selection

Aug 7, 2007

I am trying to use a userform ( Combo Box) to update my named cell "Aircraft1" then based on the value selected change the color of an object.

The code works great if I manually enter the value in the cell "Aircraft1", however if the dropdown list selects the value the object does not update its color.

Is there a way to update the cell via a combo box, and then have the VB code change the color of the object?

This is my

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("Aircraft1")) Is Nothing Then Exit Sub
ActiveSheet.Shapes("Arrow1").Select

With Range("Aircraft1")

If .Value = 1 Then
ActiveSheet.Shapes("Arrow1").Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 17

View 5 Replies View Related

Change Button Color Upon Click

Mar 30, 2009

I was wondering if it is possible to change the color of a command button after it's been clicked?

This is to allow the user to identify which buttons have already been clicked.

View 9 Replies View Related

Click On Cell Change Color

Sep 5, 2009

In Excel 2007 I been scanning in the forum for example code. If a cell is clicked on Then highlight the that row from cells A to K. If it is clicked again change it back to no color.

View 9 Replies View Related

Change Cell Value & Color On Click

Aug 12, 2008

I want to set up a column so that by clicking a cell once it changes value AND color.

For eg a clicked cell changes to green with a value of 1 point, click again it changes orange with a value of 2 points, click again it changes to red with value of 3 point, then finally click again goes back to no fill with nil value.

This would very very useful for marking my candidates results and categorising them by their level of understanding of a question.

View 6 Replies View Related

Change Cell Color With Single Click

Mar 28, 2013

How i can change the coulor of a cell when somebody clicks the cell using VBA? I need the cells to turn green.

View 9 Replies View Related

Change Cell Color On Click And Reverse Macro

May 3, 2007

I am making a checklist for a Pda program. I need the active cell to highlight green and put an x in it for a specified range. This I have

The next part I cannot figure out -
after the cell have been highlighted once, and properly colored with an x, how can I get it to delete the fill and clear the x on the next click.

Dim x As Long
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
' Set the highlighted cell to a color.
If Not Intersect(Target, Range("d28:d34")) Is Nothing Then
Target.Interior.ColorIndex = 4 ' green = true
'Set the highlighted cell to contain a text character
If Not Intersect(Target, Range("d28:d34")) Is Nothing Then
ActiveCell = "x"
End If
End If
End Sub

View 5 Replies View Related

Locked Cells :: Change The Cell Color On The Click Of A Command Button

Mar 1, 2010

i want the user to be able to change the cell color on the click of a command button. the worksheet is protected. when the user click the command button the active cell changes to red and offsets by 1. then the work sheet is locked again.

The two problems I am having is 1. I want the range to begin from row 10, column k to column FD. all cells down

the second problem is the current code allows me to edit locked cell columns A to J ...

View 9 Replies View Related

Change Shape Text Without Selecting Shape

Mar 4, 2009

when i run the below code i get an error 438 'object doesnt support this property or method'

View 2 Replies View Related

Checking For Shape Name On Click

Jan 31, 2007

I am trying to create a clickable image map. I have one macro that is activated when any shape is clicked, but it executes different conditions depending on which shape is clicked.

How do I check whether a specific shape is clicked?

Some of the code I tried:

If ActiveSheet.Shapes("Freeform51") <> null Then
...
Also:

If ActiveSheet.Shapes(Shapes. Name).OnAction = "Freeform51" Then

Also, is there an easy way to pull the shape names and manually change them?

View 5 Replies View Related

Click On Color Button And After Button Click It Will Color Entire Row Of Cell?

Jan 23, 2014

what code I can put behind a button so that once I click on that button,

What ever cell i click on, the whole row of that cell will be colored a certain color.

Is this where i would used a target approach?

View 6 Replies View Related

Right Click Button That On Action Draw Rectangular Auto-Shape?

Nov 2, 2012

I have a bit of code that I saved as an add-in. The code does a couple things: (1) Creates a right-click button that on action (2) draws a rectangular auto-shape that is the size of any selected range.

The add-in seems to loaded correctly.

However, when I launch a new excel sheet, my intent was to have the code (the right click option) be available whenever I opened Excel.

Is there another step to accomplish this?

View 7 Replies View Related

Toggle Shape Color

May 31, 2007

I am trying to write a macro so that when you click a circle shape it will fill it black and then when you click again it will go back to no fill. Like the option button but is not linked to any other one. So it should just work like a check box but I need it to be a circle.

View 4 Replies View Related

Color Individual Lines Of Shape Group

Feb 3, 2008

The group behaves as one shape alright when, say, coloring the line, but is not "fillable". Below a simple sample. - The custom shape i am trying to color in is not a simple square or rectangle -not anything from the existing MS shapes that is....

View 6 Replies View Related

Change Shape Name

Feb 2, 2010

I have a shape in Excel called Canada. I grouped it with another shape and want this new grouping to be called Canada. But when I enter Canada in the shape name entry box, it doesn't actually change it (as it thinks I am referring to the existing Canada).

I need something like Names manager, but for shapes, not ranges.

View 9 Replies View Related

Change The Shape Of Cell

Jun 23, 2008

Is it possilbe to change the shape of a cell to a circle?Or is there a way you can make a shape act the same as one of your cells?

View 9 Replies View Related

Shape Name Change Based On Cell Value Using VBA

Jul 22, 2014

I have a shape on one sheet. Need to change the name of a shapes depending on a value in cell from an other sheet.

View 6 Replies View Related

Change Shape Size / Keep Its Position?

Jul 10, 2014

I have an autoshape on an sheet, and use this code (it's a circle), to rezise it....

[Code] ....

However, it does rezise it, but the shape doesn't keep it's central position. Is there a bit of code I can add to stop the shape from moving? In other words, have the shape rezise around it's center of location?

View 4 Replies View Related

Change Shape Based On Cell Value

Jan 6, 2014

I'm tying to change a shape based on a cell value. I have this but it will not change fron green to red.

Code:
Private Sub Worksheet_Change(ByVal Target As Range)

If Range("A100").Value >= 0 And Range("A100").Value Range("A100").Value Then
ActiveSheet.Shapes("Oval 5").Fill.ForeColor.RGB = vbRed
End If

End Sub

I would like the shape to go red, yellow and green but I can't find anything that works.

View 1 Replies View Related

Change Button Shape Caption

Feb 14, 2008

How do you references the properties of a shape? I am having trouble with 2 different types. Firstly, I have a worksheet with a group of commandbuttons (all added using the Control toolbox) and I want to loop through them changing, for example, the enabled property of each to TRUE.

Secondly, I have some commandbuttons on a worksheet (added using the Forms toolbox). How would I loop through changing, say, the text on the buttons. I used the macro recorder to try to get an idea and got the following:

Sheet1.Shapes("button 15").Select
Selection.Characters.Text = "New Text"

Although this works, it is not very elegant, how can it be achieved without selecting the button each time, but rather by directly accessing the property.

View 3 Replies View Related

VBA Import Picture Change Shape To Rectangle

Apr 5, 2014

I already have the code to import the picture but i would like it to have rounded corner's. The option if you select the picture then tick format, picture shape and it's the second rectangle in. I can not seem to find that particular piece of code for that particular shape. The other comparison is the (reflected beveled, black) option under picture format.

[Code] .....

View 2 Replies View Related

Change Comment Box Shape And Make It Default

Jul 1, 2013

i changed the shape of "Comment" box with edit shape. However when i right click the updated shape and click on Set Autoshape Default it does nothing. When I insert a new comment it is back to old shape.

View 2 Replies View Related

Add Shape On Cell Formula Calculation Value Change

May 28, 2008

I am trying to get different shapes (previously created) to appear in a certain cell, dependant on the resultof a formula in an adjacent cell.

View 4 Replies View Related

Change Shape Fill To Picture When Another Cell Equals To 1

May 14, 2014

I have set up a rollover hyperlink so that when I hover over the cell it changes colour and creates a good effect. To do this I have another cell on the sheet that turns to 1 when the cell in question is hovered over.

I need a code so that when that cell displays the number 1. the object (which is rectangle 2) changes from white fill. to a picture I have saved on my desktop.

I cant quite figure out the coding and have been messing about with things like..

if cell range e.g a1 = 1 then rectangle 2 .userpicture " path " else .solid etc.

View 10 Replies View Related

Change/Modify/Add Text In Shape On Non-Active Worksheet

Sep 7, 2006

I have a button on say, sheet1 with text that I want to change after a certain action takes place; however, I was trying to change this text without switching sheets. (switching sheets isn't a big deal, I'm mainly trying to do it my way for the practice). I'm able to select the button on the other sheet without actually switching sheets, but when it comes to changing it's text I get an error. Here is the code I tried:

Sub macro1 ()
Worksheets("sheet2").Select
Worksheets("sheet1").Shapes("Button 2").Select
Selection.Characters.Text = "Done"
End Sub

Problem with this is it gives cell A1 on sheet2 the "done" text. I also tried this...but it gives the error.

Sub macro1 ()
Worksheets("sheet2").Select
Worksheets("sheet1").Shapes("Button 1").Select
With Worksheets("sheet1").Shapes("Button 1")
.Characters.Text = "Done"
End With
End Sub

View 3 Replies View Related

Row Color To Automatically Change To Blue (color 5) (bgcolor = #0000FF)

Oct 22, 2009

In my Excel 2003 worksheet, I need the row color to automatically change to blue (color 5) (bgcolor = #0000FF) - when the user changes the text from VALID to INVALID in the range: B3:B65000.

For example:

Cell B5 contains the text: VALID

When the user changes the text in the field to read: INVALID - then I need the row range: A5:W5 to change to the color blue.

View 4 Replies View Related

Auto Calculate Color Function On Cell Color Change

Feb 15, 2010

I would like to be able to change the color of a cell in V4:AB31 and have the formula in AM10:AM13 automatically calculate the new result. As it is now the user has to press Ctrl ALT f9 for the formula to recalculate.

View 7 Replies View Related

Change Font Color Based On Adjacent Cell Color

Apr 18, 2008

I have two columns. The first one (A) contains cells that have different Fill colors. The second column (B) contains text adjacent to the colored cells. I am trying to change the color of the text in the second column (B) to the corresponding color in the adjacent cell in the first column (A). I don't think conditional formating works well in this situation. I believe the solution would be some sort of macro.

View 3 Replies View Related

Change Font Color If Cell Color Become Yellow (6)

Jul 9, 2009

I have font color white in blank cells in column E and I (from row 5 to row 245) so the visitors will not see the text. If any of these cells become yellow (color code is 6), the font color will become black so visitors can see the text alot far better than white. I've tried this code myself after this post but nothing happen

View 4 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved