This feature seems to have vanished on PPT 2000, and there seems to be no
mention of it in the help files. Anybody know if it's gone for good (or if
it's merely changed it's name)?
If you'd like to see it back, send your wish to msw...@microsoft.com and
tell them why you'd like to see them put that feature into future
versions of PPT.
Macro ExpandSlide (To insert this macro, create a macro called
"ExpandSlide" and copy the following code between the Sub... and End...
' Enable the error handler.
On Error GoTo ErrorHandler
Dim oShape As Shape
Dim i As Long
Dim oSlide As Slide
Dim strTitle As String
Dim lStrLen As Long
Dim lParas As Long
Dim lCurrIndex As Long
Dim lLastSlide As Long
Dim ErrMsg As String
' Check to see if the presentation is in the correct view.
' Raise the custom error message 555.
If ActiveWindow.ViewType <> ppViewNormal And ActiveWindow.ViewType _
<> ppViewSlide Then
Err.Raise 555, "Expand Slide Macro", _
"Not in Slide View or Normal View"
' Set lCurrIndex to the current slide index.
' Set lLastslide to the current slide index.
lCurrIndex = .SlideRange.SlideIndex
lLastSlide = lCurrIndex
' Check each shape of the current slide; check to
' see if it is a Body placeholder.
For Each oShape In .SlideRange.Shapes
If oShape.PlaceholderFormat.Type = ppPlaceholderBody Then
' Set lParas to the number of paragraphs in the
' Body placeholder. Does not differentiate between
' first level bullets and lower level bullets.
lParas = oShape.TextFrame.TextRange.Paragraphs.Count
For i = 1 To lParas
' Set strTitle to the current paragraph index.
strTitle = oShape.TextFrame.TextRange.Paragraphs(i).Text
' Determine how long the string is. Then, as long as
' it is not the last parapgraph in the Body placeholder,
' strip off the last two characters, the line feed and
' carriage return.
lStrLen = Len(strTitle)
If lParas <> i Then
strTitle = Left(strTitle, lStrLen - 2)
' Set lLastSlide to the next available index position.
' Create a news slide, with the Bulleted Text layout.
' Assign the text from the current paragraph to the
' title placeholder. Return to the original slide.
lLastSlide = lLastSlide + 1
Set oSlide = _
oSlide.Shapes(1).TextFrame.TextRange.Text = strTitle
' Create Error message and raise dialog with error message.
ErrMsg = "Error:" & Err.Source & vbNewLine & Err.Description
MsgBox ErrMsg, vbCritical, "Error Message"
Kathryn Jacobs, BrainBench MVP MS PowerPoint
Get Certified at http://www.brainbench.com
Personal Home Page: http://home.talkcity.com/ScholarSt/rainbow62/index.html
Trainer, Girl Scout, parent, and whatever else there is time for
Life is meant to be lived. But:
if we live without making a difference, it makes no difference that we lived
Merely edit the KBase example to incorporate the level differentiation using
the IndentLevel property. Something like this:
if (oShape.TextFrame.TextRange.Paragraphs(I).IndentLevel) = 1 then
'Add a new slide
IndentLevel property returns or sets the indent level for the specified text
as an integer from 1 to 5, where 1 indicates a first-level paragraph with no
Try Image Importer Wizard
"Echo S" <ec...@indy.net> wrote in message
> Expand slide was removed for PPT 2000. However, after this message is a
> macro you can create which performs the needed functionality. I got it
> from someone on the list back in August, but I can't remember who
> (?Shyam or Brian or Steve, I think?). Hope it helps.
> Kathy Jacobs
> Macro ExpandSlide (To insert this macro, create a macro called
> "ExpandSlide" and copy the following code between the Sub... and End...
It's from a MS KB article: Q240189 PPT2000: Sample Code to Expand Slides
Giving credit where credit is due. Some poor MS slob must have spent
days coding this... I probably would have done it in a couple of hours
The Kedamono Dragon | xrqn...@pbapragevp.arg | xrqn...@nugt.pbz
Visit my Bryce art page: http://www.concentric.net/~kedamono
Stop by the Alternate History Travel Guides! http://www.ahtg.net
Email Address has been ROT13'ed for protection
I'll give the macros a try, but at least you've stopped me searching through
the menus thinking "it must be here somewhere!"
"Kedamono" <xrqn...@pbapragevp.arg> wrote in message
Credit (and/or blame) where due: that would have come from MSDN, I think.