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 onlyDim osld As SlideDim oshp As ShapeIf ActiveWindow.Selection.Type <> ppSelectionShapes Then Exit Sub
Set oshp = ActiveWindow.Selection.ShapeRange(1)ActiveWindow.Selection.ShapeRange(1).PickUpFor Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoPicture Then oshp.ApplyIf oshp.Type = msoPlaceholder Then
If oshp.PlaceholderFormat.ContainedType = msoPicture Then oshp.Apply
End If
Next oshp
Next osld
End Sub
Nenhum comentário:
Postar um comentário