Eliminar un párrafo en PowerPoint usando VBA.

delparagraph

En la imagen superior tenemos una forma (shape) que tiene 3 párrafos. A veces necesitamos poder manipular el texto pero por párrafos, digamos que queremos alterar uno de los párrafos o eliminarlo.

En PowerPoint para borrar un párrafo de una forma (shape) utiliza:

Shape.TextFrame.TextRange.Paragraphs(n).Delete

Donde “n” es el número de párrafo. Empieza en uno (1).

Ejemplo: Esto borra el segundo párrafo de todas la formas en la diapositiva actual.

Public Sub DeleteParagraph()
   Dim sld As Slide
   Dim shp As Shape
   Set sld = Application.ActiveWindow.View.Slide
   For Each shp In sld.Shapes
     shp.TextFrame.TextRange.Paragraphs(2).Delete
   Next
End Sub

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s