In my 2003 excel macro sheet I used:
ActiveSheet.Shapes("Rectangle 23").Select
Selection.ShapeRange.ZOrder msoBringToFront
ActiveSheet.Shapes("Rectangle 24").Select
Selection.ShapeRange.ZOrder msoBringToFront
In 2007 these actions doesn't work. even as I record the action I don't see
them in 2007.
I like to hide some text to put a rectangle in front.

IIRC, the shapes code has changed a lot in 2007. I don't have it available,
so can't test right now. Maybe someone else can assist.

I would tweak it for 2003 though. This should get the job done in 2003.

ActiveSheet.Shapes("Rectangle 23").ShapeRange.ZOrder msoBringToFront
ActiveSheet.Shapes("Rectangle 24").ShapeRange.ZOrder msoBringToFront
--
HTH,
Barb Reinhardt


"nkat" wrote:

> In my 2003 excel macro sheet I used:
> ActiveSheet.Shapes("Rectangle 23").Select
> Selection.ShapeRange.ZOrder msoBringToFront
> ActiveSheet.Shapes("Rectangle 24").Select
> Selection.ShapeRange.ZOrder msoBringToFront
> In 2007 these actions doesn't work. even as I record the action I don't see
> them in 2007.
> I like to hide some text to put a rectangle in front.
>

It's actually more logical IMO in 2007

With ActiveSheet

.Shapes("Rectangle 23").ZOrder msoBringToFront
.Shapes("Rectangle 24").ZOrder msoBringToFront
End With


--
__________________________________
HTH

Bob

"nkat" <(E-Mail Removed)> wrote in message
news:90E8CA9D-7FB6-4D34-A23B-(E-Mail Removed)...
> In my 2003 excel macro sheet I used:
> ActiveSheet.Shapes("Rectangle 23").Select
> Selection.ShapeRange.ZOrder msoBringToFront
> ActiveSheet.Shapes("Rectangle 24").Select
> Selection.ShapeRange.ZOrder msoBringToFront
> In 2007 these actions doesn't work. even as I record the action I don't
> see
> them in 2007.
> I like to hide some text to put a rectangle in front.
>

When I use :

''Sheets("SCORECARD").Select
With ActiveSheet

.Shapes("Rectangle 23").ZOrder msoBringToFront
.Shapes("Rectangle 24").ZOrder msoBringToFront
End With

Nothing is changing.



"Bob Phillips" wrote:

> It's actually more logical IMO in 2007
>
> With ActiveSheet
>
> .Shapes("Rectangle 23").ZOrder msoBringToFront
> .Shapes("Rectangle 24").ZOrder msoBringToFront
> End With
>
>
> --
> __________________________________
> HTH
>
> Bob
>
> "nkat" <(E-Mail Removed)> wrote in message
> news:90E8CA9D-7FB6-4D34-A23B-(E-Mail Removed)...
> > In my 2003 excel macro sheet I used:
> > ActiveSheet.Shapes("Rectangle 23").Select
> > Selection.ShapeRange.ZOrder msoBringToFront
> > ActiveSheet.Shapes("Rectangle 24").Select
> > Selection.ShapeRange.ZOrder msoBringToFront
> > In 2007 these actions doesn't work. even as I record the action I don't
> > see
> > them in 2007.
> > I like to hide some text to put a rectangle in front.
> >
>
>
>