Macro PowerPoint: Mover y cambiar tamaño de un objeto seleccionado

---

Macro para mover y cambiar el tamaño de un objeto seleccionado en una lámina de PowerPoint:

'Mueve y cambia el tamaño de un objeto
Sub MoverCambiarTamanhoObjeto()
    On Error GoTo Salir
    
    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 seleccionado ningún objeto"
End Sub