Sub AjustarDimensionesImagenes()

    ' Establecer las dimensiones objetivo en centímetros

    Dim targetWidth As Single

    Dim targetHeight As Single

    targetWidth = CentimetersToPoints(28)

    targetHeight = CentimetersToPoints(15.75)

    

    ' Recorrer todas las diapositivas en la presentación activa

    Dim oShp As Shape

    Dim slide As slide

    

    For Each slide In ActivePresentation.Slides

        For Each oShp In slide.Shapes

            ' Verificar si la forma es una imagen

            If oShp.Type = msoPicture Then

                ' Ajustar el tamaño de la imagen

                AjustarTamanoImagen oShp, targetWidth, targetHeight

            End If

        Next oShp

    Next slide

End Sub

La verdad no tengo idea por qué no la puedo ejecutar.