Results 1 to 9 of 9
  • Thread Tools
  1. 5 Star Lounger
    Join Date
    Feb 2008
    Posts
    879
    Thanks
    60
    Thanked 2 Times in 2 Posts

    Formatting shape color for all slides at once

    I would like to format the shape of the title and content of all my slides to a white background. To do each slide individual, I first select the header, right click, select format shape , select the color and close. To make the content white, I select the content and follow the same procedure

    I would like to be able to do this for all my slides i.e select a white background for all of them at once

    Your assistance in this regard will be most appreciated
    Attached Files Attached Files
    Last edited by HowardC; 2012-05-03 at 22:24. Reason: Attaching Sample

  2. Subscribe to our Windows Secrets Newsletter - It's Free!

    Get our unique weekly Newsletter with tips and techniques, how to's and critical updates on Windows 7, Windows 8, Windows XP, Firefox, Internet Explorer, Google, etc. Join our 480,000 subscribers!

    Excel 2013: The Missing Manual

    + Get this BONUS — free!

    Get the most of Excel! Learn about new features, basics of creating a new spreadsheet and using the infamous Ribbon in the first chapter of Excel 2013: The Missing Manual - Subscribe and download Chapter 1 for free!

  3. 3 Star Lounger
    Join Date
    Feb 2007
    Location
    Durham, Durham, United Kingdom
    Posts
    271
    Thanks
    0
    Thanked 4 Times in 4 Posts
    You can do this with code:

    Sub fixme()
    Dim osld As Slide
    For Each osld In ActivePresentation.Slides
    On Error Resume Next
    If osld.Shapes.HasTitle Then _
    osld.Shapes.Title.Fill.ForeColor.RGB = vbWhite
    Next osld
    End Sub

    How to use

  4. The Following User Says Thank You to JohnWilson For This Useful Post:

    HowardC (2012-05-04)

  5. 5 Star Lounger
    Join Date
    Feb 2008
    Posts
    879
    Thanks
    60
    Thanked 2 Times in 2 Posts
    Hi John

    Thanks for the help, much appreciated

  6. 5 Star Lounger
    Join Date
    Feb 2008
    Posts
    879
    Thanks
    60
    Thanked 2 Times in 2 Posts
    Hi John

    It would be appreciated if you would amend you code so that all the slide headings and content will change to a white background. I also need the theme color to be black



    Regards

    Howard

  7. 3 Star Lounger
    Join Date
    Feb 2007
    Location
    Durham, Durham, United Kingdom
    Posts
    271
    Thanks
    0
    Thanked 4 Times in 4 Posts
    You'll need to explain a little more

    Do you mean all placeholders to have a white background? Or maybe Placeholders and textboxes.
    Theme Color = Black - what does that mean?? (or rather what do you think it means. Maybe text is black?

    In the meantime see if this helps


    Sub fixme2()
    Dim osld As Slide
    Dim oshp As Shape
    For Each osld In ActivePresentation.Slides
    For Each oshp In osld.Shapes
    If oshp.Type = msoPlaceholder Then
    oshp.Fill.ForeColor.RGB = vbWhite
    If oshp.HasTextFrame Then oshp.TextFrame.TextRange.Font.Color = vbBlack
    End If
    Next oshp
    Next osld
    End Sub

  8. 5 Star Lounger
    Join Date
    Feb 2008
    Posts
    879
    Thanks
    60
    Thanked 2 Times in 2 Posts
    Hi John

    Thanks for the help. Code works perfectly.

  9. 3 Star Lounger
    Join Date
    Feb 2007
    Location
    Durham, Durham, United Kingdom
    Posts
    271
    Thanks
    0
    Thanked 4 Times in 4 Posts
    Just an aside:
    I wonder when you said set the placholders to white you really meant "No Fill"?

    if so make this change

    If oshp.Type = msoPlaceholder Then
    oshp.Fill.Visible=msoFalse ' change here
    If oshp.HasTextFrame Then oshp.TextFrame.TextRange.Font.Color = vbBlack
    End If

  10. The Following User Says Thank You to JohnWilson For This Useful Post:

    HowardC (2012-05-17)

  11. 5 Star Lounger
    Join Date
    Feb 2008
    Posts
    879
    Thanks
    60
    Thanked 2 Times in 2 Posts
    Thanks for the info

  12. 3 Star Lounger
    Join Date
    Apr 2012
    Posts
    212
    Thanks
    2
    Thanked 21 Times in 21 Posts
    Hi Howard,

    Maybe what you're really looking for is the Slide Master. Click View, Master, Slide Master. Making changes here will set the defaults. Manually altered slides will not be affected.

    It may be a bit more complicated, I'm running Office 2010 now, and don't recall all the steps for 2003.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •