如何使用VBA将所选图像移到前面

Question

Scenario: I have tons of images in a single worksheet，and many of them are overlapping with each other.

How can I write a VBA code so when user click on any image in that worksheet and Excel will automatically bring that image to the front?

Answer 1

If you have an object myObject that you want to bring to the front you use

myObject.ShapeRange.Zorder msoBringToFront

http://msdn.microsoft.com/en-us/library/office/aa213680(v=office.11).aspx

Your object might for example be the selection:

set myObject = Selection

As for responding to a click - that's trickier. There doesn't appear to be an event for "selecting a picture" . But there is a solution...

You can make a single macro called Picture_click() , and assign that macro to each picture. There doesn't appear to be an event-driven way to achieve this, but the following works:

Add the following to a module:

Sub picture_click()
  ActiveSheet.Shapes(Application.Caller).Select
  Selection.ShapeRange.ZOrder (msoBringToFront)
End Sub

Sub connect_all()
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
  sh.OnAction = "picture_click"
Next sh
End Sub

You have to run the connect_all sub just once, to assign the picture_click macro to each shape. Now, when you click a picture (or other shape) it comes to the front.

Note - the Application.Caller tells you what object was clicked - in other words, what caused the call to picture_click . This is necessary because the "click" doesn't cause the picture to be selected yet - that happens after the macro has run. So you can't just use the selection. Tricky, that.

I referenced this earlier post to come up with this solution - specifically, RichJ's solution.

afterthought

If you don't want the picture to be selected after you clicked it, you can modify the picture_click() sub to the following:

Sub picture_click()
  ActiveSheet.Shapes(Application.Caller).ZOrder msoBringToFront
End Sub

This will move the picture to the front but doesn't select it. There is something to be said for that approach.

Answer 2

With every shape, assign the BringToFront macro, then put the following in a module

Sub BrintToFront

Selection.ShapeRange.ZOrder msoBringToFront

end sub

Answer 3

Assign this macro to all Shapes:

Sub lux()
    ActiveSheet.Shapes(Application.Caller).ZOrder msoBringToFront
End Sub