Creating a test in Excel

[JAHall1989]

Hi All,

I am planning on creating a test in excel. Basically I have a number of blank drawings that I want to test myself by filling in the nomenclature of the different items on the drawing.

I was hoping there was someway I could set this up in excel as I am sure I have seen it done before.

Basically what I want to do is copy the picture into excel, then set it up somehow so that when an item is clicked (I would imagine there would have to be some sort of button overlayed) it gives you the option to enter text, this text then displays above/below/next to the item and is highlighted red if incorrect or not if it is correct . . . . or something to that effect.

I'm a fairly basic user but can manage with formulas and most things its just the programming I have never played with.

Any help with this would be brilliant or if it is not possible to do and you have any other suggestion then that is much appreciated.

Cheers!

[majosum]

Below is an example code of what I think you want. First, copy and paste the below code into a new module. Once you insert the image into Excel, right-click the image, click "Assign macro", and select this macro. Using this macro, when the user clicks the image, and input box will appear. You can change the prompt in the code. It then returns the user's input in cell A1. The IF statement then checks to see if the user entered the correct answer, as shown by the "RightAnswer" string. Change this value to whatever you need. If true, the text turns green. If false, the text turns red. Hope this helps!

Sub Correct()
Dim userInput As String
userInput = InputBox("Enter name of picture", "Name of picture")
Range("A1").Value = userInput
If userInput = "RightAnswer" Then
    Range("A1").Font.Color = vbGreen
Else
    Range("A1").Font.Color = vbRed
End If
End Sub