I have asked this question before, but admittedly in a terrible way, so I am asking this again. So here I am once more.
I am making a program in VBA Excel - or better, combining a certain worksheet with actions and parts of code to make something that works like a stand-alone program. Part of it involves the binding of a number of images (tens of them) to a certain macro, on click.
I have created the said images through the "Developer"->"Design Mode" button. The images are named in the fashion: Image1, Image2, Image3... etc. What I want is, if, for example, I press Image1, the subroutine Action(1), is called. If I press Image100, I want the subroutine Action(100) to be called. Therefore, I want to call the Action Subroutine passing a value according to which image is clicked, in the example I gave you, according to its name.
With a quick search, the first way I found out to make this work was the one below:
Sub Image1_Click() Call Action(1) End Sub
That was for a click on Image1. For a click on Image100, that would be:
Sub Image100_Click() Call Action(100) End Sub
The downside of using solely this way is obvious: I would need to create as many on-click handlers as the images I have, even though the same routine is called every time and all that matters to get the value to be passed is the image name.
So, given the obvious order of my logic and of what I want to achieve, I would like you to provide me with a more clever way to create on-click events for all my images, without having to use so much redundant code and an obviously not-optimal logic.
NOTE:In case of confusion, the Action Subroutine IS the same for all images. Only the value passed changes.