☰

Interlineado predeterminado en Powerpoint 2007

tag-icon • tag-icon microsoft-office-2007 microsoft-powerpoint vba microsoft-powerpoint-2007
Interlineado predeterminado en Powerpoint 2007

Quiero establecer el interlineado predeterminado en Powerpoint 2007 en 1.1 en lugar de 0.8 que Microsoft ha establecido como predeterminado. ¿Hay alguna manera de hacer esto?

Alternativamente, también podría lograrlo si pudiera crear una macro que haga esto. Pero MS también eliminó Macro Recorder de PP2007. ¿Alguien puede ayudar con el código VBA?

Gracias

Respuesta1

Bueno, si creas una macro, puedes usar este código:

Sub SetLineSpacing()
Dim sld As Slide
Dim shp As Shape

For Each sld In Application.ActivePresentation.Slides
  For Each shp In sld.Shapes
    *If shp.TextFrame.HasText Then*
       With shp.TextFrame.TextRange.ParagraphFormat
          .LineRuleWithin = msoTrue
          .SpaceWithin = 1.1
       End With
     *End If*
   Next
 Next
End Sub

Pero hay un defecto. Cuando tiene texto con interlineado 3 (por ejemplo) pero no hay espacio para tener este tipo de interlineado, PowerPoint lo reducirá automáticamente, es decir. a 2.8. Cuando ejecute esta macro, el interlineado será 1,2 o 1,3 o algo así. Sólo cuando ejecute la macro por segunda vez, se solucionará este problema. Sin embargo, no pude entender de dónde venía este problema, ya que la depuración del código hizo que funcionara perfectamente desde la primera ejecución.

Respuesta2

Sé que esta es una vieja pregunta, ¡pero la gente debe saber que no necesitas código para esto! Estoy usando 2013, pero creo que funcionó de la misma manera en 2007. Simplemente vaya a Ver/Patrón de diapositivas, haga clic en la diapositiva maestra (la superior) y luego haga clic en el marcador de posición del texto principal. Ctrl-a para seleccionar todo, luego haga clic derecho, elija Párrafo y cambie el Interlineado a Múltiple 1.1. Listo, se extenderá a cada diseño y a cada diapositiva.

Si ya anuló el valor predeterminado en alguna diapositiva, vaya a cada una de esas diapositivas y, en la pestaña Inicio en la sección Diapositivas, elija Restablecer. (Tenga en cuenta que esto restablecerá todos los cambios que haya realizado en toda la diapositiva).

información relacionada