or if you want to try a quick fix that may or may not achieve what you
want...

Dim B As Object
For Each B In Sheet1.OLEObjects
If B.OLEType = 2 Then
B.Width = 100
B.Height = 50
End If
Next B


You can add more parameters other than just width and height, as you
like, take a copy first incase the results are not what you want

Duncan




Tom Ogilvy wrote:

> have you used the alignment properties in the drawing toolbar? Draw=>Align
> or Distribute
>
> Perhaps if you get them lined up properly, then the other problems will be
> resolved.
>
> --
> Regards,
> Tom Ogilvy
>
>
> "RJH" wrote:
>
> > A co-worker has put together a series of buttons (100+) that when clicked
> > take you to an inventory sheet that is filtered to show the parts
> > represented by the button that was pushed.
> >
> > The problem: The buttons do not appear uniform. Some appear bolder than
> > others, some higher than others, some appear normal.
> > All the buttons are the same size and conform to cell boundries. They are
> > side by side and this issue makes an otherwise nicely written workbook
> > appear shotty. Any suggestions?? (WinXP, Excel 2000)
> >
> > Thanks!
> >
> > RJH
> >
> >
> >