Supercharge your PowerPoint productivity with
Supercharge your PPT Productivity with PPTools - Click here to learn more.

Proud member of

PPTools

Image Export converts PowerPoint slides to high-quality images.

PPT2HTML exports HTML even from PowerPoint 2010 and 2013, gives you full control of PowerPoint HTML output, helps meet Section 508 accessibility requirements

Merge Excel data into PowerPoint presentations to create certificates, awards presentations, personalized presentations and more

Resize your presentations quickly and without distortion

Language Selector switches the text in your presentation from one language to another

FixLinks prevents broken links when you distribute PowerPoint presentations

Shape Styles brings styles to PowerPoint. Apply complex formatting with a single click.

No more Pattern Fills in PowerPoint 2007

Problem

Pattern fills are gone from PowerPoint 2007. So what if you NEED pattern fills?

Solution: For Excel Charts

Excel MVP Andy Pope has written a Fill Pattern Add-in for Excel that restores fill patterns/colors to Excel charts and some other objects.

Solution: Use Word

For some odd reason, Word still has Pattern fills even though they've been removed from PowerPoint. If you can do your drawing in Word, you can copy/paste it into PowerPoint, complete with pattern fills.

Or, more devious and certainly more useful:

Thanks to PowerPoint MVP John Wilson of PPTAlchemy for that tip. You can see his illustrated tutorial here.

Or better yet:
Our PPTools ShapeStyles addin lets you pick up styles from the Word-created shapes and apply them to one or more other shapes.

Once you've created the Styles using ShapeStyles, there's no need to have the original Word shapes in your presentation. Better yet, ShapeStyles lets you select just the attributes you want to apply. For example, you can have styles that only apply a particular pattern fill but don't affect any other formatting when you apply them. PowerPoint's Pick Up and Apply Style buttons can't do this. With them, it's all or nothing.

To save you having to create the styles in Word, we've included a sample PPT 2003 file and ShapeStyles Style files, one for each of the 48 Pattern fills.

After you install the free ShapeStyles demo, Download SHAPESTYLEPATTERNS.ZIP and unzip it into any convenient folder.

Since the Demo version of ShapeStyles only allows you to work with five styles at at time, you'll need to copy any five of the included RNR style files to the folder where your styles are stored.

If you have a full version of ShapeStyles, you can copy all of these styles to any folder you like and use them.

Solution: Create your own image fills with patterns

You can create shapes in PowerPoint 2003 or earlier, fill them with the pattern fill you need, then export them as WMF or EMF and use them as Picture fills in PowerPoint 2007.

What if you don't have PowerPoint 2003 any more? And isn't that a lot of work?

We've created a set of fills for you in black and white.

Download and unzip PATTERNFILLS.ZIP to any convenient folder.

Enjoy.

If you want to make your own fills in different colors, have a look below. This is the code we used to create the WMF files in the zip above. It's best to find a colleague with 2003 or earlier to run the code. You can run it in 2007 but it will only produce black and white patterns; you won't be able to control the pattern colors as you can in earlier versions.

Sub MakeFillPatterns()

' Start by opening a new blank presentation
' Then run this

    Dim oSh As Shape
    Dim x As Long
    Dim sOutputFolder As String

    On Error GoTo ErrorHandler

    ' edit this to the slash-terminated path to the folder where you want the files created
    ' the folder MUST exist or you'll get an error and the macro won't work
    sOutputFolder = "c:\temp\"

    With ActivePresentation
        .PageSetup.Slideheight = 72
        .PageSetup.Slidewidth = 72
        Set oSh = .Slides(1).Shapes.AddShape(msoShapeRectangle, 0, 0, 72, 72)
        With oSh
            ' we don't want the outline visible ... it'll spoil the pattern
            .Line.Visible = msoFalse
            .Fill.Transparency = 0#
            .Fill.Visible = msoTrue

            ' This is set to use foreground and background scheme colors.
            ' Change the scheme to get different color fills:
            .Fill.ForeColor.SchemeColor = ppForeground
            .Fill.BackColor.SchemeColor = ppBackground

            For x = 1 To 64
                .Fill.Patterned x
                ActivePresentation.Slides(1).Export sOutputFolder & "PatternedFill" & CStr(x) & ".WMF", "WMF"
                'ActivePresentation.SaveAs sOutputFolder & "PatternedFill" & CStr(x) & ".WMF", ppSaveAsMetaFile
            Next

        End With
    End With

NormalExit:
    Exit Sub
ErrorHandler:
    ' if we got here, either the path was wrong or we've asked for a fill number greater than
    ' PPT knows about; either way, quit
    Resume NormalExit

End Sub

See How do I use VBA code in PowerPoint? to learn how to use this example code.


Did this solve your problem? If so, please consider supporting the PPT FAQ with a small PayPal donation.
Page copy protected against web site content infringement by Copyscape Contents © 1995 - 2022 Stephen Rindsberg, Rindsberg Photography, Inc. and members of the MS PowerPoint MVP team. You may link to this page but any form of unauthorized reproduction of this page's contents is expressly forbidden.

Supercharge your PPT Productivity with PPTools

content authoring & site maintenance by
Friday, the automatic faq maker (logo)
Friday - The Automatic FAQ Maker

No more Pattern Fills in PowerPoint 2007
http://www.pptfaq.com/FAQ00925_No_more_Pattern_Fills_in_PowerPoint_2007.htm
Last update 07 June, 2011
Created: