Solved: Automating look of slides

[sasa]

Hi all, is there a way once I estabilish the type of Character in the first slide (for example Comic Sans MS and its colour fo example (yellow), to transfer this to all the slides of my presentation.

Thank in advance

sasa

[John Wilson]

Change this on the master and all slides should follow. You can though easily use vba to copy a format to all text. Get back if you need this.

[sasa]

Yes, it is just so. If is it possible a macro that copies a format to all texts of all slides of a considered presentation, in a quick way.

Thanks

sasa

[sasa]

I try to be clear as I can. Well, I have many ppt presentations, all different for characters, colours an dimension of characters, background.
My preferred character is Comic Sans MS, the yellow one, my preferred background color is black. Now to change the background color off all slides is not a problem at all, that is to change the type and colour of character.
What I need if possible it is a macro where may be with the help of a window I can put the type of character I need and its dimension, the way this can change as desired in all presentation.

[sasa]

Sub allchange()
Dim osld As Slide, oshp As Shape
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Type = msoPlaceholder Then
'Title text change values as required
If oshp.PlaceholderFormat.Type = ppPlaceholderCenterTitle Or ppPlaceholderTitle Then
With oshp.TextFrame.TextRange.Font
.Name = "Arial"
.Size = 36
.Color.RGB = RGB(0, 0, 255)
.Bold = msoFalse
.Italic = msoFalse
.Shadow=false
End With
End If
If oshp.PlaceholderFormat.Type = ppPlaceholderBody Then
'Body text change values as required
With oshp.TextFrame.TextRange.Font
.Name = "Arial"
.Size = 24
.Color.RGB = RGB(255, 0, 0)
.Bold = msoFalse
.Italic = msoFalse
.Shadow=false
End With
End If
End If
Next oshp
Next osld
End Sub

If can help I solved my problem this way.

sasa

[John Wilson]

You might want to credit the source of your code!

[sasa]

This was my source. There are many useful tips
http://www.pptalchemy.co.uk/vbasamples.html
:friends: