VBA to align shapes

[Giordano Bruno]

I have a sheet which contains a number of shapes. Some of their names start with "Help". When I change computers, the shapes change their width. I want them all to have the same width and to be aligned to the right of their respective cells. but cannot find how to do this. An alternative is to select all "Help" shapes and align them with each other. To do that, I need to select all, but only, "Help" shapes. If anyone can help me with this I would be grateful.

 

[James006]

Hello,

To get you started about how to Loop Shapes in your worksheet

Sub LoopShapes()
Dim shp As Shape
Dim wsh As Worksheet

Set wsh = ThisWorkbook.Worksheets("Sheet1")
    If wsh.Shapes.Count > 0 Then
        'Loop through all the shapes on the sheet
        For Each shp In wsh.Shapes
            If UCase(Left(shp.Name, 4)) = "help" Then
            '
            ' insert your actions
            '
            End If
        Next shp
    Else
        MsgBox "No Shape in this WorkSheet"
    End If
End Sub

 

[Giordano Bruno]

Many thanks James. It actually gets me finished as I've found the following from ChrisM elsewhere on this site.

Most programming is done with only Top and Left references. To get bottom and right, you use Height and Width and add those to Top/Left.
ActiveSheet.Shapes("Picture 1").Left = Range("J2").Left + Range("J2").Width

Thanks again and thanks to ChrisM. Problem solved.

 

[James006]

Very glad to hear you have managed to sort it out