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


ADVERTISEMENT

Toggle Shape Visibility On Different Sheet Than Event Code

May 29, 2008

I have found that this only works on the sheet being viewed, how can I make it work on a different sheet than the one that I am on?

Option Explicit
Private Sub Worksheet_Calculate()
If Range("C1").Value = "5" Then
ActiveSheet.Shapes("rectangle 1").Visible = True
Else
ActiveSheet.Shapes("rectangle 1").Visible = False
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

View 8 Replies View Related

ActiveX Toggle Button Changes Cell Color?

Oct 5, 2012

I am creating a status board at work... Kinda like an In/out board.

I created a toggle button and using it as the persons named. I want them to be able to go to the excel sheet on our intranet. Be able to click their name (toggle button) and it change the off cell from red to white and the on cell from white to green. Then they can save the excel sheet and close out for the next person.

edit: I would also need it to go back once they click it when they leave.

I have created the active x button, but so far the only thing I can do is get the 1 cell it effects to say true/false.

View 9 Replies View Related

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 View Related

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

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 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

Toggle Button Pressed - Change Color / Highlight Button?

Nov 11, 2011

I have a togglebutton for an excel sheet in use for scoring psychological tests. When pressed, the button higlights the cells where a raw score is inserted.

What I need is a code to higlight the togglebutton when pressed, eg. green (colorindex 4). The button is white. How to do this?

Below is the code, It has more lines than needed, but it works.

Private Sub ToggleButton1_Click()
'FKV TOGGLE'

ActiveSheet.Unprotect "manisk"
If ToggleButton1 Then

[Code] ........

View 2 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

Toggle Cell Format: Assign A Key To Toggle Between Two Different Cell Formats

Oct 3, 2007

Is there any way you can use VBA to assign a key to toggle between two different cell formats? I want to toggle a cell from white border with black text to black border with white text and visa versa, with the same key or button. I've searched the posts but can't find this mentioned.

View 6 Replies View Related

Locate A Shape Within A Shape

Jan 24, 2014

On the attached spreadsheet there is two irregular shapes. "Area1" & "Area2". I need to be able to determine which area the "ball" shape is located in. If the ball is in Area1 then "Multiply 8" gets the ball and "Multiply 9" moves to the blue cell "AH39". If the ball is in "AreaB" Multiply 9 gets the ball and "Multiply 8" runs to cell "S37"

I should be able to do the moving of the shapes using all the samples, its determining which area the ball is in is the problem.

In the real spreadsheet i will probably have around 10 different Areas.

Move Two Objects - Select Case.xlsm‎

View 5 Replies View Related

If Formula: =IF(D4<0.38,"Thin",IF(0.38<D4<=0.48,"Good Shape","Bad Shape"))

Jun 23, 2009

I have D4=0.42. I thought this formula =IF(D4<0.38,"Thin",IF(0.38<D4<=0.48,"Good shape","Bad shape")) was supposed to give me "Thin" for D4<0.38, "Good shape" for 0.38<D4<=0.48 and "Bad shape" for the contrary, but it only gives me "Bad shape" when D4 is clearly between 0.38 and 0.48.

View 4 Replies View Related

Toggle Between Percentage And Value?

May 26, 2014

How can I toggle between percentage and actual value to display on a pie chart?

View 1 Replies View Related

Check Box Toggle

Jun 18, 2008

I am working on a sheet in Excel 2007 and am having trouble with Excel toggling with a checkbox. What I want is for a cell to have "A" in it if the box is checked and a "B" if it isn't. The code I have is:

Sub CheckBox6_Click()
If CheckBox6 = True Then
Range("B20") = "A"
Else
Range("B20") = "B"
End If
End Sub

View 9 Replies View Related

Toggle In The Formula Bar Before It Changes

Jan 3, 2007

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Cells.Count > 1 Then Exit Sub
If Target = "" Then Exit Sub
If Target.Address "$B$9" Then Exit Sub
Sh.Name = Right(Sh.Range("B9"), 4)
End Sub


Problem is i still have to toggle it in the formula bar before it changes. I have this formula ='Class List'!B10 in B10 which is feeding from another worksheet called Class List.

View 9 Replies View Related

Drop-Down Box Toggle

Nov 12, 2008

Is there a way to keep the drop-box on a combobox from showing at all? I am trying to build one that has several different values that will just cycle through when clicked.

Here a bit of code I am using so far, just as an example:

Private Sub ComboBox1_DropButt*******()
If Range("F7").Value = "Yes" Then
Me.ComboBox1.Value = "No"
Else
Me.ComboBox1.Value = "Yes"
End If
End Sub

View 9 Replies View Related

Toggle Autofilter (if On - Then Off, If Off - Then On)

Jul 2, 2006

Attempting to toggle autofilter (if on - then off, if off - then on). Found this here at Ozgrid, apologies lost the thread and author

Sub CheckForAutoFilters2()
With ActiveSheet
If .AutoFilterMode = True And .FilterMode = True Then
.AutoFilterMode = False And .FilterMode = False
Else
.AutoFilterMode = True And .FilterMode = True
End If
End With

End Sub

I added the Else... piece. The code does turn autofilter off - if on. But not on - if off. (Hard to read) ObjectiveAdd drop down arrows to header row if autofilter off. That's it all data to reamin visible until user (me) takes some action.Show all data, remove drop down arrows if autofilter onThanks

View 5 Replies View Related

Allow Use Of 1 Toggle Button Only

Feb 23, 2008

I'm looking for a way to have mutually exclusive toggle buttons (i.e. only one can be selected at a time) embedded in a worksheet. It is possible with radio buttons but they won't serve my needs.

View 5 Replies View Related

How To Get Sound Toggle Button

Apr 7, 2014

Is there a way to get a sound toggle button on excel?

What I need is a button to turn the sound alerts on and off on my spreadsheet. Ideally I'd like a button that either changed an image to the speaker image when on and the speaker image with line through it when off. Is that possible?

If not, is it possible to have a button that just says: "Sound:ON" or "Sound:OFF"?

I guess it could be done with tick boxes, or drop down options.

View 4 Replies View Related

Toggle Button For Stopwatch

Mar 26, 2014

I have the code below for creating a stopwatch in excel. I was trying to see if there is a way to change this code to assign it to a toggle button so if you hit one part the stopwatch would start and then the other it would stop.

[Code] ....

View 4 Replies View Related

Toggle Button To Remain On/Off

Feb 11, 2009

I wanted to know how do I keep a toggle button in the on(ture) position after I close the userform? How do I keep the toggle button off(false) positoin after I close the userform? In order words, once I run my macro again, I want it to remain in memory that my toggle button was in the on(true) or off(false)?

For example,I have an application that I am developing which involves some what-if analysis for some projects. There is a command button located on my worksheet. After the command button is clicked, I have include some toggle buttons on a userform for all of the various projects. If I assume that sine projects will not be used, I click the associated toggle buttons. This puts them in the on(true) position. After I close the userform and reclick the command button, my toggle buttons are all back in the off(false) position.

View 5 Replies View Related

Macro In A Toggle Button..

Jul 27, 2009

it's possible to use this macro code in a toggle to perform this action when it's true and when the toggle is click again it can undo it.

This macro does lookups and finds the max on sets of value when it is run and i was wondering if by clicking the button again it can undo what it placed in the cells.

View 4 Replies View Related

Toggle Between Two Excel Applications

Apr 8, 2013

I have a macro that cycles every 5 minutes. I have tried everything I can to get this program to run while I modify a sheet in the workbook to no avail. I have however figured out that if I open up a separate excel application that my macro can continuously run without preventing me from modifying the other application. Now I need to figure out a way toggle between the two excel application windows if a condition is met. The basis of this is to allow production associates to create a schedule and modify it while a macro looks into the defect database and if a defect becomes too problematic, the macro interrupts the schedule to display the issue.

View 2 Replies View Related

Toggle Code For More Than One Cell

Aug 3, 2013

This code toggles between a blank cell and an "a" each time the user selects V81.

Code:
If Target.Address = "$V$81" Then
If Target.Value = "" Then
ActiveCell.Value = "a"
Else
ActiveCell.Value = ""
End If
End If

I'd like to expand it so this toggle works not only on V81, but also on V89, V100:105, and V120:124.

View 8 Replies View Related

Hide/Unhide Toggle

Jan 8, 2007

Could someone provide me with the VBA to 'toggle' between HIDING and UNHIDING columns within one macro

e.g. toggle between this hiding and unhiding the following

Sub HideColumns()

Range("G:G,I:I,AB:AV").Activate
Selection.EntireColumn.Hidden = True

End Sub

View 9 Replies View Related

Multiple Toggle Buttons

Dec 9, 2008

I am having a small issue with my toggle buttons.

I have approximately 20 sheets that all have 4 toggle buttons on them. Coded as below (with different ranges for each button). So when I wrote them I took the easy (for me anyway) way and copied all the code for all the buttons in each sheet. (Buttons are named Zoom1, Zoom2 etc.)
Private Sub Zoom1_Click()
If Zoom1.Value = True Then
ActiveWindow.Zoom = 143
Range("A1").Select
ActiveWindow.LargeScroll ToRight:=-10, Down:=-10
Else
ActiveWindow.Zoom = 75
ActiveWindow.LargeScroll ToRight:=-10, Down:=-10
End If
End Sub.........

View 9 Replies View Related

Toggle Grid Short Cut Key

Mar 9, 2009

This is to inform you that I frequently use toggle grid tool to make my worksheet white/plain,doing this with the help of mouse is eating lot of my time which i really feel anonying/pain.

I would like to have a short cut key for toggle grid which lies in Forms toolbar.

View 9 Replies View Related

Toggle Snap To Grid

Apr 23, 2009

I am trying to modify the code below to toggle the snap to grid on/off or off/on and is giving me an error.

Sub ToggleSnapToGrid(Optional Dummy As Long)
With Application.CommandBars.FindControl(ID:=549)
If .State = 0 Then
.Execute
Else
.State = 1
End If
End With
End Sub

View 9 Replies View Related

2007 Vba To Toggle Sheet

May 29, 2009

I m sure this should be simple but the excell help in 2007 is infuriating
I have a macro invoked by ctrl t to toggle the worksheet that I am useing. I want it to work out which sheet is open and open the other one if the macro is invoked
here is the code I have got but it goes to the first sheet and then wont come back

Sub Atmos()
If Sheets("Work").Select Then
Sheets("Atmos").Select
End If
GoTo Last
If Sheets("Atmos").Select Then
Sheets("Work").Select
End If
GoTo Last
Last:
End Sub

View 9 Replies View Related

Checkbox, Bold, Toggle

Jul 2, 2005

I'm having a problem making my font bold when I click on my checkbox and when I uncheck it I want the font to become unbold. I can make it bold when its checked but am not able to make it return to normal when i uncheck it..

View 9 Replies View Related







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