VBA Powerpoint - Re-Dimensione a sua imagem para o Slide inteiro - Full Slide Images

Redimensione a imagem selecionada para a página inteira, note que isso pode distorcer a sua imagem.

Sub Pic_Size()

'resize selection to full page

'note may distort image

Dim oshp As Shape

If ActiveWindow.Selection.Type <> ppSelectionShapes Then Exit Sub

Set oshp = ActiveWindow.Selection.ShapeRange(1)

With oshp

.LockAspectRatio = False

.Height = ActivePresentation.PageSetup.SlideHeight

.Width = ActivePresentation.PageSetup.SlideWidth

.Left = 0

.Top = 0

End With

End Sub

Tags: Powerpoint, Slide, picture, imagem, foto, format, full, image

André Luiz Bernardes

A&A® - Work smart, not hard.

VBA Blogs

  

bernardes@.com