Estás trabajando sin conexión, espera a que vuelva la conexión a Internet

Ppt2000: Diapositivas de ejemplo de código para expandir

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
Este artículo se ha archivado. Se ofrece "tal cual" y no se volverá a actualizar.
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 WithExit SubErrorHandler:   ' 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
VBA expanda estiramiento dividir división ejemplos ppt ppt2000 ppt2k ppt9 9.0 2 k 2000 powerpnt

Propiedades

Id. de artículo: 240189 - Última revisión: 02/01/2014 08:05:01 - Revisión: 2.2

Microsoft PowerPoint 2000 Standard Edition

  • kbnosurvey kbarchive kbmt kbdtacode kbhowto kbprogramming KB240189 KbMtes
Comentarios