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
ADVERTISEMENT
Aug 21, 2007
The following works perfect in 2003.
Private Sub CommandButton1_Click()
Dim shpTemp As Shape
Set shpTemp = Worksheets("Sheet3").Shapes(ListBox1.Value)
shpTemp.Copy
With Worksheets("Sheet1")
.Activate
. Range("A1").Select
.Paste
Set shpTemp = .Shapes(.Shapes.Count)
shpTemp.Fill.UserPicture ListBox2.Value
End With
End Sub
However, when run in excel 2007 the shape is not filled. If you right click the shape, format shape and click on the "Picture or texture fill" it will fill the shape with the previously selected picture in the userform. I have tried by adding
shpTemp.UserPicture.Fill.Visible = True....................
View 9 Replies
View Related
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
Oct 18, 2007
It's difficult to explain, the attached shows the situation better. Basically there's a picture that is somehow linked to a cell. But, you can update the picture or the cell and the other one gets updated.
View 2 Replies
View Related
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
Sep 30, 2012
I am making a spreadsheet file for our football offcials group to review rules.
I tried to record a macro to copy a shape and put it into the spreadsheet, but the shape does not copy.
How do I get the shape to copy into the spreadsheet?
What I want is for them to "think" what they would do and then click the macro and it will show them where the ball would be after the foul/fouls.
View 2 Replies
View Related
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
Mar 18, 2009
is there anyway I can do a conditional formatting of something like that to color a cell if the date in the cell is a friday?
Dates will appear in a column like this:
16-mar
17-mar
20-mar (this is a friday, it should be red)
21-mar
21-mar
View 4 Replies
View Related
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
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
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
Oct 14, 2007
The spreadsheet is password protected. The only cells that students can enter values into are the answer cells.
I am trying to figure out how to have a cell switch to being locked if the correct answer is inputted. ( I have a column that I hide that has the correct answers in it. Then I use a countif function to determine if the answer cell equals the inputted answer.)
View 9 Replies
View Related
Aug 13, 2008
I'm trying to make a map of 14 regions where each region changes brightness depending on values in the worksheets. I think I've got this bit sorted. I'm planning on creating the map using a collection of tessellated shapes or images, and using VBA to alter the properties of each one to create a dynamic map.
The output of the individual maps from MapInfo, our GIS software, is in .png or .jpg. format, and come with a white background. Is there any way to either make the background transparent so multiple shapes can be tessellated effectively, or a way to crop the image to the area's border?
Either that, or does someone know a way to output from MapInfo in such a way to make this possible? (Granted, it's a long shot, but you can't blame a guy for trying...)
View 9 Replies
View Related
May 31, 2013
I have posted example work book
Sheet1 has a list that changes based upon input in Sheet2
So, I have reference pictures on Sheet2 that I would like to show on Sheet1 under the corresponding value.
Explanation: on Sheet two a value is assigned (in column B) to each category (Column A) and then it is ranked (Column C)
Sheet 1 lists the categories in rank order.
I want pics to show under each category.
I saw some articles online, but have been unable to make it work.
View 3 Replies
View Related
Mar 2, 2012
I have a peice of code that i know is inefficient and it is in danger of becoming too large. I have a spreadsheet that has circles aligned to each cell. There are around 100 in total. The code changes the colour of the shape based on the cell value in which it sits. However, the code needs changing and also it does not automatically update the colour shape even though the cell value changes. I have to manually select a cell and then the formula bar and then press return for it to update.
I am using excel 2010.
This is the code i am using for each shape.
Code:
If Range("n12").Value = text Then
ActiveSheet.Shapes("Oval 250").Fill.ForeColor.RGB = RGB(255, 255, 255)
End If
[Code]....
View 6 Replies
View Related
Jul 21, 2014
I am currently working on a project and want to use a picture of a cauldron and have that filled in as opposed to a bar graph filled with cauldron pictures. Is this possible? I picture something similar to how someone would fill a picture on a piece of paper until they hit their goal.
Secondly, If I need to do a bar graph I know I can do conditional formatting on the values within their cells but can I create this formatting specifically to the graphs themselves?
View 1 Replies
View Related
May 26, 2014
For this example.. Think of this information:
shape = rectangle 1
starting fill colour = 255,255,255 (white)
I have a cell on the other part of sheet which has a value of 0 - but changes to 1 when I hover over another part of the sheet.
I need this shape to change fill from white to an image whenever that cell changes value to "1".
I need all this without clicking on an object! JUST when the cell changes, I can mange it with a click but that's besides the point.
View 14 Replies
View Related
Jun 20, 2008
I am a complete newbie with the camera tool. Is there any way to make the camera tool dynamic so that the cells the tool is referencing can change upon the click of a button or some other form of switch? I am creating my first dashboard and this is the last step for my report to be completely dynamic.
-----------------------------------------------------------------------
Never mind, I apologize i just figured this one out...
Create a user defined formulaIn the UDF Create an if statementThe if statement's condition is the logistics in the shift mechanismThe value if true is the first group of cells you want in the snap shotThe value if false is the second group of cells you want in the snap shot, The range you want to toggle betweenRename the cell reference of any snap shot you have taken with the UDF name. In my example my UDF is "Dude" so when you select the camera tool it shows =Dude as the cell referenceReference a scroll bar to the conditional cell you selected in the if statement or choose statement. This is the shift mechanism
If you want to toggle between more than 2 sets of data use =Choose instead of =if
View 3 Replies
View Related
Aug 8, 2014
I have tried a range of "sumproduct" and "count if" and I am still not having any luck.
What I would like excel to do is to count what surgery/hospital (B)is referring for what product (F)
help.xlsx
View 4 Replies
View Related
May 29, 2008
The Following works great in it's own workbook, however it will not run in mine. Is it because I have other macros running?
This is the error that I'm getting.
Automation error (Error 440)
Option Explicit
Private Sub Worksheet_Calculate()
If Range("N10").Value = "1.0" Then
ActiveSheet.Shapes("AutoShape 578").Visible = True
Else
ActiveSheet.Shapes("AutoShape 578").Visible = False
End If
View 5 Replies
View Related
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
Nov 24, 2008
How can I change the fill in the ChangingCell to, say, ColorIndex = 15, if the goal seek method is successful
Currently I've in a loop:
Cells(myrow, colSet).GoalSeek Goal:=Cells(myrow, colVal), _
ChangingCell:=Cells(myrow2, colChange)
View 9 Replies
View Related
Jun 10, 2009
2 Questions here...(Entire macro is at the bottom)
QUESTION 1 - In line 4 of the code below, in Column B, how can I get this code to auto-fill ONLY equal to the bottom-most row with any data in column A?
Note that it's never exactly "B254"
QUESTION 2 - How can I change these 3 lines of code...
View 5 Replies
View Related
Jan 20, 2009
I'm using Excel 2003- and I am trying to change the fillColor of a cell based on the value of that cell.
11111122222222233333333344455555555555556666777888
If I use Conditional Formatting I can only use 3 colors, I'd like to use 8 or 9. Is there another way to do this without using the Conditional Formatting?
I'd like the result to look something like this-
11111122222222233333333344455555555555556666777888
I've looked at the similar threads in this Forum, but I couldn't find exactly what I needed.
View 9 Replies
View Related
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
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
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
Dec 8, 2006
I am aware of the ColorIndex, but more specifically I need to change the fill color of a cell that is 9 columns to the right of the active cell. I can't find out how to make this work. to clarify:
ActiveCell + 9 columns.Interior.ColorIndex = Yellow
There has got to be an easy way to do this.
View 3 Replies
View Related
Jun 18, 2014
I have done the above where when I select a picture name from a drop down list it displays the relevant picture in another cell by using the IF function in the named formula
My question is why cant I use VLOOKUP instead of IF in the named formula. When I use it it comes with an error.
View 6 Replies
View Related
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
