Sub РазмерИзображений()
    Dim sld As Slide
    Dim img As Shape
    Dim sHeightOld As Variant
    Dim sWidthOld As Variant
 
    For Each sld In ActivePresentation.Slides
        For Each img In sld.Shapes
            With img
                If .Type = msoLinkedPicture _
                Or .Type = msoPicture Then
                    'Следующая строка не работает (Compile error: Method or data member not found):
                    sHeightOld = img.Heigh.Factor
                    'Следующая строка не работает (Compile error: Argument not optional):
                    sWidthOld = img.ScaleWidth.Factor
                    'Условие значит тоже не работает (переменных то получить не могу)
                    If sHeightOld > sWidthOld Then
                        .LockAspectRatio = msoFalse 'свойство пропорции рисунка = Ложно
                        'Следующая строка работает, но она ненужна в моем алгоритме:
                        '.ScaleHeight Factor:=(0.6), RelativeToOriginalSize:=msoCTrue
                        'Следующая строка которая меняет размер, но она получается тоже работать не может
                        .ScaleWidth Factor:=(sHeightOld), RelativeToOriginalSize:=msoCTrue
                        .LockAspectRatio = msoTrue 'свойство пропорции рисунка = Истино
                    End If
                End If
            End With
        Next
    Next sld
End Sub