I can't get the logic to conditionally align these 2 shapes

[ajjava]

In the finished presentation, each slide will have a rectangle object and a picture object.
In some of the slides, the rectangle will be vertically aligned to the slide.
In some of the slides, the rectangle will be horizontally aligned to the slide.
In the case where it is horizontally aligned, my existing code is horizontally centering the rectangle on the slide.
I would like logic that tells the picture object that is also on that slide to center itself on the slide.

This is the code that I have so far. I know I have the If statements tangled up, which is likely causing my problem. I've attached a trimmed-down version of the final product. Can anyone help me sort this out?

Sub Center_Horizontal_Rectangle()


Dim osld As Slide
Dim oshp As Shape
Dim x As Integer
Dim y As Integer


With ActivePresentation.PageSetup
x = .SlideWidth / 2
y = .SlideHeight / 2
End With


For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes


    If oshp.Type = msoShapeRectangle And oshp.Height < 2 * 72 Then ' Use for shapes


       oshp.Left = x - (oshp.Width / 2)          ' Center from left to right
        
             If oshp.Type = msoPicture Then
                 oshp.Left = x - (oshp.Width / 2)
             End If
    
    End If

Next

Next

End Sub