Este código salvará a sua pelo quando alguém lhe entregar uma apresentação totalmente fora do layout usado na sua empresa.
Ao invés de precisar alterar cada slide da apresentação, este código fará isso para você.
Sub allchange()Dim osld As Slide, oshp As ShapeFor Each osld In ActivePresentation.SlidesFor Each oshp In osld.ShapesIf oshp.Type = msoPlaceholder Then'Title text change values as requiredIf oshp.PlaceholderFormat.Type = 1 Or oshp.PlaceholderFormat.Type = 3 ThenIf oshp.HasTextFrame ThenIf oshp.TextFrame.HasText ThenWith oshp.TextFrame.TextRange.Font.Name = "Arial".Size = 36.Color.RGB = RGB(0, 0, 255).Bold = msoFalse.Italic = msoFalse.Shadow = FalseEnd WithEnd IfEnd IfEnd IfIf oshp.PlaceholderFormat.Type = 2 Or oshp.PlaceholderFormat.Type = 7 ThenIf oshp.HasTextFrame ThenIf oshp.TextFrame.HasText Then'Body text change values as requiredWith oshp.TextFrame.TextRange.Font.Name = "Arial".Size = 24.Color.RGB = RGB(255, 0, 0).Bold = msoFalse.Italic = msoFalse.Shadow = FalseEnd WithEnd IfEnd IfEnd IfEnd IfNext oshpNext osldEnd Sub
Deixe os seus comentários! Envie este artigo, divulgue este link na sua rede social...
Tags: VBA, Powerpint, Font, Color,
Nenhum comentário:
Postar um comentário