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.
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.
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
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.
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...)
I am trying to associate pictures to a dropdown box. The pictures are on a separate sheet. The picture is to be displayed on E20 and the drop down box is in K20. Im not very good at VBA and I accomplished this once before using the =INDIRECT function. But for some reason it is not working now.
I have excel worksheet with 2 sheets in it. Letís call the one "Database", it consist of 713 rows and 15 columns with data in of my product. Then the other one "Display Product" in it you type in the code of the specific product so it search for my code and display all of the information of that product code on the "Display Product" sheet and it that work.
Now I want to link a picture to that specific product to the code. Here's the code I used:
Private Sub Worksheet_Calculate() Dim oPic As Picture Me.Pictures.Visible = False With Range("A71") For Each oPic In Me.Pictures If oPic.Name = .Text Then oPic.Visible = True oPic.Top = .Top oPic.Left = .Left Exit For End If Next oPic End With
Now this code works fine up to a specific limit in my case 66 picture to a product, and I need at least 200 more images in it but I get a runtime error in my macro when I put one more image in. This is where I get the run time error -> ďMe.Pictures.Visible = Falseď. I don't know if excel is limited to image usage. Or maybe there is another way to do what I want to do with more advance coding.
It mentioned something about getting comments which display dynamic data as if something metioned in the cells will appear in the comment and on changing the data in the cells, the data in the comments also changes with it..
Unfortunately, I could not save that file or remember the website as my Internet went bonkers...
I'm using a macro to insert a photo in to a Excel 2010 workbook. If the photo moves location it will no longer display the photo in the document as I belive the photo is being referenced instead of embedded.
If you then use the "Change Picture" icon the photo embeds but how do I get my macro to embed the photo.
Dim SH As Worksheet Dim Rng As Range Dim MyPic As Picture Dim sPath As String Dim PicH As Single
i have saved some pictures in my excel sheet. in the next sheet i want that when i write the picture name the picture will appear as vlookup helps in the getting text and nos. can i do this with pictures or i tried to get to much from excel.
I have two worksheets, one with detail monthly information and one with YTD information. So let's say the three numbers I want to capture in the YTD sheet are in columns B, G and I on the monthly sheet. January's data might be in B5, G5 and I5. February's data is in B12, G12 and I12 and so on.
On the YTD sheet in cell C2 I link to Monthly!B5 and in C3 I link to Monthly!B12 so cells C2 to C13 on the YTD sheet show the monthly totals from column B on the detail sheet. On the YTD sheet, cells C20 to C31 show the monthly totals from column G on the monthly sheet, so cells G5, G12, etc. And finally, cells C40 to C51 on the YTD sheet show monthly totals form column I on the monthly sheet.
In the past I've always created all these links manually. After creating the links in C2 to C13 on the YTD sheet, is there a way to use a formula in C21 that uses the link in C2 to create a link for G5?
In Excel 2010, is there any way to paste a picture into a small picture/diagram box, and upon double clicking the picture it would explode to a larger size? And I guess double clicking it again would make it return to its original (smaller) size. I would be pasting several pictures into several different picture/diagram boxes and would need this to be a relative reference so that upon selection it explodes the appropriate picture?
I want to have a sample file in excel which store picture of student in comment, I did this, but when I want to insert picture the file dialog appears, and if I click cancel, then there is an error, why? If some one optimise the code it would be very nice
I am trying to select a shape in a cell and place a cell reference into the shape. I know the cell address, but do not know the shape reference. (The row that the cell and shape reside came from copying the row from another sheet and inserting it into the current sheet). I can not seem to come up with the correct code to accomplish this. Right now I have:
Where r+1 is the row where the line finally resides after insertion and "AW" is the column to the right of the cell where the shape resides.
I have tried to put the cell reference into the shape at the location where it is copied from but the reference is not dynamic and I can not seem to get it to be. Another issue that will arise is that the rows in the new sheet will probably be sorted and I question if the cell reference will follow the shape's new location.
I have a couple of hundred string values in column A. I am trying to create the same number of rectangle shapes in column B, each one taking its name from the corresponding cell in column A. I keep hitting the dreaded 400 error code .
I'm trying to make a circles size (diameter) change depending on a value inputted in a cell, preferable I would like to have a limit to the sizes too so if that the circle will not have a diameter larger than 20 or smaller than 2 regardless of the values put in. the sheet will have several circles.
I know this must be documented somewhere but I donít think Iím using the right terminology in my searches,
i need to loop through a column of values and get each value
Dim LastRow2 As Long Windows("SCFOutput.xlsm").Activate Sheets("Q2SCNeg").Select Columns("A:B").Select
ActiveSheet. Range("A65536").End(xlUp).Offset(1, 0).Select LastRow2 = ActiveCell.Row - 1 For Each c In Worksheets("Q2SCNeg").Range("A2:A" & LastRow2).Cells MsgBox ActiveCell.Value Next c
i did this but it selects the first blank row (row 15) and gives me an empty message box 14 times (which is right, but i need 14 values) the reason i need the loop is because the number ov values will always change