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
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
Publicar un comentario