Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change order of Shapes with a click
I have eight shapes on a sheet. I'd like to be able to click on a
shape and if its zorder is 1, bring it to the front. If not, send it to the back. The following code does this but I must name each shape and have a chunck of code for each shape. How can I genericize this so that whatever shape is clicked, it will change order? Sub ToggleOrder() If ActiveSheet.Shapes("NameOfShape").ZOrderPosition <= 1 Then ActiveSheet.Shapes("NameOfShape").ZOrder msoBringToFront Else ActiveSheet.Shapes("NameOfShape").ZOrder msoSendToBack End If End Sub - John |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change order of Shapes with a click
Sub ToggleOrder()
sName = Application.Caller If ActiveSheet.Shapes(sName).ZOrderPosition <= 1 Then ActiveSheet.Shapes(sName).ZOrder msoBringToFront Else ActiveSheet.Shapes(sName).ZOrder msoSendToBack End If End Sub -- Regards, Tom Ogilvy "John Michl" wrote in message oups.com... I have eight shapes on a sheet. I'd like to be able to click on a shape and if its zorder is 1, bring it to the front. If not, send it to the back. The following code does this but I must name each shape and have a chunck of code for each shape. How can I genericize this so that whatever shape is clicked, it will change order? Sub ToggleOrder() If ActiveSheet.Shapes("NameOfShape").ZOrderPosition <= 1 Then ActiveSheet.Shapes("NameOfShape").ZOrder msoBringToFront Else ActiveSheet.Shapes("NameOfShape").ZOrder msoSendToBack End If End Sub - John |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change order of Shapes with a click
Hello John, The Sheets are a collection object. You can step through all the items in any collection object by using the For Each ... Next loop. Sub ToggleOrder() Dim Sht For Each Sht In ActiveSheet.Shapes If Sht.ZOrderPosition < = 1 Then Sht.ZOrder msoBringToFront Else Sht.ZOrder msoSendToBack End If Next Sht End Sub Sincerely, Leith Ross -- Leith Ross ------------------------------------------------------------------------ Leith Ross's Profile: http://www.excelforum.com/member.php...o&userid=18465 View this thread: http://www.excelforum.com/showthread...hreadid=486993 |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Change order of Shapes with a click
Thanks, Tom. Exactly what I was looking for. I'm not familiary with
Application.Caller so I'll look that one up in the online reference. - John |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to change series plotting order without changing legend order? | Charts and Charting in Excel | |||
How to change shapes for Cell Comments | Excel Discussion (Misc queries) | |||
How to change syperlink from single click to double click | Excel Worksheet Functions | |||
Selection order problem with code for shapes connection | Excel Programming | |||
trapping click events on shapes | Excel Programming |