Ppt2000: Diapositivas de ejemplo de c�digo para expandir

Id. de art�culo: 240189 - Ver los productos a los que se aplica este art�culo

Advertencia: Art�culo de Traducci�n Autom�tica, vea la exenci�n de responsabilidad.

Haga clic aqu� para ver en paralelo el art�culo de traducci�n autom�tica y el art�culo original en ingl�s.

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.

Volver al principio | Enviar comentarios

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

Volver al principio | Enviar comentarios

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:

212536

(http://support.microsoft.com/kb/212536/EN-US/ )

OFF2000: C�mo ejecutar c�digo de ejemplo de art�culos de Knowledge Base

Volver al principio | Enviar comentarios

Propiedades

Id. de art�culo: 240189 - �ltima revisi�n: mi�rcoles, 11 de octubre de 2006 - Versi�n: 2.2

La informaci�n de este art�culo se refiere a:

Microsoft PowerPoint 2000 Standard Edition

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

(http://support.microsoft.com/kb/240189/en-us/ )

Volver al principio | Enviar comentarios