Changing the picture using macros

[learnmore]

Well this is a stupid question but I'm a beginner in using macros. So bear with me My objective is to change a picture in a cell depending on the previous cell for example

If the number at B1 is bigger than A1, a mouse(example only) must appear below. If B1<A1, an elephant(example) must appear below. Unfortunately, I do this manually and there are a lot of cells I need to change the picture.

Hope to get answers asap! thank you!

 

[learnmore]

I wasn't able to write the question fully. So here it is!

Well this is a stupid question but I'm a beginner in using macros. So bear with me. My objective is to change a picture in a cell depending on the previous cell for example

If the number at B1 is bigger than A1, a mouse(example only) must appear below. If B1<A1, an elephant(example) must appear below. Unfortunately, I do this manually and there are a lot of cells I need to change the picture.

Hope to get answers asap! Thank you!

 

[Bradium]

You might be able to use the ideas in the dueling excel podcast here

http://www.mrexcel.com/podcast/learnexcelpodcast.html

number 1172

http://ec.libsyn.com/p/5/c/d/5cd04c...1ce3dae902ea1d01cc873fd6c059d7d9&c_id=1382881

Regards

Brad

 

[learnmore]

Thanks for replying Brad! I already watched the video. However, I didn't found my answer to my problem. I'm trying to find a way that changes the picture if the previous number (A1) is greater than B1 vice versa. In short, there are two pictures needed but only one picture must be shown at a cell.

	A	B	C
1	30	40	20

<tbody>
</tbody>

In the example above, since B1 is greater than A1, a picture of a mouse must be shown below B1. On the other hand, since C1 is less than B1, a picture of an elephant must be shown below C1.

Hope that I cleared things out! Thanks!

 

[Bradium]

Using the ideas from the video I have created a file for you to try.

http://www.4shared.com/office/9_4Yy2kp/Elephant_Mouse.html

Regards

Brad

 

[learnmore]

Thanks man! The file you made is very helpful!

 

[learnmore]

Hi Brad!

I used used the process in the video. However, when I use it in 30 cells, it gets slower. Do you know a way to solve the problem? Thanks for the help man!

 

[Bradium]

Perhaps you could try Bills VBA method. I tried a few things with this code and Calc at Manual but with many pictures on the sheet they all appear to Calculate and slow the process. Someone else may be able to shed some light?


Private Sub Worksheet_Change(ByVal Target As Range)

MYROW = Target.Row
MYNEXTROW = MYROW + 1

Range(Cells(MYROW, 1), Cells(MYNEXTROW, 3)).Calculate


End Sub