Ppt2000: Diapositivas de ejemplo de código para expandir

Seleccione idioma Seleccione idioma
Id. de artículo: 240189 - Ver los productos a los que se aplica este artículo
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
Expandir todo | Contraer todo

Resumen

La característica expandir diapositivas, disponible en Microsoft PowerPoint 97, ya no es una parte de PowerPoint 2000. Esta funcionalidad está ahora parte de los consejos generales proporcionado por el Ayudante de Microsoft Office mientras crea la presentación. Esta es la forma sólo en PowerPoint 2000 acceso a la característica conocida anteriormente como expandir diapositivas.

El código de ejemplo en este artículo muestra otra forma de expandir una diapositiva en varias diapositivas.

Más información

Microsoft proporciona ejemplos de programación con fines ilustrativos únicamente, sin ninguna garantía tanto expresa como implícita. Esto incluye, entre otras, las garantías implícitas de comerciabilidad e idoneidad para un fin determinado. Este artículo se supone que está familiarizado con el lenguaje de programación que se muestra y con las herramientas que se utilizan para crear y depurar procedimientos. Los ingenieros de soporte técnico de Microsoft pueden explicarle la funcionalidad de un determinado procedimiento, pero no modificarán estos ejemplos para ofrecer mayor funcionalidad ni crearán procedimientos que cumplan sus requisitos específicos.
Sub ExpandSlide()
   ' 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"
   End If
   
   With ActiveWindow.Selection
   ' 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)
               End If
               
   ' 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 = _
                 ActivePresentation.Slides.Add(lLastSlide, ppLayoutText)
               oSlide.Shapes(1).TextFrame.TextRange.Text = strTitle
               ActiveWindow.View.GotoSlide (lCurrIndex)
            Next i
         End If
      Next
   End With
Exit Sub
ErrorHandler:
   ' Create Error message and raise dialog with error message.
   '
   ErrMsg = "Error:" & Err.Source & vbNewLine & Err.Description
   MsgBox ErrMsg, vbCritical, "Error Message"
End Sub
				

Referencias

Para obtener información adicional acerca de cómo utilizar el código de ejemplo de este artículo, haga clic en el número de artículo siguiente para verlo en Microsoft Knowledge Base:
212536OFF2000: Cómo ejecutar código de ejemplo de artículos de Knowledge Base

Propiedades

Id. de artículo: 240189 - Última revisión: sábado, 01 de febrero de 2014 - Versión: 2.2
La información de este artículo se refiere a:
  • Microsoft PowerPoint 2000 Standard Edition
Palabras clave: 
kbnosurvey kbarchive kbmt kbdtacode kbhowto kbprogramming KB240189 KbMtes
Traducción automática
IMPORTANTE: Este artículo ha sido traducido por un software de traducción automática de Microsoft (http://support.microsoft.com/gp/mtdetails) en lugar de un traductor humano. Microsoft le ofrece artículos traducidos por un traductor humano y artículos traducidos automáticamente para que tenga acceso en su propio idioma a todos los artículos de nuestra base de conocimientos (Knowledge Base). Sin embargo, los artículos traducidos automáticamente pueden contener errores en el vocabulario, la sintaxis o la gramática, como los que un extranjero podría cometer al hablar el idioma. Microsoft no se hace responsable de cualquier imprecisión, error o daño ocasionado por una mala traducción del contenido o como consecuencia de su utilización por nuestros clientes. Microsoft suele actualizar el software de traducción frecuentemente.
Haga clic aquí para ver el artículo original (en inglés): 240189

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com