Power point y macros

error de compilación pues no he definido Sub o function

   Saludos para todos.
Cuando ingreso la siguiente macro a power point me sale un error indicando que tengo un error de compilación pues no he definido Sub o function.

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.

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
matasl Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Habitual Unido: 03/Diciembre/2019 Localización: Costa Rica Estado: Sin conexión Puntos: 113	Opciones de entrada Responder Cita matasl Informar de mensaje Gracias(0) Cita Respuesta Tema: Power point y macros Enviado: 10/Febrero/2024 a las 22:15
	Saludos para todos. Cuando ingreso la siguiente macro a power point me sale un error indicando que tengo un *error de compilación pues no he definido Sub o function*. 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.
	"En el proceso de aprendizaje no basta con la intención de enseñar, debe también haber intención de aprender" Pura vida. Muchas gracias Bendiciones.

Mihura Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14428	Opciones de entrada Responder Cita Mihura Informar de mensaje Gracias(0) Cita Respuesta Enviado: 11/Febrero/2024 a las 01:02
	¿Y dónde te pone el error? · ¿en CentimetersToPoints? · ¿en AjustarTamanoImagen? ¿la tienes definida?
	Jesús Mansilla Castells. Saludos desde Móstoles. Access Aplicaciones Tecsys.es