** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Otros de Microsoft: Windows y Office > Otros Productos Microsoft
  Mensajes nuevos Mensajes nuevos RSS - Power point y macros
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Power point y macros

 Responder Responder
Autor
Mensaje
matasl Ver desplegable
Habitual
Habitual
Avatar

Unido: 03/Diciembre/2019
Localización: Costa Rica
Estado: Sin conexión
Puntos: 113
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita matasl Cita  ResponderRespuesta Enlace directo a este mensaje 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.
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: Sin conexión
Puntos: 13962
Opciones de entrada Opciones de entrada   Gracias (0) Gracias(0)   Cita Mihura Cita  ResponderRespuesta Enlace directo a este mensaje 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
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable