Изменение размера и расположение нескольких изображений в разных местах

Question

Привет Новичок ie для VBA здесь извините за ужасный синтаксис , поэтому в основном я пытаюсь l oop пройти через все формы на всех слайдах, и большинство слайдов имеют изображения с индексом [3 , 5,7], а иногда и несколько с одним изображением [4].

Подробная информация о измерениях прилагается к коду, но в настоящее время проблема заключается в том, как мне указать именно на это pi c n выполнить изменение размера и повторное позиционирование?

Вместо If, если я должен использовать Case вместо?

    Dim PPTSld As Slide
    Dim PPTImg As Shape

    For Each PPTSld In ActivePresentation.Slides

        For Each PPTImg In PPTSld.Shapes

            If PPTImg("Picture 3") Then

                With PPTImg
                        .LockAspectRatio = False
                        .Height = 283.465 * 2
                        .Width = 283.465 * 2
                        .Left = 53.00787
                        .Top = 384.94488

            If PPTImg("Picture 4") Then

                With PPTImg
                        .LockAspectRatio = False
                        .Height = 720
                        .Width = 960.09449
                        .Left = 500.31496
                        .Top = 254.8346

            If PPTImg("Picture 5") Then

                With PPTImg
                        .LockAspectRatio = False
                        .Height = 283.465 * 2
                        .Width = 283.465 * 2
                        .Left = 676.34646
                        .Top = 384.94488

            If PPTImg("Picture 7") Then

                With PPTImg
                        .LockAspectRatio = False
                        .Height = 283.465 * 2
                        .Width = 283.465 * 2
                        .Left = 1299.9685
                        .Top = 384.94488

            End If

        Next PPTImg

    Next PPTSld

End Sub