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 imageDim oshp As ShapeIf ActiveWindow.Selection.Type <> ppSelectionShapes Then Exit SubSet 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
Nenhum comentário:
Postar um comentário