Macro PowerPoint: Pegar una imagen del portapapeles y ajustar en lámina


Macro para pegar una imagen del portapeles de Windows en la lámina activa y luego mover y cambiar el tamaño de la misma:


'Pegar Imagen del portapeles y luego ajustar tamaño y posición
Sub PegarAjustarImagen()
    On Error GoTo Salir

    'Pegar desde el portapales
    ActiveWindow.View.Paste    

    With ActiveWindow.Selection.ShapeRange
        .Fill.Transparency = 0#
        .LockAspectRatio = msoFalse     'Desbloquera relación de aspecto
        .Height = 300                   'Alto
        .Width = 500                    'Ancho
        .Left = 100                     'Posición izquierda
        .Top = 50                       'Posición parte superior
    End With
    
    'NOTA:
    'Para bloquear realación de aspecto establesca:
    '   .LockAspectRatio = msoTrue
    'Para un alto del objeto igual al alto de la lámina:
    '   .Height = ActivePresentation.PageSetup.SlideHeight
    'Para un ancho del objeto igual al ancho de la lámina:
    '   .Width = ActivePresentation.PageSetup.SlideWidth
    
    Exit Sub

Salir:
    MsgBox "No se ha colocado imagen en el portapales"
End Sub

Comentarios

Entradas más populares de este blog

Ruta hacia el desarrollador web full stack en Soluciones++

Soluciones++ para VBA