I've written enough code to select two shapes by name on a slide, and align their middles. BUT, the code is also aligning those two shapes with the middle of the SLIDE and I don't want that. To refine further, I'd like to be certain that the "Picture 2" will align to the middle of the "Rectangle 2" (in other words, the rectangle's position is static and should not change...I just want to be sure that the picture middle-aligns with the rectangle). Can anyone assist?

If oSh.Name = "Rectangle 2" And oSh.Height > 100 Then
    oSh.Select
    oSl.Shapes.Range(Array("Picture 2")).Select msoFalse   'This is how you select a particular shape by its name. The msoFalse means to ADD the shape to the already selected shape
    oSl.Shapes.Range.Align msoAlignMiddles, True
    
    Else
    If oSh.Name = "Rectangle 2" Then
    oSh.Select
    oSl.Shapes.Range(Array("Picture 2")).Select msoFalse
    End If
    End If