Grouped Shapes VBA

[IGWright]

Hello Everyone!

I've searched high and low for an answer on this, and still can't quite make it work.

I have a Workbook with many Grouped shapes. One of the problems I've been having is that when I change the focus of the Worksheet, the size of the Shapes change by increments. This seems to be some kind of flaw with the program.

It's not a big deal since the changes are small, but I've been looking into a code based solution. What I've got so far is:

Sub Shapes()
If Shape.Name = "Top" Then
.LockAspectRatio = msoFalse
.Height = 13
.Width = 13
.LockAspectRatio = msoTrue
End If
End Sub

In this case there are several Shapes named "Top". They are all Grouped. The Height and Width are supposed to be 0.18" and I find that if I set the .Height and .Width to 13, it sets those parameters to 0.18".

I can get this code to work for one Shape, but not multiple.

Any help here would be appreciated.

Thank-you,


Ian

 

[IGWright]

Works fine in XL2000

My experience with 2007 is that the AutoShapes change size arbitrarily. You can set the size of a shape, close the Workbook, re-open the Workbook and the shape has changed size. Oops.

 

[ZVI]

My experience with 2007 is that the AutoShapes change size arbitrarily. You can set the size of a shape, close the Workbook, re-open the Workbook and the shape has changed size. Oops.

It is not reproduced on my PC. As far as I know such behavior has been fixed in SP2 for Excel 2007.

 

[IGWright]

It is not reproduced on my PC. As far as I know such behavior has been fixed in SP2 for Excel 2007.

And I do have SP2 installed. The only thing I can think of is the possibility that having shapes with the same name produces this side effect.


Ian