VBA Powerpoint - Formatando imagens - Picture Format in 2007

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

Nenhum comentário:

Postar um comentário

diHITT - Notícias