VBA Powerpoint - Formatando imagens - Picture Format in 2007

| Blog Office VBA | Blog Excel | Blog Access |

Agora formataremos todas as fotos que estão na sua apresentação do Powerpoint na versão 2007 em diante. Vamos lá!

Sub FormatAll_Pics()

'this is for 2007 only

Dim osld As Slide

Dim oshp As Shape

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

Set oshp = ActiveWindow.Selection.ShapeRange(1)

ActiveWindow.Selection.ShapeRange(1).PickUp

For Each osld In ActivePresentation.Slides

For Each oshp In osld.Shapes

If oshp.Type = msoPicture Then oshp.Apply

If oshp.Type = msoPlaceholder Then

If oshp.PlaceholderFormat.ContainedType = msoPicture Then oshp.Apply

End If

Next oshp

Next osld

End Sub

Tags: Powerpoint, Slide, UDF, picture, imagem, foto, format, Powerpoint 2007,  shape, msoPicture