Important:

Quaisquer soluções e/ou desenvolvimento de aplicações pessoais, ou da empresa, que não constem neste Blog podem ser tratados como consultoria freelance.

Views

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

Related Posts Plugin for WordPress, Blogger...

Vitrine

diHITT - Notícias