image align and distribute

[rjplante]

I have a page with several images/icons on it that I have created into buttons. I would like to write a short macro to align the centers of the images as they are in a column and then to distribute them vertically. Is there an easy way to do this?

Thanks,

Robert

 

[Domenic]

Maybe something like this...

<font face=Calibri><SPAN style="color:#00007F">Option</SPAN> <SPAN style="color:#00007F">Explicit</SPAN><br><br><SPAN style="color:#00007F">Sub</SPAN> test()<br><br>    <SPAN style="color:#00007F">Dim</SPAN> MyGroup <SPAN style="color:#00007F">As</SPAN> Shape<br>    <SPAN style="color:#00007F">Dim</SPAN> ColumnWidth <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Variant</SPAN><br>    <SPAN style="color:#00007F">Dim</SPAN> GroupWidth <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Single</SPAN><br><br>    ActiveSheet.Shapes.Range(Array("Picture 1", "Picture 2", "Picture 3")).Select <SPAN style="color:#007F00">'or ActiveSheet.Shapes.SelectAll</SPAN><br><br>    <SPAN style="color:#00007F">With</SPAN> Selection.ShapeRange<br>        .Align msoAlignCenters, <SPAN style="color:#00007F">False</SPAN><br>        .Distribute msoDistributeVertically, <SPAN style="color:#00007F">False</SPAN><br>        <SPAN style="color:#00007F">Set</SPAN> MyGroup = .Group<br>    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN><br>    <br>    ColumnWidth = MyGroup.TopLeftCell.Width<br>    <br>    GroupWidth = MyGroup.Width<br>    <br>    MyGroup.Left = (ColumnWidth - GroupWidth) / 2<br>    <br>    MyGroup.Ungroup<br>        <br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN><br></FONT>