Propiedad Action

Devuelve o establece el tipo de acción que se producirá al hacer clic en la forma especificada o cuando se sitúe el mouse (ratón) encima de la misma durante una presentación con diapositivas. Puede ser una de las siguientes constantes PpActionType : ppActionEndShow, ppActionFirstSlide, ppActionHyperlink, ppActionLastSlide, ppActionLastSlideViewed, ppActionMixed, ppActionNamedSlideShow, ppActionNextSlide, ppActionNone, ppActionOLEVerb, ppActionPreviousSlide, ppActionRunMacro o ppActionRunProgram. Long de Lectura/Escritura.

Puede usar la propiedad Action junto con otras propiedades del objeto ActionSetting como se muestra en la tabla siguiente.

Si establece la propiedad Action con el valor	Use esta propiedad	Para lo siguiente
ppActionHyperlink	Hyperlink	Establecer las propiedades del vínculo que se seguirá como respuesta a la acción del mouse sobre una forma durante la presentación con diapositivas.
ppActionRunProgram	Run	Devolver o establecer el nombre del programa que se ejecutará como respuesta a la acción del mouse sobre una forma durante la presentación con diapositivas
ppActionRunMacro	Run	Devolver o establecer el nombre de la macro que se ejecutará como respuesta a la acción del mouse sobre una forma durante la presentación con diapositivas
ppActionOLEVerb	ActionVerb	Establecer el verbo OLE que se llamará como respuesta a la acción del mouse sobre una forma durante la presentación con diapositivas.
ppActionNamedSlideShow	SlideShowName	Establece el nombre de la presentación con diapositivas personalizada que se ejecutará ante una acción del mouse en una forma durante la presentación.


Ejemplo de la propiedad Action

Este ejemplo establece que se muestre la tercera forma de la diapositiva número uno de la presentación activa cuando el mouse (ratón) pase por encima de ella durante la presentación con diapositivas.

With ActivePresentation.Slides(1).Shapes(3).ActionSettings(ppMouseOver)

    .ActionVerb = "Reproducir"

    .Action = ppActionOLEVerb

End With


Propiedad AnimateAction

True si el color de la forma especificada se invierte temporalmente cuando sucede la acción del mouse (ratón). Long de Lectura/Escritura.


Ejemplo de la propiedad AnimateAction

Este ejemplo establece la tercera forma de la diapositiva número uno de la presentación activa para reproducir el sonido de aplauso e invertir momentáneamente el color cuando el mouse (ratón) pasa por encima de ella durante la presentación con diapositivas.

With ActivePresentation.Slides(1).Shapes(3).ActionSettings(ppMouseClick)

    .SoundEffect.Name = "aplauso.wav"

    .AnimateAction = True

End With


Propiedad Run

Devuelve o establece el nombre de la presentación o macro que se ejecutará al hacer clic en la forma especificada o cuando el mouse (ratón) pase por encima de la misma durante una presentación con diapositivas La propiedad Action debe establecerse como ppActionRunMacro o ppActionRunProgram para que tenga efecto en la acción. String de Lectura/Escritura.

Comentarios

Si el valor de la propiedad Action es ppActionRunMacro, el valor de la cadena especificada debe ser el nombre de una macro global que está actualmente cargada. Si el valor de la propiedad Action es ppActionRunProgram, el valor de la cadena especificada debe ser la ruta de acceso completa y el nombre de archivo del programa.

Puede asignar a la propiedad Run una macro sin argumentos o bien una macro con un argumento Shape o Object. Se pasará como argumento la forma en la que se hizo clic durante la presentación con diapositivas.


Ejemplo de la propiedad Run

Este ejemplo ejecuta la macro CalcularTotales cuando el mouse (ratón) pasa por encima de la forma durante la presentación con diapositivas.

With ActivePresentation.Slides(1).Shapes(3).ActionSettings(ppMouseOver)

    .Action = ppActionRunMacro

    .Run = "CalcularTotales"

    .AnimateAction = True

End With


Método Add (objeto de conjunto AddIns)

Agrega un archivo de complemento nuevo a la lista de complementos del cuadro de diálogo Complementos (menú Herramientas). Devuelve un objeto AddIn que representa el complemento agregado.

Sintaxis

expresión.Add(Filename)

expresión   Requerida. Expresión que devuelve un objeto AddIns.

Filename   String requerida. El nombre completo del archivo (incluyendo la ruta de acceso y la extensión del archivo) que contiene el complemento que desea agregar a la lista de complementos.

Comentarios

Este método no carga el complemento nuevo. Debe establecer la propiedad Loaded para cargarlo.


Ejemplo del método Add (objeto de conjunto AddIns)

Este ejemplo agrega MisHerramientas.ppa a la lista de complementos del cuadro de diálogo Complementos (menú Herramientas).

Set miComplemento = Application.AddIns.Add("c:\mis documentos\misHerramientas.ppa")

MsgBox miComplemento.Name & " se agregó a la lista"


Propiedad AutoLoad

True si el complemento especificado se carga automáticamente al iniciar PowerPoint. Long de Lectura/Escritura.

Comentarios

Si esta propiedad es True, se establece la propiedad Registered automáticamente en True.


Ejemplo de la propiedad AutoLoad

Este ejemplo muestra el nombre de los complementos que se cargan automáticamente al iniciar PowerPoint.

For Each miComplemento In AddIns

    If miComplemento.AutoLoad Then

        MsgBox miComplemento.Name

        encontrada = True

    End If

Next miComplemento

If encontrada <> True Then MsgBox "No hay complementos cargados automáticamente."

Este ejemplo especifica que el complemento "MisHerramientas" se cargue automáticamente al iniciar PowerPoint.

Application.AddIns("misHerramientas").AutoLoad = True


Propiedad Loaded

True si el complemento especificado está cargada. En el cuadro de diálogo Complementos (menú Herramientas), se seleccionan las casillas de verificación que se encuentran junto a los complementos. Long de Lectura/Escritura.


Ejemplo de la propiedad Loaded

Este ejemplo agrega MisHerramientas.ppa a la lista del cuadro de diálogo Complementos (menú Herramientas) y después lo carga.

Addins.Add("c:\mis documentos\misHerramientas.ppa").Loaded = True

Este ejemplo descarga el complemento "MisHerramientas".

Application.Addins("misHerramientas").Loaded = False


Propiedad Registered

True si el complemento especificado está registrado en el registro del sistema. Long de Lectura/Escritura.

Comentarios

La clave de un complemento registrado por un programa de instalación, normalmente se encontrará en HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\8.0\PowerPoint\Addins\nombre de complemento. La clave de un complemento registrado al establecer la propiedad Registered en True se encontrará en HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\8.0\PowerPoint\Addins\nombre de complemento.


Ejemplo de la propiedad Registered

Este ejemplo registra el complemento "MisHerramientas" en HKEY_CURRENT_USER\SOFTWARE\Microsoft\Office\8.0\PowerPoint\Addins\MisHerramientas.

Application.Addins("MisHerramientas").Registered = True


Método Remove

Quita un complemento del conjunto de complementos.

Sintaxis

expresión.Remove(Index)

expresión   Requerida. Expresión que devuelve un objeto AddIns.

Index   Variant requerido. El nombre del complemento que se va a quitar del conjunto.


Ejemplo del método Remove

Este ejemplo quita el complemento "MisHerramientas" de la lista de complementos disponibles.

AddIns.Remove "MisHerramientas"


Propiedad AdvanceMode

Objeto AnimationSettings: Devuelve o establece un valor que indica si la animación de la forma especificada avanza solamente al hacer clic o automáticamente después de un tiempo determinado. Puede ser una de las siguientes constantes PpAdvanceMode: ppAdvanceModeMixed, ppAdvanceOnClick o ppAdvanceOnTime. Si el resultado es que la forma no tiene animación, asegúrese de que la propiedad TextLevelEffect tiene un valor distinto de ppAnimateLevelNone y de que la propiedad Animate es True. Long de Lectura/Escritura.

Objeto SlideShowSettings: Devuelve o establece un valor que indica el modo de avance de la presentación con diapositivas. Puede ser una de las siguientes constantes PpSlideShowAdvanceMode: ppSlideShowManualAdvance, ppSlideShowRehearseNewTimings o ppSlideShowUseSlideTimings. Long de Lectura/Escritura.

Objeto SlideShowView: Devuelve o establece un valor que indica el modo de avance de la presentación con diapositivas en la vista especificada. Puede ser una de las siguientes constantes PpSlideShowAdvanceMode: ppSlideShowManualAdvance, ppSlideShowRehearseNewTimings o ppSlideShowUseSlideTimings. Long de sólo lectura.


Ejemplo de la propiedad AdvanceMode

Este ejemplo establece la animación de la segunda forma de la diapositiva número uno en la presentación activa para empezar automáticamente después de cinco segundos.

With ActivePresentation.Slides(1).Shapes(2).AnimationSettings

    .AdvanceMode = ppAdvanceOnTime

    .AdvanceTime = 5

    .TextLevelEffect = ppAnimateByAllLevels

    .Animate = True

End With


Propiedad AdvanceTime

Objeto AnimationSettings: Devuelve o establece el tiempo al cabo del cual empieza la animación de la forma especificada. Single de Lectura/Escritura.

Objeto SlideShowTransition: Devuelve o establece el tiempo al cabo del cual se produce la transición de la diapositiva especificada. Single de Lectura/Escritura.

Comentarios

La animación de la diapositiva no se inicia automáticamente después del tiempo especificado si la propiedad AdvanceMode de la animación no tiene el valor ppAdvanceOnTime. La transición de la diapositiva especificada no avanzará automáticamente si la propiedad AdvanceMode de la configuración de la presentación con diapositivas no tiene el valor ppSlideShowUseSlideTimings.


Ejemplo de la propiedad AdvanceTime

Este ejemplo establece la animación de la segunda forma de la diapositiva número uno en la presentación activa para empezar automáticamente después de cinco segundos.

With ActivePresentation.Slides(1).Shapes(2).AnimationSettings

    .AdvanceMode = ppAdvanceOnTime

    .AdvanceTime = 5

    .TextLevelEffect = ppAnimateByAllLevels

    .Animate = True

End With


Propiedad AfterEffect

Devuelve o establece un valor que indica si la forma especificada aparece atenuada, oculta o sin cambios después de la animación. Puede ser una de las siguientes constantes PpAfterEffect: ppAfterEffectDim, ppAfterEffectHide, ppAfterEffectHideOnClick, ppAfterEffectMixed o ppAfterEffectNothing (el valor predeterminado).Long de Lectura/Escritura.

Comentarios

No se verá el efecto establecido para la forma a menos que ésta tenga alguna animación y que haya al menos otra forma en la diapositiva que se anime después de ésta. Para animar una forma, la propiedad TextLevelEffect del objeto AnimationSettings de la forma debe tener un valor distinto de ppAnimateLevelNone y la propiedad Animate debe ser True. Para cambiar el orden de animación de las formas de una diapositiva, utilice la propiedad AnimationOrder.


Ejemplo de la propiedad AfterEffect

Este ejemplo especifica que el título de la segunda diapositiva de la presentación activa aparezca atenuado después de la animación del título. Si el título es la última o la única forma con animación de la segunda diapositiva, entonces no se atenuará el texto.

With ActivePresentation.Slides(1).Shapes.Title.AnimationSettings

    .TextLevelEffect = ppAnimateByAllLevels

    .AfterEffect = ppAfterEffectDim

    .Animate = True

End With


Propiedad Animate

True si la forma especificada tiene animación durante la presentación con diapositivas. Long de Lectura/Escritura.

Comentarios

Esta propiedad debe ser True para que tengan efecto las demás propiedades del objeto AnimationSettings.


Ejemplo de la propiedad Animate

Este ejemplo especifica que el título de la segunda diapositiva de la presentación activa aparezca atenuado después de la animación del título. Si el título es la última o la única forma con animación de la segunda diapositiva, entonces no se atenuará el texto.

With ActivePresentation.Slides(2).Shapes.Title.AnimationSettings

    .TextLevelEffect = ppAnimateByAllLevels

    .AfterEffect = ppAfterEffectDim

    .Animate = True

End With


Propiedad AnimateBackground

Si el objeto especificado es una autoforma, True si la forma está animada independientemente del texto que contiene. Si la forma especificada es un gráfico, True si el fondo (los ejes y las líneas de la cuadrícula) del gráfico especificado está animado. Se aplica sólo a las autoformas con texto que puede animarse en más de un paso o a objetos gráficos. Long de Lectura/Escritura.

Comentarios

Utilice las propiedades TextLevelEffect y TextUnitEffect para controlar la animación del texto adjunto a la forma especificada.

Si la propiedad es True y la propiedad TextLevelEffect tiene el valor ppAnimateByAllLevels, se animarán simultáneamente la forma y su texto. Si la propiedad es True y la propiedad TextLevelEffect tiene un valor distinto de ppAnimateByAllLevels, la animación de la forma ocurrirá inmediatamente antes de la animación del texto.

No se verán los efectos de los valores de esta propiedad si la forma especificada no está animada. Para animar una forma, la propiedad TextLevelEffect del objeto AnimationSettings de la forma debe tener un valor distinto de ppAnimateLevelNone y la propiedad Animate debe ser True.


Ejemplo de la propiedad AnimateBackground

Este ejemplo crea un rectángulo que contiene texto. Además especifica que la forma vuele desde la esquina inferior derecha, que la animación del texto sea por párrafos de primer nivel y que la animación de la forma sea independiente de la del texto que contiene.

With ActivePresentation.Slides(1).Shapes.AddShape(msoShapeRectangle, 50, 50, 200, 300)

    .TextFrame.TextRange = "Razón 1" & Chr(13) & "Razón 2" & Chr(13) & "Razón 3"

    With .AnimationSettings

        .EntryEffect = ppEffectFlyFromBottomRight

        .TextLevelEffect = ppAnimateByFirstLevel

        .TextUnitEffect = ppAnimateByParagraph

        .AnimateBackground = True

        .Animate = True

    End With

End With


Propiedad AnimateTextInReverse

True si la forma especificada se anima en orden inverso. Se aplica solamente a formas, tales como las que contienen listas, que pueden animarse en más de un paso. Long de Lectura/Escritura.

Comentarios

No se verán los efectos de los valores de esta propiedad si la forma especificada no está animada. Para animar una forma, la propiedad TextLevelEffect del objeto AnimationSettings de la forma debe tener un valor distinto de ppAnimateLevelNone y la propiedad Animate debe ser True.


Ejemplo de la propiedad AnimateTextInReverse

Este ejemplo agrega una diapositiva después de la primera diapositiva en la presentación activa. También establece el texto del título, agrega una lista de tres elementos en el marcador de posición y establece que la lista se anime en orden inverso.

With ActivePresentation.Slides.Add(2, ppLayoutText).Shapes

    .Item(1).TextFrame.TextRange.Text = "Tres razones principales"

    With .Item(2)

        .TextFrame.TextRange = "Razón 1" & Chr(13) & "Razón 2" & Chr(13) & "Razón 3"

        With .AnimationSettings

            .Animate = True

            .TextLevelEffect = ppAnimateByFirstLevel

            .AnimateTextInReverse = True

        End With

    End With

End With


Propiedad AnimationOrder

Devuelve o establece un entero que representa la posición de la forma especificada dentro del conjunto de formas con animación. Long de Lectura/Escritura.

Comentarios

No se verán los efectos de los valores de esta propiedad si la forma especificada no está animada. Para animar una forma, la propiedad TextLevelEffect del objeto AnimationSettings de la forma debe tener un valor distinto de ppAnimateLevelNone y la propiedad Animate debe ser True.


Ejemplo de la propiedad AnimationOrder

Este ejemplo especifica que la segunda forma de la segunda diapositiva en la presentación activa se anime en segundo lugar.

ActivePresentation.Slides(2).Shapes(2).AnimationSettings.AnimationOrder = 2


Propiedad ChartUnitEffect

Devuelve o establece un valor que indica si el rango del gráfico está animado por serie, categoría o elemento. Puede ser uno de los siguientes valores ChartUnitEffect: ppAnimateByCategory, ppAnimateByCategoryElements, ppAnimateBySeries, ppAnimateBySeriesElements o ppAnimateChartMixed. Long de Lectura/Escritura.

Comentarios

Si el gráfico no resulta animado, asegúrese de que la propiedad Animate tiene el valor True


Ejemplo de la propiedad ChartUnitEffect

Este ejemplo establece que la segunda forma de la tercera diapositiva en la presentación activa se anime por series. Para que funcione, la segunda forma debe ser un gráfico.

With ActivePresentation.Slides(3).Shapes(2)

    With .AnimationSettings

        .ChartUnitEffect = ppAnimateBySeries

        .EntryEffect = ppEffectFlyFromLeft

        .Animate = True

    End With

End With


Propiedad DimColor

Devuelve o establece un objeto ColorFormat que representa el color de la forma especificada después de haber sido animada. Es de sólo lectura.

Comentarios

Si no obtiene el efecto esperado, compruebe la otra configuración de animación. No se verá el efecto de la propiedad DimColor si la propiedad TextLevelEffect del objeto AnimationSettings tiene el valor ppAnimateLevelNone, si la propiedad AfterEffect no tiene el valor ppAfterEffectDim y si la propiedad Animate no es True. Además, si la forma especificada es el primer o el último elemento de la animación, la forma no será atenuada. Para cambiar el orden de la animación de las formas en la diapositiva, utilice la propiedad AnimationOrder.


Ejemplo de la propiedad DimColor

Este ejemplo agrega a la presentación activa una diapositiva que contiene un título y una lista de tres elementos. Además, establece el título y la lista para se atenúen después de la animación y también el color de atenuación de cada uno de ellos.

With ActivePresentation.Slides.Add(2, ppLayoutText).Shapes

    With .Item(1)

        .TextFrame.TextRange.Text = "Título de ejemplo"

        With .AnimationSettings

            .TextLevelEffect = ppAnimateByAllLevels

            .AfterEffect = ppAfterEffectDim

            .DimColor.SchemeColor = ppShadow

            .Animate = True

        End With

    End With

    With .Item(2)

        .TextFrame.TextRange.Text = "Primer elemento" & Chr(13) & "Segundo elemento"

        With .AnimationSettings

            .TextLevelEffect = ppAnimateByFirstLevel

            .AfterEffect = ppAfterEffectDim

            .DimColor.RGB = RGB(100, 150, 130)

            .Animate = True

        End With

    End With

End With


Propiedad EntryEffect

Para el objeto AnimationSettings, esta propiedad devuelve o establece el efecto especial aplicado a la animación para la forma especificada. Para el objeto SlideShowTransition, esta propiedad devuelve o establece el efecto especial aplicado a la transición de diapositiva especificada. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes PpEntryEffect:

ppEffectAppear ppEffectBlindsHorizontal ppEffectBlindsVertical ppEffectBoxIn ppEffectBoxOut ppEffectCheckerboardAcross ppEffectCheckerboardDown ppEffectCoverDown ppEffectCoverLeft ppEffectCoverLeftDown ppEffectCoverLeftUp ppEffectCoverRight ppEffectCoverRightDown ppEffectCoverRightUp ppEffectCoverUp ppEffectCrawlFromDown ppEffectCrawlFromLeft ppEffectCrawlFromRight ppEffectCrawlFromUp ppEffectCut ppEffectCutThroughBlack ppEffectDissolve ppEffectFade ppEffectFlashOnceFast ppEffectFlashOnceMedium ppEffectFlashOnceSlow ppEffectFlyFromBottom ppEffectFlyFromBottomLeft ppEffectFlyFromBottomRight ppEffectFlyFromLeft ppEffectFlyFromRight ppEffectFlyFromTop ppEffectFlyFromTopLeft ppEffectFlyFromTopRight	ppEffectMixed ppEffectNone ppEffectPeekFromDown ppEffectPeekFromLeft ppEffectPeekFromRight ppEffectPeekFromUp ppEffectRandom ppEffectRandomBarsHorizontal ppEffectRandomBarsVertical ppEffectSplitHorizontalIn ppEffectSplitHorizontalOut ppEffectSplitVerticalIn ppEffectSplitVerticalOut ppEffectStripsDownLeft ppEffectStripsDownRight ppEffectStripsLeftDown ppEffectStripsLeftUp ppEffectStripsRightDown ppEffectStripsRightUp ppEffectStripsUpLeft ppEffectStripsUpRight ppEffectUncoverDown ppEffectUncoverLeft ppEffectUncoverLeftDown ppEffectUncoverLeftUp ppEffectUncoverRight ppEffectUncoverRightDown ppEffectUncoverRightUp ppEffectUncoverUp ppEffectWipeDown ppEffectWipeLeft ppEffectWipeRight ppEffectWipeUp
Comentarios

Si la propiedad TextLevelEffect de la forma especificada es ppAnimateLevelNone (el valor predeterminado) o la propiedad Animate es False, no podrá ver los efectos especiales aplicados con la propiedad EntryEffect.


Ejemplo de la propiedad EntryEffect

Este ejemplo agrega una diapositiva de título a la presentación activa y establece que el título vuele desde la esquina derecha siempre que esté dotado de animación durante la presentación de una diapositiva.

With ActivePresentation.Slides.Add(1, ppLayoutTitleOnly).Shapes(1)

        .TextFrame.TextRange.Text = "Título de ejemplo"

    With .AnimationSettings

        .TextLevelEffect = ppAnimateByAllLevels

        .EntryEffect = ppEffectFlyFromRight

        .Animate = True

    End With

End With


Propiedad PlaySettings

Devuelve un objeto PlaySettings que contiene información acerca de la reproducción de un clip multimedia durante una presentación con diapositivas. Es de sólo lectura.


Ejemplo de la propiedad PlaySettings

Este ejemplo inserta una película denominada "Clock.avi" en la primera diapositiva de la presentación activa y establece que se reproduzca automáticamente después de la transición de diapositiva. Además especifica que el objeto de película se oculte durante la presentación con diapositivas si no está reproduciéndose.

With ActivePresentation.Slides(1).Shapes.AddOLEObject(Left:=10, Top:=10, _

        Width:=250, Height:=250, FileName:="c:\winnt\clock.avi")

    With .AnimationSettings.PlaySettings

        .PlayOnEntry = True

        .HideWhileNotPlaying = True

    End With

End With


Propiedad SoundEffect

Objeto ActionSetting: Devuelve un objeto SoundEffect que representa el sonido que se va a reproducir al hacer clic en la forma especificada o cuando el puntero del mouse (ratón) pase por encima de la forma. Si durante la presentación con diapositivas no se oye el sonido asignado a la forma, asegúrese de que la propiedad TextLevelEffect tiene un valor distinto de ppAnimateLevelNone y de que la propiedad Animate es True. Es de sólo lectura.

Objeto AnimationSettings: Devuelve un objeto SoundEffect que representa el sonido que se va a reproducir durante la animación de la forma especificada. Es de sólo lectura.

Objeto SlideShowTransition: Devuelve un objeto SoundEffect que representa el sonido que se va a reproducir durante la transición de la diapositiva especificada. Es de sólo lectura.


Ejemplo de la propiedad SoundEffect

Este ejemplo establece que se reproduzca el archivo Dudududu.wav siempre que se anime la forma número uno de la primera diapositiva de la presentación activa.

With ActivePresentation.Slides(1).Shapes(1).AnimationSettings

    .Animate = True

    .TextLevelEffect = ppAnimateByAllLevels

    .SoundEffect.ImportFromFile "c:\sndsys\dudududu.wav"

End With


Propiedad TextLevelEffect

Devuelve o establece un valor que indica si el texto de la forma especificada está animado por párrafos de primer nivel, párrafos de segundo nivel u otro nivel (hasta párrafos de quinto nivel). Puede ser una de las siguientes constantes PpTextLevelEffect: ppAnimateByAllLevels, ppAnimateByFifthLevel, ppAnimateByFirstLevel, ppAnimateByFourthLevel, ppAnimateBySecondLevel, ppAnimateByThirdLevel, ppAnimateLevelMixed o ppAnimateLevelNone. Long de Lectura/Escritura.

Comentarios

Para que el valor de la propiedad TextLevelEffect tenga efecto, la propiedad Animate debe ser True.


Ejemplo de la propiedad TextLevelEffect

Este ejemplo agrega a la presentación activa una diapositiva de título y texto al título. Además, establece la animación del título para que se produzca letra por letra.

With ActivePresentation.Slides.Add(1, ppLayoutTitleOnly).Shapes(1)

    .TextFrame.TextRange.Text = "Título de ejemplo"

    With .AnimationSettings

        .Animate = True

        .TextLevelEffect = ppAnimateByFirstLevel

        .TextUnitEffect = ppAnimateByCharacter

        .EntryEffect = ppEffectFlyFromLeft

    End With

End With


Propiedad TextUnitEffect

Devuelve o establece un valor que indica si el texto de la forma especificada está animado por párrafos, por palabras o por letras. Puede ser uno de los siguientes valores TextUnitEffect: ppAnimateByCharacter, ppAnimateByParagraph, ppAnimateByWord o ppAnimateUnitMixed. Long de Lectura/Escritura.

Comentarios

Para que el valor de la propiedad TextUnitEffect tenga efecto, la propiedad TextLevelEffect de la forma especificada debe tener un valor distinto de ppAnimateLevelNone o ppAnimateByAllLevels y la propiedad Animate debe ser True.


Ejemplo de la propiedad TextUnitEffect

Este ejemplo agrega a la presentación activa una diapositiva de título y texto al título. Además, establece la animación del título para que se produzca letra por letra.

With ActivePresentation.Slides.Add(1, ppLayoutTitleOnly).Shapes(1)

    .TextFrame.TextRange.Text = "Título de ejemplo"

    With .AnimationSettings

        .Animate = True

        .TextLevelEffect = ppAnimateByFirstLevel

        .TextUnitEffect = ppAnimateByCharacter

        .EntryEffect = ppEffectFlyFromLeft

    End With

End With


Propiedad ActivePresentation

Devuelve un objeto Presentation que representa la presentación abierta. Es de sólo lectura.

Tenga en cuenta que si una presentación incrustada está ejecutándose, la propiedad ActivePresentation devuelve la presentación incrustada.


Ejemplo de la propiedad ActivePresentation

Este ejemplo agrega una nueva combinación de colores a la presentación activa, establece el color del título y aplica esta nueva combinación de colores a todas las diapositivas de la presentación.

With Application.ActivePresentation.ColorSchemes.Add

    .Item(ppTitleColor).RGB = RGB(255, 0, 0)

    .ApplyToAllSlides

End With


Propiedad ActivePrinter

Devuelve el nombre de la impresora activa. String de sólo lectura.


Ejemplo de la propiedad ActivePrinter

Este ejemplo muestra el nombre de la impresora activa.

MsgBox "El nombre de la impresora activa es " & Application.ActivePrinter


Propiedad ActiveWindow

Devuelve un objeto DocumentWindow que representa la ventana del documento activo. Es de sólo lectura.


Ejemplo de la propiedad ActiveWindow

Este ejemplo minimiza la ventana activa.

Application.ActiveWindow.WindowState = ppWindowMinimized


Propiedad AddIns

Devuelve un conjunto AddIns que representa todos los complementos listados en el cuadro de diálogo Complementos (menú Herramientas). Es de sólo lectura.

Para más información acerca de cómo obtener un componente único de un conjunto, vea Devolver un objeto de un conjunto.


Ejemplo de la propiedad AddIns

Este ejemplo agrega el complemento denominado "MiComplemento.ppa" a la lista del cuadro de diálogo Complementos y lo instala automáticamente.

Set miComplemento = Application.AddIns.Add(FileName:="c:\MiComplemento.ppa")

MsgBox MiComplemento.Name & " se agregó a la lista"


Propiedad Assistant

Devuelve un objeto Assistant que representa al Ayudante de Office. Es de sólo lectura.


Ejemplo de la propiedad Assistant

Este ejemplo muestra el Ayudante de Office.

Application.Assistant.Visible = True

Este ejemplo mueve el Ayudante de Office al extremo superior izquierdo de la pantalla.

Application.Assistant.Move xLeft:=100, yTop:=100


Propiedad Build

Devuelve el número de compilación de PowerPoint. String de sólo lectura.


Ejemplo de la propiedad Build

Este ejemplo muestra el número de compilación de PowerPoint.

MsgBox Prompt:=Application.Build, Title:="Compilación de PowerPoint"


Propiedad Caption

Objeto Application: Devuelve el texto que aparece en la barra de título de la ventana de la aplicación. String de lectura o escritura.

Objeto DocumentWindow: Devuelve el texto que aparece en la barra de título de la ventana del documento. Cadena de sólo lectura.


Ejemplo de la propiedad Caption

Este ejemplo muestra el título para cada ventana de documento abierta.

With Application.Windows

    For v = 1 To .Count

        MsgBox "Ventana " & v & " contiene " & .Item(1).Caption

    Next

End With


Propiedad CommandBars

Devuelve un conjunto CommandBars que representa todas las barras de comando de PowerPoint. Es de sólo lectura.

Para más información acerca de cómo obtener un componente único de un conjunto, vea Devolver un objeto de un conjunto.


Ejemplo de la propiedad CommandBars

Este ejemplo agranda todos los botones de la barra de botones y activa la Información sobre herramientas.

With Application.CommandBars

    .LargeButtons = True

    .DisplayTooltips = True

End With

Este ejemplo muestra la barra de comandos Formato en la parte superior de la ventana de aplicación.

With Application.CommandBars("Formato")

    .Visible = True

    .Position = msoBarTop

End With


Propiedad FileSearch

Devuelve un objeto FileSearch que puede usarse para buscar archivos utilizando una ruta de acceso absoluta o relativa. Es de sólo lectura.

Para más información acerca de obtener un componente único de un conjunto, vea Devolver un objeto de un conjunto.

Nota   Esta propiedad sólo está disponible en Microsoft Windows.


Ejemplo de la propiedad FileSearch

Este ejemplo muestra los nombres de todos los archivos en la carpeta Mis documentos que empiezan por "Nuevo".

With Application.FileSearch

    .FileName = "Nuevo*.*"

    .LookIn = "C:\Mis documentos"

    .Execute

    For I = 1 To .FoundFiles.Count

        MsgBox .FoundFiles(I)

    Next

End With


Método Help

Muestra un tema de ayuda.

Sintaxis

expresión.Help(HelpFile, ContextID)

expresión   Requerida. Una expresión que devuelve un objeto Application.

HelpFile String opcional. El nombre del archivo de ayuda en pantalla que se desea mostrar. Si no se especifica este argumento, se utiliza la Ayuda de PowerPoint.

ContextID Long opcional. El número de Id. de contexto del tema de ayuda. Si no se especifica este argumento, se muestra el cuadro de diálogo de Temas de Ayuda.


Ejemplo del método Help

Este ejemplo muestra el tema número 65527 en el archivo de ayuda Otisapp.hlp.

Application.Help "OTISAPP.HLP", 65527


Propiedad OperatingSystem

Devuelve el nombre del sistema operativo. String de sólo lectura.


Ejemplo de la propiedad OperatingSystem

Este ejemplo revisa la propiedad OperatingSystem para comprobar si PowerPoint se ejecuta bajo una versión de 32 bits de Microsoft Windows.

so = Application.OperatingSystem

If InStr(so, "Windows (32-bit)") <> 0 Then

MsgBox "Ejecutando una versión de 32 bits Microsoft Windows"

End If


Propiedad Path

Devuelve la ruta de acceso de los objetos AddIn, Application o Presentation. String de sólo lectura.

Nota   La ruta no incluye el carácter separador final (en Windows, es una barra invertida (\); en Macintosh, son dos puntos (:)) o el nombre del objeto especificado. Use la propiedad Name del objeto Presentation para obtener el nombre del archivo sin la ruta de acceso, y use la propiedad FullName para obtener el nombre de archivo y la ruta de acceso conjuntamente.


Ejemplo de la propiedad Path

Este ejemplo guarda la presentación activa en la misma carpeta que PowerPoint.

With Application

    NombreArchivo = .Path & "\presentación de prueba"

    ActivePresentation.SaveAs NombreArchivo

End With


Propiedad Presentations

Devuelve un conjunto Presentations que representa todas las presentaciones abiertas. Es de sólo lectura.

Para más información acerca de cómo obtener un componente único de un conjunto, vea Devolver un objeto de un conjunto.


Ejemplo de la propiedad Presentations

Este ejemplo abre la presentación denominada "Versión larga.ppt."

Application.Presentations.Open _

    FileName:="c:\Mis documentos\Versión larga.ppt"

Este ejemplo guarda la presentación uno como "Informe fin de año.ppt."

Application.Presentations(1).SaveAs "Informe fin de año"

Este ejemplo cierra la presentación Informe Fin de Año.

Application.Presentations("Informe fin de año.ppt").Close


Método Quit

Sale de PowerPoint. Esto es equivalente a hacer clic en Salir en el menú Archivo.

Sintaxis

expresión.Quit

expresión   Requerida. Una expresión que devuelve un objeto Application.

Comentarios

Para evitar la pregunta de guardar los cambios, use los métodos Save o SaveAs para guardar todas las presentaciones abiertas antes de activar al método Quit.


Ejemplo del método Quit

Este ejemplo guarda todas las presentaciones abiertas y sale de PowerPoint.

With Application

    For Each v In .Presentations

        v.Save

    Next v

    .Quit

End With


Propiedad SlideShowWindows

Devuelve un conjunto SlideShowWindows que representa todas las ventanas con diapositivas abiertas. Es de sólo lectura.

Para más información acerca de cómo obtener un componente único de un conjunto, vea Devolver un objeto de un conjunto.


Ejemplo de la propiedad SlideShowWindows

Este ejemplo ejecuta una presentación en una ventana y ajusta el ancho y el alto de la ventana de presentación con diapositivas.

With Application

    .Presentations(1).SlideShowSettings.Run

    With .SlideShowWindows(1)

        .Height = 250

        .Width = 250

    End With

End With


Propiedad VBE

Devuelve un objeto VBE que representa el Editor de Visual Basic. Es de sólo lectura.


Ejemplo de la propiedad VBE

Este ejemplo establece el nombre del proyecto activo en el Editor de Visual Basic.

Application.VBE.ActiveVBProject.Name = "ProyectoPrueba"


Propiedad Version

Devuelve el número de versión de PowerPoint. String de sólo lectura.


Ejemplo de la propiedad Version

Este ejemplo muestra un cuadro de mensaje con el número de versión y de compilación de PowerPoint, y el nombre del sistema operativo.

With Application

MsgBox "Bienvenido a PowerPoint versión " & .Version & _

    ", compilación " & .Build & ", ejecutándose bajo" & .OperatingSystem & "!"

End With


Propiedad Windows

Objeto Application: Devuelve un conjunto DocumentWindows que representa todas las ventanas de documento abiertas. Es de sólo lectura.

Objeto Presentation: Devuelve un conjunto DocumentWindows que representa todas las ventanas de documento asociadas con la presentación especificada. Esta propiedad no devuelve ninguna ventana de diapositiva asociada con la presentación. Es de sólo lectura.

Para más información acerca de cómo obtener un componente único de un conjunto, vea Devolver un objeto de un conjunto.


Ejemplo de la propiedad Windows

Este ejemplo cierra todas las ventanas excepto la ventana activa.

With Application.Windows

    For i = 2 To .Count

        .Item(2).Close

    Next

End With


Propiedad Character

Devuelve o establece el valor del carácter Unicode que se usa para las viñetas del texto especificado. Long de Lectura/Escritura.


Ejemplo de la propiedad Character

Este ejemplo establece el formato de viñeta en la segunda forma de la diapositiva número uno de la presentación activa.

Set marco2 = ActivePresentation.Slides(1).Shapes(2).TextFrame

With marco2.TextRange.ParagraphFormat.Bullet

    .Character = 8226

    .Visible = True

End With


Propiedad Font

Devuelve un objeto Font que representa el formato de carácter. Es de sólo lectura.


Ejemplo de la propiedad Font

Este ejemplo establece el formato del texto en la primera forma de la diapositiva número uno de la presentación activa.

With ActivePresentation.Slides(1).Shapes(1)

    With .TextFrame.TextRange.Font

        .Size = 48

        .Name = "Palatino"

        .Bold = True

        .Color.RGB = RGB(255, 127, 255)

    End With

End With

Este ejemplo establece el color y fuente de las viñetas de la segunda forma en la diapositiva número uno.

With ActivePresentation.Slides(1).Shapes(2)

    With .TextFrame.TextRange.ParagraphFormat.Bullet

        .Visible = True

        With .Font

            .Name = "Palatino"

            .Color.RGB = RGB(0, 0, 255)

        End With

    End With

End With


Propiedad RelativeSize

Devuelve o establece el tamaño de viñeta relativo al tamaño del primer carácter del párrafo. Puede ser un valor de signo decimal flotante comprendido entre 0.25 y 4. Indica que el tamaño de la viñeta puede estar comprendido entre el 25% y el 400% del tamaño del carácter del texto. Single de Lectura/Escritura.


Ejemplo de la propiedad RelativeSize

Este ejemplo establece el formato de viñeta de la segunda forma de la diapositiva número uno en la presentación activa. El tamaño de la viñeta es el 125% del tamaño del primer carácter del párrafo.

With ActivePresentation.Slides(1).Shapes(2)

    With .TextFrame.TextRange.ParagraphFormat.Bullet

        .Visible = True

        .RelativeSize = 1.25

        .Character = 169

        With .Font

            .Name = "Symbol"

            .Color.RGB = RGB(255, 0, 0)

        End With

    End With

End With


Propiedad UseTextColor

True si las viñetas especificadas tienen el color del primer carácter del párrafo. False si las viñetas especificadas tienen un color distinto. Long de Lectura/Escritura.

Comentarios

No es posible establecer explícitamente esta propiedad como False. Al establecer el color de la viñeta (con la propiedad Color del objeto Font) se establece esta propiedad en False. Si UseTextColor es False, puede establecer la propiedad en True para restablecer el formato de viñeta con el color predeterminado.


Ejemplo de la propiedad UseTextColor

Este ejemplo restablece las viñetas de la segunda forma de la diapositiva número uno en la presentación activa al carácter, fuente y color predeterminados.

With ActivePresentation.Slides(1).Shapes(2)

    With .TextFrame.TextRange.ParagraphFormat.Bullet

        .RelativeSize = 1

        .UseTextColor = True

        .UseTextFont = True

        .Character = 8226

    End With

End With


Propiedad UseTextFont

True si las viñetas especificadas tienen la fuente del primer carácter del párrafo. False si las viñetas especificadas tienen una fuente personalizada. Long de Lectura/Escritura.

Comentarios

No es posible establecer explícitamente esta propiedad como False. Al establecer la fuente de la viñeta (con la propiedad Name del objeto Font) se establece esta propiedad en False. Si UseTextFont es False, puede establecer la propiedad en True para restablecer el formato de viñeta con la fuente predeterminada.


Ejemplo de la propiedad UseTextFont

Este ejemplo restablece las viñetas de la segunda forma de la diapositiva número uno en la presentación activa al carácter, fuente y color predeterminados.

With ActivePresentation.Slides(1).Shapes(2)

    With .TextFrame.TextRange.ParagraphFormat.Bullet

        .RelativeSize = 1

        .UseTextColor = True

        .UseTextFont = True

        .Character = 8226

    End With

End With


Propiedad Accent

True si una barra de énfasis vertical separa el texto de la llamada de la línea de la llamada. Long de Lectura/Escritura.


Ejemplo de la propiedad Accent

Este ejemplo agrega a miDocumento una elipse y una llamada que hace referencia a ésta. El texto de la llamada no tendrá borde, pero tendrá una barra de énfasis vertical que separa el texto de la línea de la llamada.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    .AddShape msoShapeOval, 180, 200, 280, 130

    With .AddCallout(msoCalloutTwo, 420, 170, 170, 40)

        .TextFrame.TextRange.Text = "Mi elipse"

        With .Callout

            .Accent = True

            .Border = False

        End With

    End With

End With


Propiedad Angle

Devuelve o establece el ángulo de la línea de la llamada. Si la línea contiene más de un segmento de línea, esta propiedad devuelve o establece el ángulo del segmento que está más alejado del cuadro del texto de la llamada. Puede ser una de las siguientes constantes MsoCalloutAngleType: msoCalloutAngle30, msoCalloutAngle45, msoCalloutAngle60, msoCalloutAngle90, msoCalloutAngleAutomatic o msoCalloutAngleMixed. Long de Lectura/Escritura.

Comentarios

Si el valor de esta propiedad es diferente a msoCalloutAngleAutomatic, la línea de la llamada conservará un ángulo fijo al arrastrar la llamada.


Ejemplo de la propiedad Angle

Este ejemplo establece el ángulo de la llamada en 90 grados para una llamada denominada "ll1" en miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes("ll1").Callout.Angle = msoCalloutAngle90


Propiedad AutoAttach

True si el punto donde la línea de la llamada se une al cuadro del texto de la llamada cambia, dependiendo de si el origen de la línea (a donde señala) está a la izquierda o a la derecha del cuadro del texto de la llamada. Long de Lectura/Escritura.

Comentarios

Si el valor de esta propiedad es True, el valor de la línea de unión (distancia vertical desde el borde del cuadro del texto de la llamada hasta el punto donde se une la línea de la llamada) se calcula desde la parte superior del cuadro de texto cuando este último está a la derecha del origen y desde la parte inferior del cuadro de texto cuando se encuentra a la izquierda. Si el valor de la propiedad es False, el valor de la línea de unión siempre se calcula desde la parte superior del cuadro de texto, independientemente de las posiciones relativas del cuadro de texto y el origen. Utilice el método CustomDrop para establecer el valor de la línea de unión y la propiedad Drop para devolverle su valor anterior.

Una llamada sólo se ve afectada por el valor de esta propiedad si tiene un valor de línea de unión explícitamente establecido, es decir, si el valor de la propiedad DropType es msoCalloutDropCustom. De forma predeterminada, cuando se crean, las llamadas tienen valores de línea de unión explícitamente establecidos.


Ejemplo de la propiedad AutoAttach

Este ejemplo agrega dos llamadas a miDocumento. Si se arrastra el cuadro de texto de cada una de las llamadas hacia la izquierda con respecto al origen de la línea de la llamada, el lugar del cuadro de texto donde se une la línea cambiará para la llamada que se unió automáticamente.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    With .AddCallout(msoCalloutTwo, 420, 170, 200, 50)

        .TextFrame.TextRange.Text = "unida automáticamente"

        .Callout.AutoAttach = True

    End With

    With .AddCallout(msoCalloutTwo, 420, 350, 200, 50)

        .TextFrame.TextRange.Text = "unida manualmente"

        .Callout.AutoAttach = False

    End With

End With


Propiedad AutoLength

True si al primer segmento de la línea de la llamada (segmento unido al cuadro de la llamada de texto) se le aplica escala automáticamente siempre que se mueva la llamada. False si el primer segmento de la llamada conserva la longitud fija especificada por la propiedad Length siempre que se mueva la llamada. Sólo se aplica a llamadas cuyas líneas están formadas por más de un segmento (tipos msoCalloutThree y msoCalloutFour). Long de sólo lectura.

Comentarios

La propiedad es de sólo lectura. Utilice el método AutomaticLength para que el valor de la propiedad sea True y el método CustomLength para que el valor sea False.


Ejemplo de la propiedad AutoLength

Este ejemplo alterna un primer segmento al que se aplica escala automáticamente y un segmento con línea de llamada de longitud fija para dar forma a un segmento en miDocumento. Para que el ejemplo tenga validez la forma uno debe ser una llamada.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(1).Callout

    If .AutoLength Then

        .CustomLength 50

    Else

        .AutomaticLength

    End If

End With


Método AutomaticLength

Especifica que se aplique escala automáticamente al primer segmento de la línea de la llamada (segmento unido al cuadro de texto de la llamada) cuando ésta sea desplazada. Utilice el método CustomLength para especificar que el primer segmento de la línea conserve la longitud establecida devuelta con la propiedad Length siempre que se desplace la llamada. Sólo se aplica a llamadas cuyas líneas están formadas por más de un segmento (tipos msoCalloutThree y msoCalloutFour).

Sintaxis

expresión.AutomaticLength

expresión   Requerida. Expresión que devuelve un objeto de CalloutFormat.

Comentarios

Si se aplica este método se establece la propiedad AutoLength como True.


Ejemplo del método AutomaticLength

Este ejemplo alterna un primer segmento al que se aplica escala automáticamente y un segmento con línea de llamada de longitud fija para dar forma a un segmento en miDocumento. Para que el ejemplo dé resultado, la forma uno debe ser una llamada.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(1).Callout

    If .AutoLength Then

        .CustomLength 50

    Else

        .AutomaticLength

    End If

End With


Propiedad Border

True si el texto de la llamada especificada está rodeado por un borde. Long de Lectura/Escritura.


Ejemplo de la propiedad Border

Este ejemplo agrega a miDocumento una elipse y una llamada que hace referencia a ésta. El texto de la llamada no tendrá borde, pero tendrá una barra de énfasis vertical que separará el texto de la línea de la llamada.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    .AddShape msoShapeOval, 180, 200, 280, 130

    With .AddCallout(msoCalloutTwo, 420, 170, 170, 40)

        .TextFrame.TextRange.Text = "Mi elipse"

        With .Callout

            .Accent = True

            .Border = False

        End With

    End With

End With


Método CustomDrop

Establece la distancia vertical (en puntos) desde el borde del cuadro de límite del texto hasta el lugar donde la línea de la llamada se une al cuadro del texto. Si el valor de esta propiedad es True, el valor de la línea de unión (distancia vertical desde el borde del cuadro del texto de la llamada hasta el punto donde se une la línea de la llamada) se calcula desde la parte superior del cuadro de texto cuando este último está a la derecha del origen y desde la parte inferior del cuadro de texto cuando se encuentra a la izquierda.

Sintaxis

expresión.CustomDrop(Drop)

expresión   Requerida. Expresión que devuelve un objeto de CalloutFormat.

Drop   Single requerido. Distancia de la línea de unión, en puntos.


Ejemplo del método CustomDrop

Este ejemplo establece la personalización de la distancia de la línea de unión en 14 puntos y especifica que la distancia de la línea de unión se mida siempre desde la parte superior. Para que el ejemplo tenga validez, la forma tres debe ser una llamada.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(3).Callout

    .CustomDrop 14

    .AutoAttach = False

End With


Método CustomLength

Especifica que el primer segmento de la línea de la llamada (segmento unido al cuadro de texto de la llamada) conserve una longitud fija siempre que la llamada se desplace. Utilice el método AutomaticLength para especificar que se aplique automáticamente escala al primer segmento de la línea de la llamada siempre que ésta sea desplazada. Sólo se aplica a llamadas cuyas líneas están formadas por más de un segmento (tipos msoCalloutThree y msoCalloutFour).

Sintaxis

expresión.CustomLength(Length)

expresión   Requerida. Expresión que devuelve un objeto de CalloutFormat.

Length   Single requerido. Longitud del primer segmento de la llamada, en puntos.

Comentarios

Si se aplica este método, el valor de la propiedad AutoLength se establece como False y la propiedad Length toma el valor especificado para el argumento Length.


Ejemplo del método CustomLength

Este ejemplo alterna un primer segmento al que se da escala automáticamente y un segmento con línea de llamada de longitud fija para dar forma a un segmento en miDocumento. Para que el ejemplo dé resultado, la forma uno debe ser una llamada.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(1).Callout

    If .AutoLength Then

        .CustomLength 50

    Else

        .AutomaticLength

    End If

End With


Propiedad Drop

Para las llamadas que tengan un valor de línea de unión explícitamente establecido, esta propiedad devuelve la distancia vertical (en puntos) desde el borde del cuadro límite del texto hasta el lugar donde la línea de la llamada se une al cuadro del texto. Si el valor de esta propiedad es True, el valor de la línea de unión (distancia vertical desde el borde del cuadro del texto de la llamada hasta el punto donde se une la línea de la llamada) se calcula desde la parte superior del cuadro de texto cuando este último está a la derecha del origen y se calcula desde la parte inferior del cuadro de texto cuando se encuentra a la izquierda. Single de sólo lectura.

Comentarios

Utilice el método CustomDrop para establecer el valor de esta propiedad.

El valor de esta propiedad sólo refleja con exactitud la posición en la que la línea de la llamada se une al cuadro de texto si se ha establecido explícitamente un valor de línea de unión para la llamada, es decir, si el valor de la propiedad DropType es msoCalloutDropCustom.


Ejemplo de la propiedad Drop

Este ejemplo reemplaza la línea de unión personalizada para la forma uno en miDocumento con una de dos líneas de unión previamente establecidas, dependiendo de si el valor de la línea de unión personalizada es mayor o menor que la mitad del alto del cuadro de texto de la llamada. Para que el ejemplo dé resultado, la forma uno debe ser una llamada.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(1).Callout

    If .DropType = msoCalloutDropCustom Then

        If .Drop < .Parent.Height / 2 Then

            .PresetDrop msoCalloutDropTop

        Else

            .PresetDrop msoCalloutDropBottom

        End If

    End If

End With


Propiedad DropType

Devuelve un valor que indica dónde se une la línea de la llamada al cuadro de texto. Puede ser una de las siguientes constantes MsoCalloutDropType: msoCalloutDropBottom, msoCalloutDropCenter, msoCalloutDropCustom, msoCalloutDropMixed o msoCalloutDropTop. Long de sólo lectura.

Comentarios

Si el tipo de línea de unión de la llamada es msoCalloutDropCustom, los valores de las propiedades Drop y AutoAttach y las posiciones relativas del cuadro de texto de la llamada y del origen de la línea (a donde señala la llamada) se utilizarán para determinar si la línea de la llamada se une al cuadro de texto.

La propiedad es de sólo lectura. Utilice el método PresetDrop para establecer el valor de esta propiedad.


Ejemplo de la propiedad DropType

Este ejemplo determina si la forma tres de miDocumento es una llamada con línea de unión personalizada. Si es así, el código reemplaza la línea de unión personalizada con una de dos líneas de unión previamente establecidas, dependiendo de si el valor de la línea de unión personalizada es mayor o menor que la mitad del alto del cuadro de texto de la llamada.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(3)

    If .Type = msoCallout Then

        With .Callout

            If .DropType = msoCalloutDropCustom Then

                If .Drop < .Parent.Height / 2 Then

                    .PresetDrop msoCalloutDropTop

                Else

                    .PresetDrop msoCalloutDropBottom

                End If

            End If

        End With

    End If

End With


Propiedad Gap

Devuelve o establece la distancia horizontal (en puntos) entre el final de la línea de la llamada y el cuadro de límite del texto. Single de Lectura/Escritura.


Ejemplo de la propiedad Gap

Este ejemplo establece la distancia entre la línea de la llamada y el cuadro de límite del texto en 3 puntos para la forma uno en miDocumento. Para que el ejemplo tenga validez, la forma uno debe ser una llamada.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes(1).Callout.Gap = 3


Propiedad Length

Objeto de CalloutFormat: Si la propiedad AutoLength de la llamada especificada se establece como False, la propiedad Length devuelve la longitud (en puntos) del primer segmento de la línea de la llamada (segmento unido al cuadro de texto de la llamada). Sólo se aplica a llamadas cuyas líneas están formadas por más de un segmento (tipos msoCalloutThree y msoCalloutFour). Single de sólo lectura.

Objeto TextRange: Devuelve la longitud del intervalo de texto especificado, en caracteres. Long de sólo lectura.

Comentarios

La propiedad es de sólo lectura. Utilice el método CustomLength para establecer el valor de esta propiedad para el objeto de CalloutFormat.


Ejemplo de la propiedad Length

Si el primer segmento de línea de la llamada denominada "ll1" tiene una longitud fija, este ejemplo especifica que la longitud del primer segmento de línea de la llamada denominada "ll2" también se fijará en dicha longitud. Para que el ejemplo tenga validez, ambas llamadas deben tener líneas de segmentos múltiples.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    With .Item("ll1").Callout

        If Not .AutoLength Then longitud1 = .Length

    End With

    If longitud1 Then .Item("ll2").Callout.CustomLength longitud1

End With

Este ejemplo establece el tamaño de la fuente del título en 48 puntos si el título de la diapositiva dos contiene más de cinco caracteres o establece el tamaño de la fuente en 72 puntos si el título tiene cinco o menos de cinco caracteres.

Set miDocumento = ActivePresentation.Slides(2)

With miDocumento.Shapes(1).TextFrame.TextRange

    If .Length > 5 Then

        .Font.Size = 48

    Else

        .Font.Size = 72

    End If

End With


Método PresetDrop

Especifica si la línea de la llamada se une a la parte superior, a la parte inferior o a la parte central del cuadro del texto de la llamada o si se une a un punto que está a una distancia específica de la parte superior o inferior del cuadro de texto.

Sintaxis

expresión.PresetDrop(DropType)

expresión   Requerida. Expresión que devuelve un objeto de CalloutFormat.

DropType   Long requerido. Posición inicial de la línea de la llamada con respecto al cuadro de límite del texto. Puede ser una de las siguientes constantes MsoCalloutDropType: msoCalloutDropBottom, msoCalloutDropCenter o msoCalloutDropTop. Si especifica msoCalloutDropCustom para este argumento el código fallará.


Ejemplo del método PresetDrop

Este ejemplo especifica que la línea de la llamada se una a la parte superior del cuadro de límite del texto para la forma uno en miDocumento. Para que el ejemplo tenga validez, la forma uno debe ser una llamada.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes(1).Callout.PresetDrop msoCalloutDropTop

Este ejemplo alterna dos líneas de unión previamente establecidas para la forma uno en miDocumento. Para que el ejemplo tenga validez, la forma uno debe ser una llamada.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(1).Callout

    If .DropType = msoCalloutDropTop Then

        .PresetDrop msoCalloutDropBottom

    ElseIf .DropType = msoCalloutDropBottom Then

        .PresetDrop msoCalloutDropTop

    End If

End With


Propiedad RGB

Objeto ColorFormat: Devuelve o establece el valor de los componentes rojo, verde y azul (RGB) del color especificado. Long de Lectura/Escritura.

Objeto RGBColor: Devuelve o establece el valor de los componentes rojo, verde y azul (RGB) del color o color adicional de la combinación de colores especificada. Long de Lectura/Escritura.


Ejemplo de la propiedad RGB

Este ejemplo establece el color del fondo de la combinación de colores estándar número tres en la presentación actual y aplica esta combinación de colores a todas las diapositivas de la presentación creadas a partir del patrón de diapositivas.

With ActivePresentation

    Set cc1 = .ColorSchemes(3)

    cc1.Colors(ppBackground).RGB = RGB(128, 128, 0)

    .SlideMaster.ColorScheme = cc1

End With

Este ejemplo muestra el valor de los componentes rojo, verde y azul del color del primer plano de la primera forma de la diapositiva número uno en el documento activo.

Set miDocumento = ActivePresentation.Slides(1)

c = miDocumento.Shapes(1).Fill.ForeColor.RGB

componenteRojo = c Mod 256

componenteVerde = c \ 256 Mod 256

componenteAzul = c \ 65536 Mod 256

MsgBox "Componentes RGB: " & componenteRojo & ", " & componenteVerde & ", " & componenteAzul


valor RGB

Valor devuelto por la función RGB; especifica un color como combinación de valores. La función RGB tiene la sintaxis siguiente:

RGB(red, green, blue)

Los argumentos especifican los componentes rojo, verde y azul del color como valores enteros entre 0 y 255.


Propiedad SchemeColor

Devuelve o establece el color en la combinación de colores aplicada que está asociado con el objeto especificado. Puede ser una de las constantes PpSchemeColor siguientes: ppAccent1, ppAccent2, ppAccent3, ppBackground, ppFill, ppForeground, ppNotSchemeColor, ppSchemeColorMixed, ppShadow o ppTitleColor. Long de Lectura/Escritura.


Ejemplo de la propiedad SchemeColor

Este ejemplo cambia el color del fondo en la diapositiva número uno de la presentación activa entre un valor explícito de los componentes rojo, verde y azul y el color de fondo de la combinación de colores.

With ActivePresentation.Slides(1)

    .FollowMasterBackground = False

    With .Background.Fill.ForeColor

        If .Type = msoColorTypeScheme Then

            .RGB = RGB(0, 128, 128)

        Else

            .SchemeColor = ppBackColor

        End If

    End With

End With


Método Add (objeto de conjunto ColorSchemes)

Agrega una combinación de colores la agrega al conjunto de las combinaciones disponibles. Devuelve un objeto ColorScheme que representa la combinación de color agregada.

Sintaxis

expresión.Add(ColorScheme)

expresión   Requerida. Una expresión que devuelve un objeto ColorSchemes.

ColorScheme   Objeto ColorScheme opcional. La combinación de colores para agregar. Puede ser un objeto ColorScheme de cualquier diapositiva o patrón, o un elemento del conjunto ColorSchemes de cualquier presentación abierta. Si se omite el argumento, se usa el primer objeto ColorScheme (la primera combinación de colores estándar) en el conjunto ColorSchemes de la presentación especificada.

Comentarios

La nueva combinación de colores está creadas a partir de los colores usados en la diapositiva o patrón especificados, o de los colores de la combinación especificada de una presentación abierta.

El conjunto ColorSchemes puede contener hasta 16 combinaciones de colores. Si se necesita agregar otra combinación de colores y el conjunto ColorSchemes ya está lleno, utilice el método Delete para eliminar o quitar una combinación de colores existente.

Tenga en cuenta que aunque PowerPoint comprueba automáticamente si una combinación de colores ya existe antes de agregarla a la interfaz de usuario, no comprueba si se agrega la combinación de colores a un procedimiento de Visual Basic. Dicho procedimiento debe comprobar esto para evitar combinaciones de colores repetidas.


Ejemplo del método Add (objeto de conjunto ColorSchemes)

Este ejemplo agrega una combinación de colores nueva al conjunto de combinaciones de colores estándar de presentación actual. La combinaciones de colores nueva está creada a partir de los colores de la segunda diapositiva de la presentación activa.

With ActivePresentation

    Set combinacionColorNueva = .Slides(2).ColorScheme

    .ColorSchemes.Add combinacionColorNueva

End With


Método Add (objeto ExtraColors)

Agrega un color a los colores extra disponibles en la presentación si el color no se ha agregado ya.

Sintaxis

expresión.Add(Type)

expresión   Requerida. Una expresión que devuelve un objeto ExtraColors.

Type Long requerido. El valor de los componentes rojo, verde y azul (RGB) que se va a agregar.

Comentarios

El objeto ExtraColors puede contener sólo ocho colores, incluyendo los colores agregados por el usuario.


colores adicionales

Colores sin combinación que se pueden usar para propósitos especiales. Los colores adicionales aparecen en paletas de color mostradas por los controles de los cuadros de diálogo y botones de la barra de herramientas. Cambiar la combinación de colores no afecta a los demás colores disponibles ni a los objetos con formato de colores adicionales.


Ejemplo del método Add (objeto ExtraColors)

Este ejemplo agrega otro color a la presentación activa (si el color no se ha agregado ya).

ActivePresentation.ExtraColors.Add RGB(69, 32, 155)


Propiedad Application

Devuelve un objeto Application que representa a la aplicación que ha creado el objeto especificado. Es de sólo lectura.


Ejemplo de la propiedad Application

En este ejemplo, se pasa un objeto Presentation al procedimiento. El procedimiento agrega una diapositiva a la presentación y guarda la presentación en la carpeta en donde se ejecuta PowerPoint.

Sub AddAndSave(pptPres As Presentation)

    pptPres.Slides.Add 1, 1

    pptPres.SaveAs pptPres.Application.Path & "\Diapositiva agregada"

End Sub

Este ejemplo muestra el nombre de la aplicación que ha creado cada objeto OLE vinculado en la presentación activa.

For Each d In ActivePresentation.Slides(1).Shapes

    If d.Type = msoLinkedOLEObject Then

        MsgBox d.OLEFormat.Object.Application.Name

    End If

Next


Propiedad Count

Devuelve el número de objetos en el conjunto especificado. Long de sólo lectura.


Ejemplo de la propiedad Count

Este ejemplo cierra todas las ventanas excepto la ventana activa.

With Application.Windows

    For i = 2 To .Count

        .Item(2).Close

    Next

End With


Propiedad Creator

Devuelve un entero de 32 bits que representa el código de creador de cuatro caracteres de la aplicación en la que el objeto especificado fue creado. Por ejemplo, si el objeto fue creado en PowerPoint, esta propiedad devuelve el número hexadecimal 50505433, que representa la cadena "PPT3". Long de sólo lectura.

Comentarios

La propiedad Creator está diseñada para usarse en aplicaciones Microsoft Office para Macintosh.


Ejemplo de la propiedad Creator

Este ejemplo muestra un mensaje acerca del creador de miObjeto.

Set miObjeto = Application.ActivePresentation.Slides(1).Shapes(1)

If miObjeto.Creator = &h50505433 Then

MsgBox "Es un objeto PowerPoint"

Else

MsgBox "No es un objeto PowerPoint"

End If


Método Delete

Sintaxis 1: Elimina el objeto especificado.

Sintaxis 2: Elimina el nodo especificado.

Sintaxis 3: Elimina la etiqueta especificada.

Sintaxis 1

expresión.Delete

Sintaxis 2

expresión.Delete(Index)

Sintaxis 3

expresión.Delete(Name)

expresión   Sintaxis 1: Una expresión que devuelve el objeto para eliminar.

Sintaxis 2: Una expresión que devuelve un objeto ShapeNodes.

Sintaxis 3: Una expresión que devuelve un objeto Tags.

Índice   Integer requerido. Especifica el nodo para eliminar. El segmento siguiente a dicho nodo también se borra. Si el nodo es un punto de control de una curva, la curva y todos sus nodos también se eliminarán.

Nombre   String requerida. Especifica el nombre de la etiqueta para eliminar.


Ejemplo del método Delete

Este ejemplo elimina todas las formas libres de la diapositiva número uno de la presentación actual.

With Application.ActivePresentation.Slides(1).Shapes

    For s = .Count To 1 Step -1

        With .Item(s)

            If .Type = msoFreeform Then .Delete

        End With

    Next

End With


Propiedad Parent

Devuelve el objeto maestro del objeto especificado. Es de sólo lectura.


Ejemplo de la propiedad Parent

Este ejemplo agrega una elipse que contiene texto a la diapositiva número uno de la presentación activa y gira dicha elipse con texto 45 grados. El objeto maestro para el marco de texto es el objeto Shape que contiene el texto.

Set myShapes = ActivePresentation.Slides(1).Shapes

With myShapes.AddShape(msoShapeOval, 50, 50, 300, 150).TextFrame

    .TextRange.Text = "Texto de prueba"

    .Parent.Rotation = 45

End With


Propiedad Tags

Devuelve un objeto Tags que representa la etiqueta del objeto especificado. Es de sólo lectura.


Ejemplo de la propiedad Tags

Este ejemplo agrega un etiqueta denominada "Zona" y otra "Prioridad" a la diapositiva número uno en la presentación activa.

With Application.ActivePresentation.Slides(1).Tags

    .Add "Zona", "Este"        'Agrega el valor de etiqueta "Zona" con el valor "Este"

    .Add "Prioridad", "Baja"       Agrega el valor de etiqueta "Prioridad" con el valor "Baja"

End With

Este ejemplo busca una etiqueta en cada diapositiva de la presentación activa. Si hay una etiqueta denominada "Prioridad", un cuadro de mensaje muestra el valor de etiqueta. Si el objeto no tiene ninguna etiqueta denominada "Prioridad", el ejemplo agrega esta etiqueta con el valor "Desconocida".

For Each s In Application.ActivePresentation.Slides

    With s.Tags

        Encontrado = False

        For i = 1 To .Count

            If .Name(i) = "Prioridad" Then

                Encontrado= True

                DiapoN = .Parent.SlideIndex

                MsgBox "Diapositiva " & DiapoN & " prioridad: " & .Value(i)

            End If

        Next

        If Not Encontrado Then

            DiapoN = .Parent.SlideIndex

            .Add "Prioridad", "Desconocida"

            MsgBox "Diapositiva " & DiapoN & "etiqueta de prioridad agregada: Desconocida"

        End If

    End With

Next


Método Copy

Copia el objeto especificado en el Portapapeles.

Sintaxis

expresión.Copy

expresión   Requerida. Una expresión que devuelve un objeto Selection, Shape, ShapeRange, Slide, SlideRange o TextRange.

Comentarios

Use el método Paste para pegar el contenido del Portapapeles.


Ejemplo del método Copy

Este ejemplo copia la selección de la primera ventana en el Portapapeles y lo pega en la vista de la segunda ventana. Si el contenido del Portapapeles no puede pegarse en la vista de la segunda ventana (por ejemplo, si se intenta pegar una forma en la vista Clasificador de diapositivas), el ejemplo fallará.

Windows(1).Selection.Copy

Windows(2).View.Paste

Este ejemplo copia las primera y segunda formas de la diapositiva número uno de la presentación activa en el Portapapeles. Después las pega en la diapositiva número dos.

With ActivePresentation

    .Slides(1).Shapes.Range(Array(1, 2)).Copy

    .Slides(2).Shapes.Paste

End With

Este ejemplo copia la diapositiva número uno de la presentación activa en el Portapapeles.

ActivePresentation.Slides(1).Copy

Este ejemplo copia el texto de la primera forma de la diapositiva número uno de la presentación activa en el Portapapeles.

ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Copy


Método Cut

Elimina el objeto especificado y lo coloca en el Portapapeles.

Sintaxis

expresión.Cut

expresión   Requerida. Una expresión que devuelve un objeto Selection, Shape, ShapeRange, Slide, SlideRange o TextRange.


Ejemplo del método Cut

Este ejemplo elimina la selección de la primera ventana y coloca una copia en el Portapapeles.

Windows(1).Selection.Cut

Este ejemplo elimina las primera y segunda formas de la diapositiva número uno de la presentación activa y coloca una copia en el Portapapeles. Después las pega en la diapositiva número dos.

With ActivePresentation

    .Slides(1).Shapes.Range(Array(1, 2)).Cut

    .Slides(2).Shapes.Paste

End With

Este ejemplo elimina la primera diapositiva de la presentación activa y coloca una copia en el Portapapeles.

ActivePresentation.Slides(1).Cut

Este ejemplo elimina el texto de la primera forma de la diapositiva número uno de la presentación activa y coloca una copia en el Portapapeles.

ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Cut


Método Duplicate

Objeto Shapes: Crea un duplicado del objeto Shape especificado, agrega un intervalo nuevo de formas al conjunto Shapes inmediatamente después de la forma especificada originalmente. Después, devuelve el objeto nuevo Shape.

Objeto ShapeRange: Crea un duplicado del objeto ShapeRange especificado, agrega un intervalo nuevo de formas al conjunto Shapes inmediatamente después del intervalo de formas especificadas originalmente. Después, devuelve el objeto nuevo ShapeRange.

Objeto Slide: Crea un duplicado del objeto Slide especificado, agrega una diapositiva nueva al conjunto Slides inmediatamente después de la diapositiva especificada originalmente. Después, devuelve un objeto SlideRange que representa la diapositiva duplicada.

Objeto SlideRange: Crea un duplicado del objeto SlideRange especificado, agrega un intervalo de diapositivas nuevo al conjunto Slides inmediatamente después del intervalo de diapositivas especificado originalmente. Después, devuelve un objeto SlideRange que representa las diapositivas duplicadas.

Sintaxis

expresión.Duplicate

expresión   Requerida. Una expresión que devuelve un objeto Shape, ShapeRange, Slide o SlideRange.


Ejemplo del método Duplicate

Este ejemplo crea un duplicado de la primera diapositiva de la presentación activa y establece el sombreado de fondo y el texto del título de la diapositiva nueva. La diapositiva nueva será entonces la segunda diapositiva de la presentación.

Set diapositivaNueva = ActivePresentation.Slides(1).Duplicate

With diapositivaNueva

    .Background.Fill.PresetGradient msoGradientVertical, 1, msoGradientGold

    .Shapes.Title.TextFrame.TextRange.Text = "Beneficios del segundo trimestre"

End With

Este ejemplo agrega una diapositiva nueva vacía al final de la presentación activa. Agrega una forma de rombo a la diapositiva nueva, duplica el rombo y establece las propiedades del rombo duplicado. El primer rombo tendrá el color de relleno predeterminado de la combinación de colores activa. El segundo rombo estará desplazado respecto al primero y tendrá el color de sombra predeterminado.

Set misDiapositivas = ActivePresentation.Slides

Set diapositivaNueva = misDiapositivas.Add(misDiapositivas.Count + 1, ppLayoutBlank)

Set primerObjeto = diapositivaNueva.Shapes.AddShape(msoShapeDiamond, 10, 10, 250, 350)

With primerObjeto.Duplicate

    .Left = 150

    .Fill.ForeColor.SchemeColor = ppShadow

End With


Propiedad Height

Devuelve o establece el alto del objeto especificado en puntos. Single de sólo lectura para el objeto Master. Single de Lectura/Escritura para los demás objetos.

Comentarios

La propiedad Height de un objeto Shape devuelve o establece el alto de la cara frontal de la forma especificada. Este valor no incluye los sombreados ni los efectos 3D.


Ejemplo de la propiedad Height

Este ejemplo establece el alto de la segunda ventana de documento en la mitad de la ventana de la aplicación.

Windows(2).Height = Application.Height / 2


Propiedad Left

Devuelve o establece la posición izquierda del objeto (en puntos) tal como se muestra en la siguiente tabla. Single de Lectura/Escritura.

Objeto	Significado
Application, SlideShowWindow	Distancia entre el extremo izquierdo de la ventana de la aplicación o ventana de presentación con diapositivas y el extremo izquierdo del escritorio. Valores grandes (positivos o negativos) de esta propiedad pueden situar la ventana fuera del escritorio.
DocumentWindow	Distancia entre el extremo izquierdo de la ventana de documento y el extremo izquierdo del área cliente de la ventana de la aplicación.
Shape	Distancia entre el extremo izquierdo del contorno de la forma al extremo izquierdo del documento.
ShapeRange	Distancia entre el extremo izquierdo del contorno de la forma que esté más a la izquierda dentro del intervalo de formas y el extremo izquierdo del documento.


Ejemplo de la propiedad Left

Este ejemplo ordena las primera y segunda ventanas horizontalmente. En otras palabras: cada ventana pasa a ocupar la mitad del espacio vertical disponible y todo el espacio horizontal disponible en el área cliente de la ventana de la aplicación. Para que el siguiente ejemplo funcione, debe haber sólo dos ventanas de documentos abiertas.

Windows.Arrange ppArrangeTiled

alto = Windows(1).Height                      ' alto disponible

ancho = Windows(1).Width + Windows(2).Width    ' ancho disponible

With Windows(1)

    .Width = ancho

    .Height = alto / 2

    .Left = 0

End With

With Windows(2)

    .Width = ancho

    .Height = alto / 2

    .Top = alto / 2

    .Left = 0

End With


Propiedad Name

Devuelve o establece el nombre del objeto especificado. Puede usar el nombre del objeto, junto con el método Item, para devolver una referencia al objeto si el método Item del conjunto que contiene el objeto contiene un argumento Variant. Por ejemplo: si el valor de la propiedad Name de una forma es "Rectángulo 1," Shapes("Rectángulo 1") devolverá una referencia a esa forma. La tabla siguiente contiene información acerca de la propiedad Name para todos los objetos a los que se aplica.

Objeto	Detalles de la propiedad Name
AddIn	El nombre del complemento incluye la extensión del archivo (para tipos de archivos que están registrados) pero no incluye la ruta completa. String de sólo lectura.
Application	Devuelve la cadena "Microsoft PowerPoint". String de sólo lectura.
Font	String de Lectura/Escritura.
Master	String de Lectura/Escritura.
NamedSlideShow	No es posible usar esta propiedad para establecer el nombre de una presentación personalizada. Use el método Add para volver a definir una presentación personalizada con otro nombre. String de sólo lectura.
Presentation	El nombre de la presentación incluye la extensión del archivo (para tipos de archivos que están registrados) pero no incluye la ruta completa. No es posible usar esta propiedad para establecer el nombre. Use el método SaveAs para guardar la presentación con un nombre diferente si necesita cambiar el nombre. String de sólo lectura.
Shape o ShapeRange (el intervalo de formas debe contener una sola forma)	Al crear una forma, PowerPoint asigna automáticamente un nombre de forma TipoForma Número, donde TipoForma es el tipo de la forma o autoforma, y Número es un entero exclusivo en el conjunto de formas de la diapositiva. Por ejemplo, los nombre generados automáticamente para las formas en una diapositiva serían "Marcador 1", "Elipse 2", y "Rectángulo 3". Para evitar conflictos con los nombre asignados automáticamente, no use la nomenclatura TipoForma Número para los nombres definidos por el usuario, donde TipoForma es un valor usado para los nombres automáticos, y Número es una número entero positivo. String de Lectura/Escritura.
Shape o ShapeRange (el intervalo de formas debe contener una sola forma)	Al insertar una diapositiva en una presentación, Powerpoint asigna el nombre Diapositivan automáticamente, donde n es un entero que representa el orden de la diapositiva en el momento de su creación en la presentación. Por ejemplo, la primera diapositiva insertada en una presentación se denomina "Diapositiva1". Al copiar una diapositiva de una presentación a otra, la diapositiva pierde el nombre que tenía en la primera presentación y se le asigna automáticamente un nombre nuevo en la segunda presentación. String de Lectura/Escritura.
SoundEffect	El conjunto de nombres válidos para una presentación aparecen en el cuadro Sonido del cuadro de diálogo Transición de diapositiva (menú Presentación). String de Lectura/Escritura.


Ejemplo de la propiedad Name

Este ejemplo establece el nombre del segundo objeto de la diapositiva número uno de la presentación activa como "mi objeto".

ActivePresentation.Slides(1).Shapes(2).Name = "mi objeto"

En este ejemplo se establece el color de relleno de la forma "mi objeto" de la diapositiva uno de la presentación activa.

ActivePresentation.Slides(1).Shapes("mi objeto").Fill.ForeColor.RGB = RGB(0, 0, 255)


Método Paste

Objeto Shapes: Pega las forma, diapositivas o texto desde el Portapapeles en el conjunto Shapes especificado, al final del orden Z. Cada objeto pegado pasa a ser un componente del conjunto Shapes especificado. Si el Portapapeles contiene diapositivas completas, se pegarán las diapositivas como formas que contienen las imágenes de las diapositivas. Si el Portapapeles contiene un intervalo de texto, el texto se pegará en una forma TextFrame nueva. Devuelve un objeto ShapeRange que representa los objetos pegados.

Objeto Slides: Pega las diapositivas del Portapapeles al conjunto Slides de la presentación. Especifique dónde desea insertar las diapositivas mediante el argumento Index. Devuelve un objeto SlideRange que representa los objetos pegados. Cada diapositiva pegada pasa a ser un componente del conjunto Slides especificado.

Objeto TextRange: Pega el texto del Portapapeles en el intervalo de texto especificado y devuelve un objeto TextRange que representa el texto pegado.

Objeto View: Pega el contenido del Portapapeles en la vista activa. Si se intenta pegar un objeto en una vista que no admite esa clase de objetos, se producirá un error. Para obtener más información acerca de las vistas y los objetos que pueden pegarse, vea la sección "Comentarios".

Sintaxis 1

expresión.Paste

Sintaxis 2

expresión.Paste(Index)

expresión   Requerida. Expresión que devuelve un objeto Shapes, TextRange o View (Sintaxis 1) o un objeto Slides (Sintaxis 2).

Index   Long opcional. El índice de la diapositiva antes de la cual se van a pegar las diapositivas del Portapapeles. Si se omite el argumento, las diapositivas del Portapapeles se pegan después de la última diapositiva de la presentación.

Comentarios

Use la propiedad ViewType para establecer la vista de una ventana antes de pegar el contenido del Portapapeles. La tabla siguiente muestra los elementos que pueden pegarse en cada vista.

En la vista	Puede pegar desde el Portapapeles
Vista Diapositiva o vista Página de notas	Formas, texto o diapositivas completas. Si pega una diapositiva desde el Portapapeles, se insertará una imagen de la diapositiva como un objeto incrustado en la diapositiva, patrón o página de notas. Si se ha seleccionado una forma, se agregará el texto pegado al texto de la forma. Si se ha seleccionado texto, se reemplazará éste con el texto pegado. Si se ha seleccionado cualquier otro elemento, el texto pegado se colocará en su propio marco de texto. Las formas pegadas se agregarán al final del orden Z y no reemplazarán a las formas seleccionas.
Vista Esquema	Texto o diapositivas completas. No es posible pegar formas en la vista Esquema. La diapositiva pegada se insertará antes de la diapositiva que tiene en punto de inserción.
Vista Clasificador de diapositivas	Diapositivas completas. No es posible pegar formas o texto en la vista Clasificador de diapositivas. La diapositiva pegada se insertará donde se encuentre el punto de inserción o después de la diapositiva seleccionada en la presentación.


Ejemplo del método Paste

Este ejemplo copia la selección de la primera ventana en el Portapapeles y la pega en la vista de la segunda ventana. Si el contenido del Portapapeles no puede pegarse en la vista de la segunda ventana (por ejemplo, si se intenta pegar una forma en la vista Clasificador de diapositivas), el ejemplo fallará.

Windows(1).Selection.Copy

Windows(2).View.Paste

Este ejemplo copia la selección de la primera ventana en el Portapapeles, comprueba que la primera ventana está en vista Diapositiva y copia el contenido del Portapapeles en la vista de la segunda ventana.

Windows(1).Selection.Copy

With Windows(2)

    .ViewType = ppViewSlide

    .View.Paste

End With

Este ejemplo copia la primera forma de la diapositiva número uno de la presentación activa en el Portapapeles y la pega en la diapositiva número dos.

With ActivePresentation

    .Slides(1).Shapes(1).Copy

    .Slides(2).Shapes.Paste

End With

Este ejemplo corta el texto de la primera forma de la diapositiva número uno de la presentación activa, la copia en el Portapapeles y la pega después de la primera palabra de la segunda forma en la misma diapositiva.

With ActivePresentation.Slides(1)

    .Shapes(1).TextFrame.TextRange.Cut

    .Shapes(2).TextFrame.TextRange.Words(1).InsertAfter.Paste

End With

Este ejemplo corta las diapositivas números tres y cinco de la presentación Ventas y las inserta antes de la cuarta diapositiva en la presentación activa.

Presentations("Ventas").Slides.Range(Array(3, 5)).Cut

ActivePresentation.Slides.Paste 4


Propiedad Top

Devuelve o establece la posición superior del objeto (en puntos) tal como se muestra en la siguiente tabla. Single de Lectura/Escritura.

Objeto	Significado
Application, SlideShowWindow	Distancia entre el extremo superior de la ventana de la aplicación o ventana de presentación con diapositivas y el extremo superior del escritorio. Valores grandes (positivos o negativos) de esta propiedad pueden situar la ventana fuera del escritorio.
DocumentWindow	Distancia entre el extremo superior de la ventana de documento y el extremo superior del área cliente de la ventana de la aplicación.
Shape	Distancia entre el extremo superior del contorno de la forma al extremo superior del documento.
ShapeRange	Distancia entre el extremo superior del contorno de la forma que esté más arriba dentro del intervalo de formas y el extremo superior del documento. Es de sólo lectura.


Ejemplo de la propiedad Top

Este ejemplo ordena la primera y la segunda ventana horizontalmente. En otras palabras: cada ventana pasa a ocupar la mitad del espacio vertical disponible y todo el espacio horizontal disponible en el área cliente de la ventana de la aplicación. Para que el siguiente ejemplo funcione, debe haber sólo dos ventanas de documentos abiertas.

Windows.Arrange ppArrangeTiled

alto = Windows(1).Height                      ' alto disponible

ancho = Windows(1).Width + Windows(2).Width    ' ancho disponible

With Windows(1)

    .Width = ancho

    .Height = alto / 2

    .Left = 0

End With

With Windows(2)

    .Width = ancho

    .Height = alto / 2

    .Top = alto / 2

    .Left = 0

End With


Propiedad Type

Devuelve y, para algunos objetos, establece el tipo de objeto. La tabla siguiente muestra todos los objetos a los que se aplica la propiedad Type y los posibles valores de la propiedad Type para cada uno de ellos.

Objeto	Detalles de la propiedad Type
CalloutFormat	Puede ser una de las siguientes constantes MsoCalloutType: msoCalloutFour, msoCalloutMixed, msoCalloutOne, msoCalloutThree o msoCalloutTwo. Long de Lectura/Escritura.
ColorFormat	Puede ser una de las siguientes constantes MsoColorType: msoColorTypeMixed, msoColorTypeRGB o msoColorTypeScheme. Long de sólo lectura.
ConnectorFormat	Puede ser una de las siguientes constantes MsoConnectorType: msoConnectorCurve, msoConnectorElbow, msoConnectorStraight o msoConnectorTypeMixed. Long de Lectura/Escritura.
FillFormat	Puede ser una de las siguientes constantes MsoFillType: msoFillBackground, msoFillGradient, msoFillMixed, msoFillPatterned, msoFillPicture, msoFillSolid o msoFillTextured. Long de sólo lectura.
Hyperlink	Puede ser una de las siguientes constantes MsoHyperlinkType: msoHyperlinkInlineShape (sólo para Microsoft Word), msoHyperlinkRange o msoHyperlinkShape. Long de sólo lectura.
PlaceholderFormat	Puede ser una de las siguientes constantes PpPlaceholderType: ppPlaceholderBitmap, ppPlaceholderBody, ppPlaceholderCenterTitle, ppPlaceholderChart, ppPlaceholderDate, ppPlaceholderFooter, ppPlaceholderHeader, ppPlaceholderMediaClip, ppPlaceholderMixed, ppPlaceholderObject, ppPlaceholderOrgChart, ppPlaceholderSlideNumber, ppPlaceholderSubtitle, ppPlaceholderTable, ppPlaceholderTitle, ppPlaceholderVerticalBody o ppPlaceholderVerticalTitle
Selection	Puede ser una de las siguientes constantes PpSelectionType: ppSelectionNone, ppSelectionShapes, ppSelectionSlides o ppSelectionText. Long de sólo lectura.
ShadowFormat	Puede ser una de las siguientes constantes MsoShadowType: msoShadow1, msoShadow10, msoShadow11, msoShadow12, msoShadow13, msoShadow14, msoShadow15, msoShadow16, msoShadow17, msoShadow18, msoShadow19, msoShadow2, msoShadow20, msoShadow3, msoShadow4, msoShadow5, msoShadow6, msoShadow7, msoShadow8, msoShadow9 o msoShadowMixed. Long de Lectura/Escritura.
Shape o ShapeRange:	Puede ser una de las siguientes constantes MsoShapeType: msoAutoShape, msoCallout, msoChart, msoComment, msoEmbeddedOLEObject, msoFormControl, msoFreeform, msoGroup, msoLine, msoLinkedOLEObject, msoLinkedPicture, msoMedia, msoOLEControlObject, msoPicture, msoPlaceholder, msoShapeTypeMixed, msoTextBox o msoTextEffect. Long de sólo lectura.
SoundEffect	Puede ser una de las siguientes constantes PpSoundEffectType: ppSoundEffectsMixed, ppSoundFile, ppSoundNone o ppSoundStopPrevious. Long de Lectura/Escritura.
TabStop	Puede ser una de las siguientes constantes PpTabStopType: ppTabStopCenter, ppTabStopDecimal, ppTabStopLeft, ppTabStopMixed o ppTabStopRight. Long de Lectura/Escritura.
View	Puede ser una de las siguientes constantes PpViewType: ppViewHandoutMaster, ppViewNotesMaster, ppViewNotesPage, ppViewOutline, ppViewSlide, ppViewSlideMaster, ppViewSlideSorter o ppViewTitleMaster. Long de sólo lectura.


Ejemplo de la propiedad Type

Este ejemplo recorre todas las formas de las diapositivas de la presentación activa y establece que todas las hojas de cálculo de Microsoft Excel vinculadas se actualicen manualmente.

For Each diap In ActivePresentation.Slides

    For Each f In diap.Shapes

        If f.Type = msoLinkedOLEObject Then

            If f.OLEFormat.ProgID = "Excel.Sheet.8" Then

                f.LinkFormat.AutoUpdate = ppUpdateOptionManual

            End If

        End If

    Next

Next


Propiedad Visible

True si el objeto especificado, o el formato aplicado al objeto especificado, está visible. Long de Lectura/Escritura.


Ejemplo de la propiedad Visible

Este ejemplo establece el desplazamiento horizontal y vertical para la sombra de la forma tres en miDocumento. La sombra está desplazada 5 puntos a la derecha y 3 puntos por encima. Si la forma aún no tiene sombra, este ejemplo agrega una.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(3).Shadow

    .Visible = True

    .OffsetX = 5

    .OffsetY = -3

End With


Propiedad Width

Devuelve o establece el ancho del objeto especificado en puntos. Single de sólo lectura para el objeto Master. Single de Lectura/Escritura para los demás objetos.


Ejemplo de la propiedad Width

Este ejemplo ordena las primera y segunda ventanas horizontalmente. En otras palabras: cada ventana pasa a ocupar la mitad del espacio vertical disponible y todo el espacio horizontal disponible en el área cliente de la ventana de la aplicación. Para que el siguiente ejemplo funcione, debe haber sólo dos ventanas de documentos abiertas.

Windows.Arrange ppArrangeTiled

alto = Windows(1).Height                      ' alto disponible

ancho = Windows(1).Width + Windows(2).Width    ' ancho disponible

With Windows(1)

    .Width = ancho

    .Height = alto / 2

    .Left = 0

End With

With Windows(2)

    .Width = ancho

    .Height = alto / 2

    .Top = alto / 2

    .Left = 0

End With


Método BeginConnect

Adjunta el comienzo del conector especificado a una forma especificada. Si ya existe una conexión entre el comienzo del conector y otra forma, se romperá dicha conexión. Si el comienzo del conector todavía no está situado en el lugar de conexión especificado, este método desplazará el comienzo del conector al lugar de conexión y ajustará el tamaño y la posición del conector. Utilice el método EndConnect para unir el final del conector a una forma.

Sintaxis

expresión.BeginConnect(ConnectedShape, ConnectionSite)

expresión   Requerida. Expresión que devuelve un objeto de ConnectorFormat.

ConnectedShape   Objeto Shape requerido. La forma a la que se une el comienzo del conector. El objeto Shape especificado debe pertenecer al mismo conjunto de Shapes que el conector.

ConnectionSite   Long requerido. Lugar de conexión en la forma especificada por ConnectedShape. Debe tratarse de un entero que se encuentre entre 1 y el entero devuelto por la propiedad ConnectionSiteCount de la forma especificada. Si desea que el conector encuentre automáticamente la ruta más corta entre las dos formas que conecta, especifique un entero válido para este argumento y, a continuación, utilice el método RerouteConnections una vez los dos extremos del conector estén unidos a formas.

Comentarios

Cuando se une un conector a un objeto, el tamaño y la posición del conector se ajustan automáticamente, si es necesario.


Ejemplo del método BeginConnect

Este ejemplo agrega dos rectángulos a miDocumento y los conecta mediante un conector en curva. Tenga en cuenta que con el método RerouteConnections serán irrelevantes los valores que dé a los argumentos de ConnectionSite utilizados con los métodos BeginConnect y EndConnect.

Set miDocumento = ActivePresentation.Slides(1)

Set f = miDocumento.Shapes

Set Rect1 = f.AddShape(msoShapeRectangle, 100, 50, 200, 100)

Set Rect2 = f.AddShape(msoShapeRectangle, 300, 300, 200, 100)

With f.AddConnector(msoConnectorCurve, 0, 0, 100, 100).ConnectorFormat

    .BeginConnect ConnectedShape:=Rect1, ConnectionSite:=1

    .EndConnect ConnectedShape:=Rect2, ConnectionSite:=1

    .Parent.RerouteConnections

End With


Propiedad BeginConnected

True si el comienzo del conector especificado está conectado a una forma. Long de sólo lectura.


Ejemplo de la propiedad BeginConnected

Si la forma tres en miDocumento es un conector cuyo comienzo está conectado a una forma, este ejemplo almacena el número de lugar de conexión en la variable conectorAntiguoInicio, almacena una referencia a la forma conectada en la variable de objeto formaAntiguaInicio y, a continuación, desconecta el comienzo del conector de la forma.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(3)

    If .Connector Then

        With .ConnectorFormat

            If .BeginConnected Then

                conectorAntiguoInicio = .BeginConnectionSite

                Set formaAntiguaInicio = .BeginConnectedShape

                .BeginDisconnect

            End If

        End With

    End If

End With


Propiedad BeginConnectedShape

Devuelve un objeto de Shape que representa la forma a la que se unió el comienzo del conector especificado. Es de sólo lectura.

Nota   Si el comienzo del conector especificado no está unido a ninguna forma, la propiedad produce un error.


Ejemplo de la propiedad BeginConnectedShape

Este ejemplo da por supuesto que miDocumento ya contiene dos formas unidas a través de un conector denominado "Con1a2." El código agrega un rectángulo y un conector a miDocumento. El comienzo del nuevo conector se unirá al mismo lugar de conexión que el comienzo del conector denominado "Con1a2" y el final del nuevo conector se unirá al lugar de conexión uno del nuevo rectángulo.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    Set r3 = .AddShape(msoShapeRectangle, 450, 190, 200, 100)

    .AddConnector(msoConnectorCurve, 0, 0, 10, 10).Name = "Con1a3"

    With .Item("Con1a2").ConnectorFormat

        inicioConector = .BeginConnectionSite

        Set formaConectadaInicio1 = .BeginConnectedShape

    End With

    With .Item("Con1a3").ConnectorFormat

        .BeginConnect formaConectadaInicio1, inicioConector

        .EndConnect r3, 1

    End With

End With


Propiedad BeginConnectionSite

Devuelve un entero que especifica el lugar de conexión al que está unido el comienzo del conector. Long de sólo lectura.

Nota   Si el comienzo del conector especificado no está unido a una forma, la propiedad produce un error.


Ejemplo de la propiedad BeginConnectionSite

Este ejemplo da por supuesto que miDocumento ya contiene dos formas unidas a través un conector denominado "Con1a2." El código agrega un rectángulo y un conector a miDocumento. El comienzo del nuevo conector se unirá al mismo lugar de conexión que el comienzo del conector denominado "Con1a2" y el final del nuevo conector se unirá al lugar de conexión uno en el nuevo rectángulo.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    Set r3 = .AddShape(msoShapeRectangle, 450, 190, 200, 100)

    .AddConnector(msoConnectorCurve, 0, 0, 10, 10).Name = "Con1a3"

    With .Item("Con1a2").ConnectorFormat

        inicioConector1 = .BeginConnectionSite

        Set formaConectadaInicio1 = .BeginConnectedShape

    End With

    With .Item("Con1a3").ConnectorFormat

        .BeginConnect formaConectadaInicio1, inicioConector1

        .EndConnect r3, 1

    End With

End With


Método BeginDisconnect

Separa el comienzo del conector especificado de la forma a la que está unido. Este método no modifica el tamaño o la posición del conector: El comienzo del conector permanece situado en un lugar de conexión pero ya no está conectado. Utilice el método EndDisconnect para separar el final del conector de una forma.

Sintaxis

expresión.BeginDisconnect

expresión   Requerida. Expresión que devuelve un objeto de ConnectorFormat.


Ejemplo del método BeginDisconnect

Este ejemplo agrega dos rectángulos a miDocumento, los une mediante un conector, redistribuye automáticamente el conector a lo largo de la ruta más corta y, a continuación, separa el conector de los rectángulos.

Set miDocumento = ActivePresentation.Slides(1)

Set f = miDocumento.Shapes

Set Rect1 = f.AddShape(msoShapeRectangle, 100, 50, 200, 100)

Set Rect2 = f.AddShape(msoShapeRectangle, 300, 300, 200, 100)

With f.AddConnector(msoConnectorCurve, 0, 0, 0, 0).ConnectorFormat

    .BeginConnect Rect1, 1

    .EndConnect Rect2, 1

    .Parent.RerouteConnections

    .BeginDisconnect

    .EndDisconnect

End With


Método EndConnect

Une el final del conector especificado a una forma especificada. Si ya existe una conexión entre el final del conector y otra forma, se romperá dicha conexión. Si el final del conector todavía no está situado en el lugar de conexión especificado, este método desplazará el final del conector al lugar de conexión y ajustará el tamaño y la posición del conector. Utilice el método BeginConnect para unir el comienzo del conector a una forma.

Sintaxis

expresión.EndConnect(ConnectedShape, ConnectionSite)

expresión   Requerida. Expresión que devuelve un objeto de ConnectorFormat.

ConnectedShape   Objeto Shape requerido. La forma a la que se une el final del conector. El objeto Shape especificado debe pertenecer al mismo conjunto de Shapes que el conector.

ConnectionSite   Long requerido. Lugar de conexión en la forma especificada por ConnectedShape. Debe tratarse de un entero que se encuentre entre 1 y el entero devuelto por la propiedad ConnectionSiteCount de la forma especificada. Si desea que el conector encuentre automáticamente la ruta más corta entre las dos formas que conecta, especifique un entero válido para este argumento y, a continuación, utilice el método RerouteConnections una vez los dos extremos del conector estén unidos a formas.

Comentarios

Cuando se une un conector a un objeto, el tamaño y la posición del conector se ajustan automáticamente, si es necesario.


Ejemplo del método EndConnect

Este ejemplo agrega dos rectángulos a miDocumento y los conecta mediante un conector en curva. Tenga en cuenta que con el método RerouteConnections serán irrelevantes los valores que dé a los argumentos de ConnectionSite utilizados con los métodos BeginConnect y EndConnect.

Set miDocumento = ActivePresentation.Slides(1)

Set f = miDocumento.Shapes

Set Rect1 = f.AddShape(msoShapeRectangle, 100, 50, 200, 100)

Set Rect2 = f.AddShape(msoShapeRectangle, 300, 300, 200, 100)

With f.AddConnector(msoConnectorCurve, 0, 0, 100, 100).ConnectorFormat

    .BeginConnect ConnectedShape:=Rect1, ConnectionSite:=1

    .EndConnect ConnectedShape:=Rect2, ConnectionSite:=1

    .Parent.RerouteConnections

End With


Propiedad EndConnected

True si el final del conector especificado está conectado a una forma. Long de sólo lectura.


Ejemplo de la propiedad EndConnected

Si el final del conector representado por la forma tres en miDocumento está conectado a una forma, este ejemplo almacena el número de lugar de conexión en la variable conectorAntiguoFin, almacena una referencia a la forma conectada en la variable de objeto formaAntiguaFin y, a continuación, desconecta el final del conector de la forma.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(3)

    If .Connector Then

        With .ConnectorFormat

            If .EndConnected Then

                conectorAntiguoFin = .EndConnectionSite

                Set formaAntiguaFin = .EndConnectedShape

                .EndDisconnect

            End If

        End With

    End If

End With


Propiedad EndConnectedShape

Devuelve un objeto de Shape que representa la forma a la que se unió el final del conector especificado. Es de sólo lectura.

Nota   Si el final del conector especificado no está unido a una forma, la propiedad produce un error.


Ejemplo de la propiedad EndConnectedShape

Este ejemplo da por supuesto que miDocumento ya contiene dos formas unidas a través un conector denominado "Con1a2." El código agrega un rectángulo y un conector a miDocumento. El final del nuevo conector se unirá al mismo lugar de conexión que el final del conector denominado "Con1a2" y el comienzo del nuevo conector se unirá al lugar de conexión uno en el nuevo rectángulo.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    Set r3 = .AddShape(msoShapeRectangle, 100, 420, 200, 100)

    .AddConnector(msoConnectorCurve, 0, 0, 10, 10).Name = "Con1a3"

    With .Item("Con1a2").ConnectorFormat

        conectorFin1 = .EndConnectionSite

        Set formaConectadaFin1 = .EndConnectedShape

    End With

    With .Item("Con1a3").ConnectorFormat

        .BeginConnect r3, 1

        .EndConnect formaConectadaFin1, conectorFin1

    End With

End With


Propiedad EndConnectionSite

Devuelve un entero que especifica el lugar de conexión al que está unido el final del conector. Long de sólo lectura.

Nota   Si el final del conector especificado no está unido a una forma, la propiedad produce un error.


Ejemplo de la propiedad EndConnectionSite

Este ejemplo da por supuesto que miDocumento ya contiene dos formas unidas a través un conector denominado "Con1a2." El código agrega un rectángulo y un conector a miDocumento. El final del nuevo conector se unirá al mismo lugar de conexión que el final del conector denominado "Con1a2" y el comienzo del nuevo conector se unirá al lugar de conexión uno en el nuevo rectángulo.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    Set r3 = .AddShape(msoShapeRectangle, 100, 420, 200, 100)

    .AddConnector(msoConnectorCurve, 0, 0, 10, 10).Name = "Con1a3"

    With .Item("Con1a2").ConnectorFormat

        conectorFin1 = .EndConnectionSite

        Set formaConectadaFin1 = .EndConnectedShape

    End With

    With .Item("Con1a3").ConnectorFormat

        .BeginConnect r3, 1

        .EndConnect formaConectadaFin1, conectorFin1

    End With

End With


Método EndDisconnect

Separa el final del conector especificado de la forma a la que está unido. Este método no modifica el tamaño o la posición del conector: El final del conector permanece situado en un lugar de conexión pero ya no está conectado. Utilice el método BeginDisconnect para separar el comienzo del conector de una forma.

Sintaxis

expresión.EndDisconnect

expresión   Requerida. Expresión que devuelve un objeto de ConnectorFormat.


Ejemplo del método EndDisconnect

Este ejemplo agrega dos rectángulos a miDocumento, los une mediante un conector, automáticamente redistribuye el conector a lo largo de la ruta más corta y, a continuación, separa el conector de los rectángulos.

Set miDocumento = ActivePresentation.Slides(1)

Set f = miDocumento.Shapes

Set Rect1 = f.AddShape(msoShapeRectangle, 100, 50, 200, 100)

Set Rect2 = f.AddShape(msoShapeRectangle, 300, 300, 200, 100)

With f.AddConnector(msoConnectorCurve, 0, 0, 0, 0).ConnectorFormat

    .BeginConnect Rect1, 1

    .EndConnect Rect2, 1

    .Parent.RerouteConnections

    .BeginDisconnect

    .EndDisconnect

End With


Método Activate

Activa el objeto especificado.

Sintaxis

expresión.Activate

expresión   Requerida. Una expresión que devuelve un objeto DocumentWindow, OLEFormat o SlideShowWindow.


Ejemplo del método Activate

Este ejemplo activa la ventana del documento siguiente a la ventana activa actual según el orden de los documentos.

Application.ActiveWindow.Next.Activate


Propiedad Active

Devuelve True si la ventana especificada es la ventana activa. Long de sólo lectura.


Ejemplo de la propiedad Active

Este ejemplo activa la ventana número tres. Si la ventana número tres no es la ventana activa, el ejemplo almacena la ventana activa en la variable VentanaAnterior antes de activar la ventana tres.

With Application.Presentations("prueba.ppt").Windows(1)

    If Not .Active Then

        Set VentanaAnterior = Application.ActiveWindow

        .Activate

    End If

End With


Propiedad BlackAndWhite

True si la presentación de la ventana de documento está en blanco y negro. El valor predeterminado es False. Long de Lectura/Escritura.


Ejemplo de la propiedad BlackAndWhite

Este ejemplo cambia la presentación en la ventana número uno a blanco y negro.

Application.Windows(1).BlackAndWhite = True


Método Close

Cierra la ventana de documento, presentación o dibujo a mano alzada especificados.

Sintaxis

expresión.Close

expresión   Requerida. Una expresión que devuelve un objeto DocumentWindow o Presentation.


Ejemplo del método Close

Este ejemplo cierra todas las ventanas excepto la ventana activa.

With Application.Windows

    For i = 2 To .Count

        .Item(2).Close

    Next

End With

Este ejemplo cierra Pres1.ppt sin guardar los cambios.

With Application.Presentations("pres1.ppt")

    .Saved = True

    .Close

End With

Este ejemplo cierra todas las presentaciones abiertas. Si existen cambios en alguna de las presentaciones, PowerPoint muestra un mensaje preguntando si el usuario desea guardar los cambios.

With Application.Presentations

    For i = .Count To 1 Step -1

        .Item(i).Close

    Next

End With


Método FitToPage

Ajusta el tamaño de la ventana de documento especificada para acomodar la información mostrada actualmente.

Sintaxis

expresión.FitToPage

expresión   Requerida. Una expresión que devuelve un objeto DocumentWindow.


Ejemplo del método FitToPage

Este ejemplo establece la vista a Diapositivas, establece el zoom al 25%, y ajusta el tamaño de la ventana para que quepa la diapositiva mostrada en ella.

With Application.ActiveWindow

    .ViewType = ppViewSlide

    .View.Zoom = 25

    .FitToPage

End With


Propiedad IsFullScreen

Devuelve True si la ventana de presentación con diapositivas ocupa la ventana completa. Long de sólo lectura.


Ejemplo de la propiedad IsFullScreen

Este ejemplo reduce el alto de la presentación con diapositivas a pantalla completa lo suficiente para que se vea la barra de tareas.

With Application.SlideShowWindows(1)

    If .IsFullScreen Then

        .Height = .Height - 20

    End If

End With


Método LargeScroll

Realiza el desplazamiento por páginas de la ventana de documento especificada.

Sintaxis

expresión.LargeScroll(Down, Up, ToRight, ToLeft)

expresión   Requerida. Una expresión que devuelve un objeto DocumentWindow.

Down   Long opcional. Especifica el número de páginas que desplazar hacia abajo.

Up   Long opcional. Especifica el número de páginas que desplazar hacia arriba.

ToRight   Long opcional. Especifica el número de páginas a desplazar hacia la derecha.

ToLeft   Long opcional. Especifica el número de páginas que desplazar hacia la izquierda.

Comentarios

Si no se especifican argumentos, este método desplaza una página hacia abajo. Si se especifican Down y Up, sus efectos se combinan. Por ejemplo, si Down es 2 y Up es 4, este método desplaza hacia arriba dos páginas. Del mismo modo, si se especifican ToRight y ToLeft, sus efectos se combinan.

Cualquiera de los argumentos puede ser un número negativo.


Ejemplo del método LargeScroll

Este ejemplo desplaza la ventana activa tres páginas hacia abajo.

Application.ActiveWindow.LargeScroll Abajo:=3


Método NewWindow

Objeto Presentation: Abre una ventana nueva que contiene la presentación especificada. Devuelve un objeto DocumentWindow que representa la nueva ventana.

Objeto DocumentWindow: Abre una nueva ventana que contiene el mismo documento que se muestra en la ventana especificada. Devuelve un objeto DocumentWindow que representa la nueva ventana.

Sintaxis

expresión.NewWindow

expresión   Requerida. Una expresión que devuelve un objeto DocumentWindow o Presentation.


Ejemplo del método NewWindow

Este ejemplo crea una nueva ventana con el contenido de la ventana activa (esto activa la nueva ventana) y vuelve a la primera ventana.

Set VentanaAnterior = Application.ActiveWindow

Set VentanaNueva = VentanaAnterior.NewWindow

VentanaAnterior.Activate


Método Next

Objeto DocumentWindow: Devuelve un objeto DocumentWindow que representa la siguiente ventana según el orden de documentos. Si se aplica el método Next a la última ventana según el orden, devuelve Nothing.

Objeto SlideShowWindow: Devuelve un objeto SlideShowWindow que representa la siguiente ventana según el orden de presentación de diapositivas. Si se aplica el método Next a la última ventana en dicho orden, devuelve Nothing.

Objeto SlideShowView: Muestra la diapositiva siguiente a la mostrada actualmente. Si la que se muestra es la última, cierra la presentación de diapositivas en modo orador y vuelve a la primera diapositiva en modo kiosco.

Sintaxis

expresión.Next

expresión   Requerida. Una expresión que devuelve un objeto DocumentWindow, SlideShowView o SlideShowWindow.


Ejemplo del método Next

Este ejemplo activa la ventana de documento siguiente a la ventana activa según el orden de documentos.

Application.ActiveWindow.Next.Activate

Este ejemplo muestra la diapositiva siguiente a la mostrada actualmente en la ventana número uno de presentación de diapositivas.

Application.SlideShowWindows(1).View.Next


Método Previous

Objeto DocumentWindow: Devuelve un objeto DocumentWindow que representa la ventana anterior según el orden de documentos. Si se aplica el método Previous a la primera ventana según dicho orden, devuelve Nothing.

Objeto SlideShowWindow : Devuelve un objeto SlideShowWindow que representa la ventana anterior según el orden de presentación de diapositivas. Si se aplica el método Previous a la primera ventana según el orden, devuelve Nothing.

Objeto SlideShowView: Muestra la diapositiva inmediatamente anterior a la mostrada actualmente. No tiene ningún efecto si se está mostrando la primera diapositiva de la presentación.

Sintaxis

expresión.Previous

expresión   Requerida. Una expresión que devuelve un objeto DocumentWindow, SlideShowView o SlideShowWindow.


Ejemplo del método Previous

Este ejemplo muestra la diapositiva anterior a la diapositiva actualmente mostrada en la ventana de presentación número uno.

Application.SlideShowWindows(1).View.Previous


Propiedad Selection

Devuelve un objeto Selection que representa la selección en la ventana de documento especificada.


Ejemplo de la propiedad Selection

Si hay texto seleccionado en la ventana activa, este ejemplo lo convierte en cursiva.

With Application.ActiveWindow.Selection

    If .Type = ppSelectionText Then

        .TextRange.Font.Italic = True

    End If

End With


Método SmallScroll

Realiza el desplazamiento a través del documento especificado por filas y columnas.

Sintaxis

expresión.SmallScroll(Down, Up, ToRight, ToLeft)

expresión   Requerida. Una expresión que devuelve un objeto DocumentWindow.

Down   Long opcional. Especifica el número de líneas a desplazar hacia abajo.

Up   Long opcional. Especifica el número de líneas a desplazar hacia arriba.

ToRight   Long opcional. Especifica el número de columnas a desplazar a la derecha.

ToLeft   Long opcional. Especifica el número de columnas a desplazar a la izquierda.

Comentarios

Si no se especifican argumentos, este método desplaza hacia abajo una línea. Si se especifican Down y Up, sus efectos se combinan. Por ejemplo, si Down es 2 y Up es 4, este método desplaza hacia arriba dos líneas. Del mismo modo, si se especifican ToRight y ToLeft, sus efectos se combinan.

Cualquiera de los argumentos puede ser un número negativo.


Ejemplo del método SmallScroll

Este ejemplo desplaza hacia abajo tres líneas en la ventana activa.

Application.ActiveWindow.SmallScroll Down:=3


Propiedad View

Objeto DocumentWindow: Devuelve un objeto View que representa la vista especificada en la ventana de documento. Es de sólo lectura.

Objeto SlideShowWindow: Devuelve un objeto SlideShowView. Es de sólo lectura.


Ejemplo de la propiedad View

Este ejemplo establece la vista en la ventana activa en vista Diapositivas, y muestra entonces la diapositiva número tres.

With Application.ActiveWindow

    .ViewType = ppViewSlide

    .View.GotoSlide 3

End With


Propiedad ViewType

Devuelve o configura el tipo de vista de la ventana de documento especificada. Puede ser una de las siguientes constantes PpViewType: ppViewHandout, ppViewHandoutMaster, ppViewNotesMaster, ppViewNotesPage, ppViewOutline, ppViewSlide, ppViewSlideMaster, ppViewSlideShow, ppViewSlideSorter o ppViewTitleMaster. Long de Lectura/Escritura.


Ejemplo de la propiedad ViewType

Este ejemplo cambia la vista de la ventana activa a vista Clasificador de diapositivas si la vista actualmente mostrada en la ventana es la vista Diapositivas.

With Application.ActiveWindow

    If .ViewType = ppViewSlide Then .ViewType = ppViewSlideSorter

End With


Propiedad WindowState

Devuelve o configura el estado de la ventana especificada. Puede ser una de las siguientes constantes PpWindowState: ppWindowMaximized, ppWindowMinimized, ppWindowMixed o ppWindowNormal. Long de Lectura/Escritura.

Comentarios

Cuando el estado de la ventana es ppWindowNormal, la ventana no se maximiza ni se minimiza.


Ejemplo de la propiedad WindowState

Este ejemplo maximiza la ventana activa.

Application.ActiveWindow.WindowState = ppWindowMaximized


Método Arrange

Ordena todas las ventanas de documento abiertas en el espacio de trabajo.

Sintaxis

expresión.Arrange(ArrangeStyle)

expresión   Una expresión que devuelve un conjunto DocumentWindows.

ArrangeStyle   Long opcional. Especifica si las ventanas se ordenan en cascada o mosaico. Puede ser una de las siguientes constantes PpArrangeStyle: ppArrangeCascade o ppArrangeTiled. El valor predeterminado es ppTiled.


Ejemplo del método Arrange

Este ejemplo crea una nueva ventana y después ordena todas las ventanas de documento abiertas.

Application.ActiveWindow.NewWindow

Windows.Arrange ppArrangeCascade


Propiedad BackColor

 Devuelve o establece un objeto de ColorFormat que representa el color de fondo para el relleno especificado o para la línea de entramado. Es de Lectura/Escritura.


Ejemplo de la propiedad BackColor

Este ejemplo agrega un rectángulo a miDocumento y después establece el color de primer plano, el color de fondo y el degradado para el relleno del rectángulo.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddShape(msoShapeRectangle, 90, 90, 90, 50).Fill

    .ForeColor.RGB = RGB(128, 0, 0)

    .BackColor.RGB = RGB(170, 170, 170)

    .TwoColorGradient msoGradientHorizontal, 1

End With

Este ejemplo agrega una línea de entramado a miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddLine(10, 100, 250, 0).Line

    .Weight = 6

    .ForeColor.RGB = RGB(0, 0, 255)

    .BackColor.RGB = RGB(128, 0, 0)

    .Pattern = msoPatternDarkDownwardDiagonal

End With


Método Background

Especifica que el relleno de la forma debería coincidir con el fondo de la diapositiva. Si cambia el fondo de la diapositiva una vez se ha aplicado el método a un relleno, el relleno también cambiará.

Comentarios

Tenga en cuenta que no es lo mismo aplicar el método Background al relleno de la forma que establecer para ésta un relleno transparente, ni es siempre lo mismo que aplicar a la forma el relleno que se aplica al fondo. El segundo ejemplo lo demuestra.


Ejemplo del método Background

Este ejemplo establece el relleno de la forma uno en la diapositiva uno de la presentación activa para que coincida con el fondo de la diapositiva.

ActivePresentation.Slides(1).Shapes(1).Fill.Background

Este ejemplo establece un degradado previamente definido para el fondo de la diapositiva uno de la presentación activa, agrega un rectángulo a la diapositiva y, a continuación, coloca tres elipses delante del rectángulo. El relleno de la primera elipse coincide con el fondo de la diapositiva, el de la segunda es transparente y el de la tercera es el mismo que se aplicó al fondo. Observe las diferencias entre las tres elipses.

With ActivePresentation.Slides(1)

    .FollowMasterBackground = False

    .Background.Fill.PresetGradient msoGradientHorizontal, 1, msoGradientDaybreak

    With .Shapes

        .AddShape msoShapeRectangle, 50, 200, 600, 100

        .AddShape(msoShapeOval, 75, 150, 150, 100).Fill.Background

        .AddShape(msoShapeOval, 275, 150, 150, 100).Fill _

            .Transparency = 1

        .AddShape(msoShapeOval, 475, 150, 150, 100).Fill.PresetGradient _

             msoGradientHorizontal, 1, msoGradientDaybreak

    End With

End With


Propiedad ForeColor

Devuelve o establece un objeto de ColorFormat que representa el color de primer plano para el relleno, la línea o la sombra. Es de Lectura/Escritura.


Ejemplo de la propiedad ForeColor

Este ejemplo agrega un rectángulo a miDocumento y después establece el color de primer plano, el color de fondo y el degradado para el relleno del rectángulo.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddShape(msoShapeRectangle, 90, 90, 90, 50).Fill

    .ForeColor.RGB = RGB(128, 0, 0)

    .BackColor.RGB = RGB(170, 170, 170)

    .TwoColorGradient msoGradientHorizontal, 1

End With

Este ejemplo agrega una línea de entramado a miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddLine(10, 100, 250, 0).Line

    .Weight = 6

    .ForeColor.RGB = RGB(0, 0, 255)

    .BackColor.RGB = RGB(128, 0, 0)

    .Pattern = msoPatternDarkDownwardDiagonal

End With


Propiedad GradientColorType

Devuelve el tipo de color de degradado al relleno especificado. Puede ser una de las siguientes constantes MsoGradientColorType: msoGradientColorMixed, msoGradientOneColor, msoGradientPresetColors o msoGradientTwoColors. Long de sólo lectura.

La propiedad es de sólo lectura. Utilice el método OneColorGradient, PresetGradient o TwoColorGradient para establecer el tipo de degradado del relleno.


Ejemplo de la propiedad GradientColorType

Este ejemplo cambia el relleno de todas las formas de miDocumento que tengan un relleno de degradado de dos colores a un relleno de degradado previamente establecido.

Set miDocumento = ActivePresentation.Slides(1)

For Each f In miDocumento.Shapes

    With f.Fill

        If .GradientColorType = msoGradientTwoColors Then

            .PresetGradient msoGradientHorizontal, 1, msoGradientBrass

        End If

    End With

Next


Propiedad GradientDegree

Devuelve un valor que indica lo oscuro o lo claro que es un relleno de degradado de un solo color. El valor 0 (cero) significa que el negro se mezcla con el color de primer plano de la forma para el degradado; el valor 1 significa que se mezcla el color blanco; y los valores entre 0 y 1 significan que se mezcla una sombra más oscura o más clara del color de primer plano. Single de sólo lectura.

La propiedad es de sólo lectura. Utilice el método OneColorGradient para establecer el nivel de degradado del relleno.


Ejemplo de la propiedad GradientDegree

Este ejemplo agrega un rectángulo a miDocumento y establece el nivel de su degradado de relleno de manera que coincida con el de la forma denominada "Rectángulo 2." Si el Rectángulo 2 no tiene un relleno de degradado de un solo color, el ejemplo fallará.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    degradado1 = .Item("Rectángulo 2").Fill.GradientDegree

    With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill

        .ForeColor.RGB = RGB(128, 0, 0)

        .OneColorGradient msoGradientHorizontal, 1, degradado1

    End With

End With


Propiedad GradientStyle

Devuelve el estilo de degradado al relleno especificado. Puede ser una de las siguientes constantes MsoGradientStyle: msoGradientDiagonalDown, msoGradientDiagonalUp, msoGradientFromCenter, msoGradientFromCorner, msoGradientFromTitle, msoGradientHorizontal, msoGradientMixed o msoGradientVertical. Long de sólo lectura.

La propiedad es de sólo lectura. Utilice el método OneColorGradient, PresetGradient o TwoColorGradient para establecer el estilo de degradado del relleno.

Nota   Si intenta devolver esta propiedad para un relleno que no tiene degradado se producirá un error. Utilice la propiedad Type para determinar si el relleno tiene degradado.


Ejemplo de la propiedad GradientStyle

Este ejemplo agrega un rectángulo a miDocumento y establece el estilo de degradado del relleno de manera que coincida con el de la forma denominada "rect1". Para que el ejemplo tenga validez, rect1 debe tener relleno de degradado.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    estiloDegradado1 = .Item("rect1").Fill.GradientStyle

    With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill

        .ForeColor.RGB = RGB(128, 0, 0)

        .OneColorGradient estiloDegradado1, 1, 1

    End With

End With


Propiedad GradientVariant

Devuelve la variante de degradado al relleno especificado como valor entero de 1 a 4 para la mayoría de los rellenos de degradado. Si el estilo de degradado es msoGradientFromTitle o msoGradientFromCenter, esta propiedad devuelve 1 ó 2. Los valores de la propiedad equivalen a las variantes de degradado (enumeradas de izquierda a derecha y de arriba a abajo) en la ficha Gradient en el cuadro de diálogo Fill Effects. Long de sólo lectura.

La propiedad es de sólo lectura. Utilice el método OneColorGradient, PresetGradient o TwoColorGradient para establecer la variante de degradado de relleno.


Ejemplo de la propiedad GradientVariant

Este ejemplo agrega un rectángulo a miDocumento y establece la variante de degradado de relleno de manera que coincida con la de la forma denominada "rect1." Para que el ejemplo tenga validez, rect1 debe tener relleno de degradado.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    varianteDegradado1 = .Item("rect1").Fill.GradientVariant

    With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill

        .ForeColor.RGB = RGB(128, 0, 0)

        .OneColorGradient msoGradientHorizontal, varianteDegradado1, 1

    End With

End With


Método OneColorGradient

Establece el relleno especificado como degradado de un solo color.

Sintaxis

expresión.OneColorGradient(Style, Variant, Degree)

expresión   Requerida. Expresión que devuelve un objeto de FillFormat.

Style   Long requerido. Estilo de degradado. Puede ser una de las siguientes constantes MsoGradientStyle: msoGradientDiagonalDown, msoGradientDiagonalUp, msoGradientFromCenter, msoGradientFromCorner, msoGradientFromTitle, msoGradientHorizontal o msoGradientVertical.

Variant   Long requerido. Variante del degradado. Puede ser un valor de 1 a 4, correspondiente a las cuatro variantes en la ficha Gradient en el cuadro de diálogo Fill Effects. Si Style es msoGradientFromTitle o msoGradientFromCenter, el argumento puede ser 1 ó 2.

Degree   Single requerido. Nivel de degradado. Puede ser un valor de 0.0 (oscuro) a 1.0 (claro).


Ejemplo del método OneColorGradient

Este ejemplo agrega un rectángulo con relleno de degradado de un solo color a miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddShape(msoShapeRectangle, 90, 90, 90, 80).Fill

    .ForeColor.RGB = RGB(128, 0, 128)

    .OneColorGradient msoGradientHorizontal, 1, 1

End With


Propiedad Pattern

Devuelve un valor que representa el diseño aplicado al relleno o línea especificados. Long de sólo lectura.

Puede ser una de las siguientes constantes MsoPatternType:

msoPattern10Percent msoPattern20Percent msoPattern25Percent msoPattern30Percent msoPattern40Percent msoPattern50Percent msoPattern5Percent msoPattern60Percent msoPattern70Percent msoPattern75Percent msoPattern80Percent msoPattern90Percent msoPatternDarkDownwardDiagonal msoPatternDarkHorizontal msoPatternDarkUpwardDiagonal msoPatternDarkVertical msoPatternDashedDownwardDiagonal msoPatternDashedHorizontal msoPatternDashedUpwardDiagonal msoPatternDashedVertical msoPatternDiagonalBrick msoPatternDivot msoPatternDottedDiamond msoPatternDottedGrid msoPatternHorizontalBrick	msoPatternLargeCheckerBoard msoPatternLargeConfetti msoPatternLargeGrid msoPatternLightDownwardDiagonal msoPatternLightHorizontal msoPatternLightUpwardDiagonal msoPatternLightVertical msoPatternMixed msoPatternNarrowHorizontal msoPatternNarrowVertical msoPatternOutlinedDiamond msoPatternPlaid msoPatternShingle msoPatternSmallCheckerBoard msoPatternSmallConfetti msoPatternSmallGrid msoPatternSolidDiamond msoPatternSphere msoPatternTrellis msoPatternWave msoPatternWeave msoPatternWideDownwardDiagonal msoPatternWideUpwardDiagonal msoPatternZigZag
La propiedad es de sólo lectura. Utilice el método Patterned para establecer el diseño del relleno o la línea.

Utilice las propiedades BackColor y ForeColor para establecer los colores empleados en el diseño.


Ejemplo de la propiedad Pattern

Este ejemplo agrega un rectángulo a miDocumento y establece el diseño del relleno de manera que coincida con el de la forma denominada "rect1". El nuevo rectángulo tiene el mismo diseño que rect1, pero no necesariamente los mismos colores. Los colores utilizados en el diseño se establecen mediante las propiedades BackColor y ForeColor.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    trama1 = .Item("rect1").Fill.Pattern

    With .AddShape(msoShapeRectangle, 100, 100, 120, 80).Fill

        .ForeColor.RGB = RGB(128, 0, 0)

        .BackColor.RGB = RGB(0, 0, 255)

        .Patterned trama1

    End With

End With

Este ejemplo agrega una línea de entramado a miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddLine(10, 100, 250, 0).Line

    .Weight = 6

    .ForeColor.RGB = RGB(0, 0, 255)

    .BackColor.RGB = RGB(128, 0, 0)

    .Pattern = msoPatternDarkDownwardDiagonal

End With


Método Patterned

Establece el relleno especificado para un diseño.

Sintaxis

expresión.Patterned(Pattern)

expresión   Requerida. Expresión que devuelve un objeto de FillFormat.

Pattern   Long requerido. Diseño que se utilizará para el relleno especificado. Puede ser una de las constantes MsoPatternType.

Comentarios

Utilice las propiedades BackColor y ForeColor para establecer los colores empleados en el diseño.


Ejemplo del método Patterned

Este ejemplo agrega una elipse con relleno de degradado a miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

With miDocument.Shapes.AddShape(msoShapeOval, 60, 60, 80, 40).Fill

    .ForeColor.RGB = RGB(128, 0, 0)

    .BackColor.RGB = RGB(0, 0, 255)

    .Patterned msoPatternDarkVertical

End With


Método PresetGradient

Establece el relleno especificado para un degradado previamente establecido.

Sintaxis

expresión.PresetGradient(Style, Variant, PresetGradientType)

expresión   Requerida. Expresión que devuelve un objeto de FillFormat.

Style   Long requerido. Estilo de degradado. Puede ser una de las siguientes constantes MsoGradientStyle: msoGradientDiagonalDown, msoGradientDiagonalUp, msoGradientFromCenter, msoGradientFromCorner, msoGradientFromTitle, msoGradientHorizontal o msoGradientVertical.

Variant   Long requerido. Variante del degradado. Puede ser un valor de 1 a 4, correspondiente a las cuatro variantes en la ficha Gradient en el cuadro de diálogo Fill Effects. Si Style es msoGradientFromTitle o msoGradientFromCenter, el argumento puede ser 1 ó 2.

PresetGradientType   Long requerido. Tipo de degradado. Puede ser una de las siguientes constantes MsoPresetGradientType:

msoGradientBrass msoGradientCalmWater msoGradientChrome msoGradientChromeII msoGradientDaybreak msoGradientDesert msoGradientEarlySunset msoGradientFire msoGradientFog msoGradientGold msoGradientGoldII msoGradientHorizon	msoGradientLateSunset msoGradientMahogany msoGradientMoss msoGradientNightfall msoGradientOcean msoGradientParchment msoGradientPeacock msoGradientRainbow msoGradientRainbowII msoGradientSapphire msoGradientSilver msoGradientWheat


Ejemplo del método PresetGradient

Este ejemplo agrega un rectángulo con relleno de degradado previamente establecido a miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes.AddShape(msoShapeRectangle, 90, 90, 140, 80) _

    .Fill.PresetGradient msoGradientHorizontal, 1, msoGradientBrass


Propiedad PresetGradientType

Devuelve el tipo de degradado previamente establecido para relleno especificado. Long de sólo lectura.

Puede ser una de las siguientes constantes MsoPresetGradientType:

msoGradientBrass msoGradientCalmWater msoGradientChrome msoGradientChromeII msoGradientDaybreak msoGradientDesert msoGradientEarlySunset msoGradientFire msoGradientFog msoGradientGold msoGradientGoldII msoGradientHorizon msoGradientLateSunset	msoGradientMahogany msoGradientMoss msoGradientNightfall msoGradientOcean msoGradientParchment msoGradientPeacock msoGradientRainbow msoGradientRainbowII msoGradientSapphire msoGradientSilver msoGradientWheat msoPresetGradientMixed
La propiedad es de sólo lectura. Utilice el método PresetGradient para establecer el tipo de degradado previamente establecido para el relleno.


Ejemplo de la propiedad PresetGradientType

Este ejemplo cambia el relleno de todas las formas de miDocumento que tenían el relleno de degradado Musgo previamente establecido al relleno de degradado previamente establecido Niebla.

Set miDocumento = ActivePresentation.Slides(1)

For Each f In miDocumento.Shapes

    With f.Fill

        If .PresetGradientType = msoGradientMoss Then

            .PresetGradient msoGradientHorizontal, 1, msoGradientFog

        End If

    End With

Next


Propiedad PresetTexture

Devuelve la textura previamente establecida al relleno especificado. Long de sólo lectura.

Puede ser una de las siguientes constantes MsoPresetTexture:

msoPresetTextureMixed msoTextureBlueTissuePaper msoTextureBouquet msoTextureBrownMarble msoTextureCanvas msoTextureCork msoTextureDenim msoTextureFishFossil msoTextureGranite msoTextureGreenMarble msoTextureMediumWood msoTextureNewsprint msoTextureOak	msoTexturePaperBag msoTexturePapyrus msoTextureParchment msoTexturePinkTissuePaper msoTexturePurpleMesh msoTextureRecycledPaper msoTextureSand msoTextureStationery msoTextureWalnut msoTextureWaterDroplets msoTextureWhiteMarble msoTextureWovenMat
La propiedad es de sólo lectura. Utilice el método PresetTextured para establecer la textura previamente establecida para el relleno.


Ejemplo de la propiedad PresetTexture

Este ejemplo agrega un rectángulo a miDocumento y establece la textura previamente establecida de manera que coincida con la de la forma dos. Para que el ejemplo tenga validez, la forma dos debe tener un relleno con textura previamente establecido.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    texturaPre2 = .Item(2).Fill.PresetTexture

    .AddShape(msoShapeRectangle, 100, 0, 40, 80).Fill _

        .PresetTextured texturaPre2

End With


Método PresetTextured

Establece el relleno especificado para una textura previamente establecida.

Sintaxis

expresión.PresetTextured(PresetTexture)

expresión   Requerida. Expresión que devuelve un objeto de FillFormat.

PresetTexture   Long requerido . Textura previamente establecida. Puede ser una de las siguientes constantes MsoPresetTexture:

msoTextureBlueTissuePaper msoTextureBouquet msoTextureBrownMarble msoTextureCanvas msoTextureCork msoTextureDenim msoTextureFishFossil msoTextureGranite msoTextureGreenMarble msoTextureMediumWood msoTextureNewsprint msoTextureOak	msoTexturePaperBag msoTexturePapyrus msoTextureParchment msoTexturePinkTissuePaper msoTexturePurpleMesh msoTextureRecycledPaper msoTextureSand msoTextureStationery msoTextureWalnut msoTextureWaterDroplets msoTextureWhiteMarble msoTextureWovenMat


Ejemplo del método PresetTextured

Este ejemplo agrega un rectángulo con relleno con textura de mármol verde a miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes.AddShape(msoShapeCan, 90, 90, 40, 80) _

    .Fill.PresetTextured msoTextureGreenMarble


Método Solid

Establece el relleno especificado como color uniforme. Utilice este método para volver a convertir en relleno sólido un relleno de degradado, con textura, con diseño o de fondo.

Sintaxis

expresión.Solid

expresión   Requerida. Expresión que devuelve un objeto de FillFormat.


Ejemplo del método Solid

Este ejemplo convierte todos los rellenos de miDocumento en rellenos de color rojo uniforme.

Set miDocumento = ActivePresentation.Slides(1)

For Each f In miDocumento.Shapes

    With f.Fill

        .Solid

        .ForeColor.RGB = RGB(255, 0, 0)

    End With

Next


Propiedad TextureName

Devuelve el nombre del archivo de textura personalizada para relleno especificado. String de sólo lectura.

La propiedad es de sólo lectura. Utilice el método UserTextured para establecer el archivo de textura del relleno.


Ejemplo de la propiedad TextureName

Este ejemplo agrega una elipse a miDocumento. Si la forma uno en miDocumento tiene un relleno con textura definido por el usuario, la nueva elipse tendrá el mismo relleno que la forma uno. Si la forma uno tiene otro tipo de relleno, la nueva elipse tendrá un relleno de mármol verde.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    Set rellenoNuevo = .AddShape(msoShapeOval, 0, 0, 200, 90).Fill

    With .Item(1).Fill

        If .Type = msoFillTextured And _

                .TextureType = msoTextureUserDefined Then

            rellenoNuevo.UserTextured .TextureName

        Else

            rellenoNuevo.PresetTextured msoTextureGreenMarble

        End If

    End With

End With


Propiedad TextureType

Devuelve el tipo de textura al relleno especificado. Puede ser una de las siguientes constantes MsoTextureType: msoTexturePreset, msoTextureTypeMixed o msoTextureUserDefined. Long de sólo lectura.

La propiedad es de sólo lectura. Utilice el método PresetTextured o UserTextured para establecer el tipo de textura del relleno.


Ejemplo de la propiedad TextureType

Este ejemplo cambia el relleno de todas las formas en miDocumento que tengan relleno con textura personalizada a relleno de lienzo.

Set miDocumento = ActivePresentation.Slides(1)

For Each f In miDocumento.Shapes

    With f.Fill

        If .TextureType = msoTextureUserDefined Then

            .PresetTextured msoTextureCanvas

        End If

    End With

Next


Método TwoColorGradient

Establece el relleno especificado en un degradado a dos colores.

Sintaxis

expresión.TwoColorGradient(Style, Variant)

expresión   Requerida. Expresión que devuelve un objeto de FillFormat.

Style   Long requerido. Estilo de degradado. Puede ser una de las siguientes constantes MsoGradientStyle: msoGradientDiagonalDown, msoGradientDiagonalUp, msoGradientFromCenter, msoGradientFromCorner, msoGradientFromTitle, msoGradientHorizontal o msoGradientVertical.

Variant   Long requerido. Variante del degradado. Puede ser un valor de 1 a 4, correspondiente a las cuatro variantes en la ficha Gradient en el cuadro de diálogo Fill Effects. Si Style es msoGradientFromTitle o msoGradientFromCenter, el argumento puede ser 1 ó 2.


Ejemplo del método TwoColorGradient

Este ejemplo agrega un rectángulo con relleno de degradado de dos colores a miDocumento y establece el color de primer plano y de fondo del relleno.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill

    .ForeColor.RGB = RGB(128, 0, 0)

    .BackColor.RGB = RGB(0, 170, 170)

    .TwoColorGradient msoGradientHorizontal, 1

End With


Método UserPicture

Rellena la forma especificada con una imagen grande. Si desea llenar la forma con la imagen dividida en pequeñas cuadrículas de mosaico, utilice el método UserTextured.

Sintaxis

expresión.UserPicture(PictureFile)

expresión   Requerida. Expresión que devuelve un objeto de FillFormat.

PictureFile   String requerida. Nombre del archivo de imágenes.


Ejemplo del método UserPicture

Este ejemplo agrega dos rectángulos a miDocumento. El rectángulo que se encuentra a la izquierda se llena con una imagen a gran tamaño en Tejas.bmp; el rectángulo de la derecha se llena con la imagen dividida en numerosas cuadrículas de mosaico en Tejas.bmp

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    .AddShape(msoShapeRectangle, 0, 0, 200, 100).Fill _

        .UserPicture "c:\windows\tejas.bmp"

    .AddShape(msoShapeRectangle, 300, 0, 200, 100).Fill _

        .UserTextured "c:\windows\tejas.bmp"

End With


Método UserTextured

Llena la forma especificada con una imagen dividida en pequeñas cuadrículas de mosaico. Si desea llenar la forma con una imagen grande, utilice el método UserPicture.

Sintaxis

expresión.UserTextured(TextureFile)

expresión   Requerida. Expresión que devuelve un objeto de FillFormat.

TextureFile   String requerida. Nombre del archivo de imágenes.


Ejemplo del método UserTextured

Este ejemplo agrega dos rectángulos a miDocumento. El rectángulo que se encuentra a la izquierda se llena con una imagen a gran tamaño en Tejas.bmp; el rectángulo de la derecha se llena con la imagen dividida en numerosas cuadrículas de mosaico en Tejas.bmp

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    .AddShape(msoShapeRectangle, 0, 0, 200, 100).Fill _

        .UserPicture "c:\windows\tejas.bmp"

    .AddShape(msoShapeRectangle, 300, 0, 200, 100).Fill _

        .UserTextured "c:\windows\tejas.bmp"

End With


Propiedad BaselineOffset

Devuelve o establece el desplazamiento de la línea base de los caracteres superíndice o subíndice especificados. Es un valor de signo decimal flotante comprendido entre  – 1 y 1. Un valor  – 1 representa un desplazamiento de  – 100 por cien, mientras que un valor de 1 representa un desplazamiento de 100 por cien. Single de Lectura/Escritura.

Comentarios

Con valores negativos de la propiedad BaselineOffset, se establecen automáticamente las propiedades Subscript en True y Superscript en False.

Con valores positivos de la propiedad BaselineOffset, se establecen automáticamente las propiedades Subscript en False y Superscript en True.

Si la propiedad Subscript es True, se establece la propiedad BaselineOffset en 0.3 (30 por ciento).

Si la propiedad Superscript es True, se establece automáticamente la propiedad BaselineOffset en  – 0.25 ( – 25 por ciento).


Ejemplo de la propiedad BaselineOffset

Este ejemplo establece el texto de la forma número dos de la diapositiva número uno y cambia el segundo carácter a subíndice con un 20 por ciento de desplazamiento.

With Application.ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange

    .Text = "H2O"

    .Characters(2, 1).Font.BaselineOffset = -0.2

End With


Propiedad Bold

True si el formato del carácter es negrita, False si no es negrita o msoTriStateMixed si el texto especificado contiene algunos caracteres en negrita y otros no. Long de Lectura/Escritura.


Ejemplo de la propiedad Bold

Este ejemplo establece en negrita los caracteres del primero al quinto de la diapositiva número uno.

Set miTexto = Application.ActivePresentation.Slides(1).Shapes.Title

 miTexto.TextFrame.TextRange.Characters(1, 5).Font.Bold = True


Propiedad Color

Devuelve un objeto ColorFormat que representa el color de fondo de los caracteres especificados. Es de sólo lectura.


Ejemplo de la propiedad Color

Este ejemplo establece el color de los caracteres del primero al quinto del título de la diapositiva número uno.

miRojo = RGB(255, 0, 0)

Set miTexto = Application.ActivePresentation.Slides(1).Shapes.Title

 miTexto.TextFrame.TextRange.Characters(1, 5).Font.Color.RGB = miRojo


Propiedad Emboss

True si el formato del carácter es en relieve, False si no es en relieve o msoTriStateMixed si el texto especificado contiene algunos caracteres en relieve y otros no. Long de Lectura/Escritura.


Ejemplo de la propiedad Emboss

Este ejemplo establece en relieve el texto del título de la diapositiva número uno.

Application.ActivePresentation.Slides(1).Shapes.Title _

    .TextFrame.TextRange.Font.Emboss = True


Propiedad Italic

Objeto Font: True si el formato del carácter es cursiva, False si no es cursiva o msoTriStateMixed si el texto especificado contiene algunos caracteres en cursiva y otros no. Long de Lectura/Escritura.


Ejemplo de la propiedad Italic

Este ejemplo establece el título del texto de la diapositiva número uno en azul y cursiva.

With Application.ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange

    .Text = "Vulcano"

    With .Font

        .Italic = True

        .Name = "palatino"

        .Color.RGB = RGB(0, 0, 255)

    End With

End With


Propiedad Shadow

Objeto Font: True si el texto especificado está sombreado, False si no lo está o msoTriStateMixed si parte del texto está sombreado y parte no. Long de Lectura/Escritura.

Objeto Shape o ShapeRange: Devuelve un objeto ShadowFormat que contiene las propiedades de formato de sombreado de la forma o formas especificadas. Es de sólo lectura.


Ejemplo de la propiedad Shadow

Este ejemplo agrega una sombra al texto del título de la diapositiva número uno de la presentación activa.

Application.ActivePresentation.Slides(1).Shapes.Title _

    .TextFrame.TextRange.Font.Shadow = True

Este ejemplo agrega un rectángulo sombreado a la diapositiva número uno de la presentación activa. La sombra azul y en relieve está desplazada 3 puntos a la derecha y 2 puntos hacia abajo del rectángulo.

Set miForma = Application.ActivePresentation.Slides(1).Shapes

With miForma.AddShape(msoShapeRectangle, 10, 10, 150, 90).Shadow

    .Type = msoShadow17

    .ForeColor.RGB = RGB(0, 0, 128)

    .OffsetX = 3

    .OffsetY = 2

End With


Propiedad Size

Devuelve o establece el tamaño en puntos del carácter. Single de Lectura/Escritura.


Ejemplo de la propiedad Size

Este ejemplo establece en 24 puntos el tamaño del texto adjunto a la forma en la diapositiva número uno.

Application.ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Font. _

    Size = 24


Propiedad Subscript

True si el texto especificado es subíndice, False si no lo es o msoStateMixed si algunos caracteres son subíndices y otros no lo son. El valor predeterminado es False. Long de Lectura/Escritura.

Comentarios

Con valores negativos de la propiedad BaselineOffset, se establecen automáticamente las propiedades Subscript en True y Superscript en False.

Con valores positivos de la propiedad BaselineOffset, se establecen automáticamente las propiedades Subscript en False y Superscript en True.

Si la propiedad Subscript es True, se establece la propiedad BaselineOffset en  – 0.25 ( – 25 por ciento).


Ejemplo de la propiedad Subscript

Este ejemplo agranda el primer carácter del título de la diapositiva número uno si ese carácter es subíndice.

With Application.ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange

    With .Characters(1, 1).Font

        If .Subscript Then

            Escala = -20 * .BaselineOffset

            .Size = .Size * Escala

        End If

    End With

End With


Propiedad Superscript

True si el texto especificado es superíndice, False si no lo es o msoStateMixed si algunos caracteres son superíndices y otros no lo son. El valor predeterminado es False. Long de Lectura/Escritura.

Comentarios

Con valores negativos de la propiedad BaselineOffset, se establecen automáticamente las propiedades Subscript en True y Superscript en False.

Con valores positivos de la propiedad BaselineOffset, se establecen automáticamente las propiedades Subscript en False y Superscript en True.

Si la propiedad Superscript es True, se establece automáticamente la propiedad BaselineOffset en 0.3 (30 por ciento).


Ejemplo de la propiedad Superscript

Este ejemplo establece el texto de la forma número dos de la diapositiva número uno y cambia el quinto carácter a superíndice con un 30 por ciento de desplazamiento.

With Application.ActivePresentation.Slides(1).Shapes(2).TextFrame

    With .TextRange

        .Text = "E=mc2"

        .Characters(5, 1).Font.Superscript = True

    End With

End With


Propiedad Underline

Objeto Font: True si el texto especificado está subrayado, False si no lo está o msoTriStateMixed si algunos caracteres están subrayados y otros no. Long de Lectura/Escritura.

Objeto FontInfo: True si el estilo de la fuente es subrayado. Long de sólo lectura.


Ejemplo de la propiedad Underline

Este ejemplo establece el formato del texto en la forma número dos de la diapositiva uno de la presentación activa.

With Application.ActivePresentation.Slides(1).Shapes(2)

    With .TextFrame.TextRange.Font

        .Size = 32

        .Name = "palatino"

        .Underline = True

    End With

End With


Propiedad Embeddable

True si la fuente especificada puede incrustarse en la presentación. Long de sólo lectura.


Ejemplo de la propiedad Embeddable

Este ejemplo comprueba cada una de las fuentes utilizadas en la presentación activa para determinar si pueden incrustarse.

For Each fuenteUsada In Presentations(1).Fonts

    If fuenteUsada.Embeddable Then

        MsgBox fuenteUsada.Name & ": Puede incrustarse"

    Else

        MsgBox fuenteUsada.Name & ": No puede incrustarse"

    End If

Next usedFont


Propiedad Embedded

True si la fuente especificada está incrustada en la presentación. Long de sólo lectura.


Ejemplo de la propiedad Embedded

Este ejemplo comprueba cada una de las fuentes utilizadas en la presentación activa para determinar si se encuentran incrustadas en la misma.

For Each fuenteUsada In Presentations(1).Fonts

    If fuenteUsada.Embedded Then

        MsgBox fuenteUsada.Name & ": Incrustada"

    Else

        MsgBox fuenteUsada.Name & ": No incrustada"

    End If

Next usedFont


Método AddNodes

Inserta un nuevo segmento al final de la forma libre que está siendo creada y agrega los nodos que definen el segmento. Este método puede utilizarse tantas veces como se desee para agregar nodos a la forma libre que se está creando. Cuando haya terminado de agregar nodos, utilice el método ConvertToShape para crear la forma libre que acaba de definir. Para agregar nodos a una forma libre después de crearla, utilice el método Insert del conjunto ShapeNodes.

Sintaxis

expresión.AddNodes(SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)

expresión   Requerida. Expresión que devuelve un objeto de FreeformBuilder.

SegmentType   Long  requerido. Tipo de segmento que debe agregarse. Puede ser una de las siguientes constantes MsoSegmentType: msoSegmentCurve o msoSegmentLine.

EditingType   Long  requerido. Propiedad de edición del vértice. Puede ser una de las siguientes constantes MsoEditingType: msoEditingAuto o msoEditingCorner (no puede ser msoEditingSmooth ni msoEditingSymmetric). Si SegmentType es msoSegmentLine, EditingType debe ser msoEditingAuto.

X1   Single  requerido. Si el EditingType del nuevo segmento es msoEditingAuto, el argumento especifica la distancia horizontal (en puntos) desde la esquina superior izquierda del documento hasta el punto final del nuevo segmento. Si el EditingType del nuevo nodo es msoEditingCorner, el argumento especifica la distancia horizontal (en puntos) desde la esquina superior izquierda del documento hasta el primer punto de control del nuevo segmento.

Y1   Single  requerido. Si el EditingType del nuevo segmento es msoEditingAuto, el argumento especifica la distancia vertical (en puntos) desde la esquina superior izquierda del documento hasta el punto final del nuevo segmento. Si el EditingType del nuevo nodo es msoEditingCorner, el argumento especifica la distancia vertical (en puntos) desde la esquina superior izquierda del documento hasta el primer punto de control del nuevo segmento.

X2   Single  opcional. Si el EditingType del nuevo segmento es msoEditingCorner, el argumento especifica la distancia horizontal (en puntos) desde la esquina superior izquierda del documento hasta el segundo punto de control del nuevo segmento. Si el EditingType del nuevo segmento es msoEditingAuto, no especifique ningún valor para este argumento.

Y2   Single opcional. Si el EditingType del nuevo segmento es msoEditingCorner, el argumento especifica la distancia vertical (en puntos) desde la esquina superior izquierda del documento hasta el segundo punto de control del nuevo segmento. Si el EditingType del nuevo segmento es msoEditingAuto, no especifique ningún valor para este argumento.

X3   Single opcional. Si el EditingType del nuevo segmento es msoEditingCorner, el argumento especifica la distancia horizontal (en puntos) desde la esquina superior izquierda del documento hasta el punto final del nuevo segmento. Si el EditingType del nuevo segmento es msoEditingAuto, no especifique ningún valor para este argumento.

Y3   Single opcional. Si el EditingType del nuevo segmento es msoEditingCorner, el argumento especifica la distancia vertical (en puntos) desde la esquina superior izquierda del documento hasta el punto final del nuevo segmento. Si el EditingType del nuevo segmento es msoEditingAuto, no especifique ningún valor para este argumento.


Ejemplo del método AddNodes

Este ejemplo agrega una forma libre con cinco vértices a miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.BuildFreeform(msoEditingCorner, 360, 200)

    .AddNodes msoSegmentCurve, msoEditingCorner, 380, 230, 400, 250, 450, 300

    .AddNodes msoSegmentCurve, msoEditingAuto, 480, 200

    .AddNodes msoSegmentLine, msoEditingAuto, 480, 400

    .AddNodes msoSegmentLine, msoEditingAuto, 360, 200

    .ConvertToShape

End With


Método ConvertToShape

Crea una forma que tiene las características geométricas del objeto de FreeformBuilder especificado. Devuelve un objeto de Shape que representa la nueva forma.

Nota   Debe aplicarse al menos una vez el método AddNodes a un objeto de FreeformBuilder antes de utilizar el método ConvertToShape.

Sintaxis

expresión.ConvertToShape

expresión   Requerida. Expresión que devuelve un objeto de FreeformBuilder.


Ejemplo del método ConvertToShape

Este ejemplo agrega una forma libre con cinco vértices a miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.BuildFreeform(msoEditingCorner, 360, 200)

    .AddNodes msoSegmentCurve, msoEditingCorner, 380, 230, 400, 250, 450, 300

    .AddNodes msoSegmentCurve, msoEditingAuto, 480, 200

    .AddNodes msoSegmentLine, msoEditingAuto, 480, 400

    .AddNodes msoSegmentLine, msoEditingAuto, 360, 200

    .ConvertToShape

End With


Propiedad Format

Devuelve o establece el formato de fecha y hora actualizadas automáticamente. Se aplica sólo a objetos HeaderFooter que representan fecha y hora (devuelto del conjunto HeadersFooters por la propiedad DateAndTime). Long de Lectura/Escritura.

Puede ser una de las siguientes constantes PpDateTimeFormat:

ppDateTimeddddMMMMddyyyy ppDateTimedMMMMyyyy ppDateTimedMMMyy ppDateTimeFormatMixed ppDateTimeHmm ppDateTimehmmAMPM ppDateTimeHmmss	ppDateTimehmmssAMPM ppDateTimeMdyy ppDateTimeMMddyyHmm ppDateTimeMMddyyhmmAMPM ppDateTimeMMMMdyyyy ppDateTimeMMMMyy ppDateTimeMMyy
Comentarios

Asegúrese de que la fecha y hora se actualizan automáticamente (que no sea un texto fijo). Para ello, establezca la propiedad UseFormat en True.


Ejemplo de la propiedad Format

Este ejemplo establece la fecha y hora del patrón de diapositivas de la presentación activa para que se actualicen automáticamente. También establece el formato de fecha y hora para mostrar horas, minutos y segundos.

Set miPres = Application.ActivePresentation

With miPres.SlideMaster.HeadersFooters.DateAndTime

    .UseFormat = True

    .Format = ppDateTimeHmmss

End With


Propiedad Text

Objeto HeaderFooter, TextEffectFormat o TextRange: Devuelve o establece el texto contenido en el objeto especificado. String de Lectura/Escritura.


Ejemplo de la propiedad Text

Este ejemplo establece el texto y estilo de fuente del título en la diapositiva número uno en la presentación activa.

Set miPres = Application.ActivePresentation

With miPres.Slides(1).Shapes.Title.TextFrame.TextRange

    .Text = "Bienvenido"

    .Font.Italic = True

End With


Propiedad UseFormat

True si el objeto de fecha y hora contiene información que se actualiza automáticamente. False si la cadena de fecha y hora es fija. Long de Lectura/Escritura.

Comentarios

Esta propiedad se aplica al objeto HeaderFooter que representa una fecha y hora (devuelto por la propiedad DateAndTime). Establezca en True la propiedad UseFormat de un objeto HeaderFooter de fecha y hora si desea establecer o devolver el formato de fecha y hora mediante la propiedad Format. Establezca la propiedad UseFormat en False cuando desee establecer o devolver la cadena de texto de una fecha y hora fija.


Ejemplo de la propiedad UseFormat

Este ejemplo establece la fecha y hora del patrón de diapositivas de la presentación activa para que se actualicen automáticamente. También establece el formato de fecha y hora para mostrar horas, minutos y segundos.

Set miPres = Application.ActivePresentation

With miPres.SlideMaster.HeadersFooters.DateAndTime

    .UseFormat = True

    .Format = ppDateTimeHmmss

End With


Propiedad DateAndTime

Devuelve un objeto HeaderFooter que representa un elemento de fecha y hora que aparece en la esquina inferior izquierda de una diapositiva o en la esquina superior derecha de las páginas de notas, documentos o esquema. Es de sólo lectura.


Ejemplo de la propiedad DateAndTime

Este ejemplo establece el formato de fecha y hora del patrón de diapositivas en la presentación activa. La configuración se aplicará a todas las diapositivas creadas a partir de este patrón.

Set miPres = Application.ActivePresentation

With miPres.SlideMaster.HeadersFooters.DateAndTime

    .Format = ppDateTimeMdyy

    .UseFormat = True

End With


Propiedad DisplayOnTitleSlide

True si el pie de página, número de diapositiva y fecha y hora aparecen en la diapositiva de título. False si esta información aparece en todas las diapositivas excepto en la de título. Se aplica a todos los patrones de diapositiva. Long de Lectura/Escritura.


Ejemplo de la propiedad DisplayOnTitleSlide

Este ejemplo establece el pie de página, el número de diapositiva y la fecha y hora para que no aparezcan en la diapositiva de título.

Application.ActivePresentation.SlideMaster.HeadersFooters _

    .DisplayOnTitleSlide = False


Propiedad Footer

Devuelve un objeto HeaderFooter que representa el pie de página que aparece en la parte inferior de una diapositiva o en la parte inferior izquierda de las páginas de notas, documentos o esquema. Es de sólo lectura.


Ejemplo de la propiedad Footer

Este ejemplo establece el texto del pie de página en la diapositiva número uno de la presentación activa. Después establece el pie de página, la fecha y hora y el número de página que aparecen en la diapositiva de título.

With Application.ActivePresentation.Master.HeadersFooters

    .Footer.Text = "Introducción"

    .DisplayOnTitleSlide = True

End With


Propiedad Header

Devuelve un objeto HeaderFooter que representa el encabezado que aparece en la parte superior de una diapositiva o en la parte superior izquierda de las páginas de notas, documentos o esquema. Es de sólo lectura.


Ejemplo de la propiedad Header

Este ejemplo establece el texto del encabezado del patrón de documentos en la presentación activa. El texto aparecerá en la esquina superior izquierda cuando imprima la presentación como esquema o documento.

Set miDocPP = Application.ActivePresentation.HandoutMaster.HeadersFooters

miDocPP.Header.Text = "Informe tercer trimestre"


Propiedad SlideNumber

Conjunto HeadersFooters: Devuelve un objeto HeaderFooter que representa el número de diapositiva en la esquina inferior derecha de la diapositiva, o el número de página en la esquina inferior derecha de las páginas de notas o una página del documento impreso o esquema. Es de sólo lectura.

Objeto Slide o SlideRange: Devuelve el número de la diapositiva. Integer de sólo lectura.

Comentarios

La propiedad SlideNumber de un objeto Slide es el número que aparece en la esquina inferior derecha de la diapositiva cuando se muestran los números de las diapositivas. Este número se determina por el número de la diapositiva dentro de la presentación (el valor de la propiedad SlideIndex) y por el número de la diapositiva inicial de la presentación (el valor de la propiedad FirstSlideNumber). El número de la diapositiva es siempre igual al número de la diapositiva inicial + el número de índice de la diapositiva – 1.


Ejemplo de la propiedad SlideNumber

Este ejemplo muestra cómo afecta el cambio del número de la primera diapositiva al número de una diapositiva específica.

With Application.ActivePresentation

    .PageSetup.FirstSlideNumber = 1  'empieza la numeración de diapositivas en 1

    MsgBox .Slides(2).SlideNumber    'devuelve 2

    .PageSetup.FirstSlideNumber = 10  'empieza la numeración de diapositivas en 10

    MsgBox .Slides(2).SlideNumber    'devuelve 11

End With

Este ejemplo oculta el número de diapositiva de la diapositiva número dos en la presentación activa si el número está visible actualmente, o lo muestra si está oculto.

With Application.ActivePresentation.Slides(2).HeadersFooters.SlideNumber

    If .Visible Then

        .Visible = False

    Else

        .Visible = True

    End If

End With


Método Export

Objeto Presentation: Exporta cada una de las diapositivas de la presentación, utilizando el filtro de gráficos especificado, y guarda los archivos exportados en la carpeta definida.

Objeto Slide o SlideRange: Exporta una diapositiva, utilizando el filtro de gráficos especificado, y guarda el archivo exportado con el nombre de archivo que se defina.

Sintaxis 1

expresión.Export(Path, FilterName, ScaleWidth, ScaleHeight)

Sintaxis 2

expresión.Export(FileName, FilterName, ScaleWidth, ScaleHeight)

expresión   Requerida. Expresión que devuelve un objeto Presentation (Sintaxis 1) o un objeto Slide o SlideRange (Sintaxis 2).

Path   String requerida. Ruta de acceso a la carpeta en que desea guardar las diapositivas exportadas. Puede incluir una ruta de acceso completa; si no es así, PowerPoint creará una subcarpeta dentro de la carpeta actual de las diapositivas exportadas.

FileName   String requerida. Nombre del archivo que debe exportarse y guardarse en el disco. Puede incluir una ruta de acceso completa; si no es así, PowerPoint creará un archivo dentro de la carpeta actual.

FilterName   String requerida. Formato de gráficos en el que desea exportar las diapositivas. El formato de gráficos especificado debe tener definido un filtro de exportación en el registro del sistema. Puede especificarse la extensión registrada o el nombre del filtro registrado. En primer lugar, PowerPoint buscará una extensión coincidente en el registro. Si no encuentra ninguna extensión que coincida con la cadena especificada, PowerPoint buscará el nombre de filtro correspondiente.

ScaleWidth   Long opcional. Factor con el que se aplicará una escala al ancho de una diapositiva exportada.

ScaleHeight   Long opcional. Factor con el que se aplicará una escala al alto de una diapositiva exportada.

Comentarios

Al exportar una presentación, la propiedad Saved de la presentación no se establece como True.

PowerPoint utiliza el filtro de gráficos especificado para guardar cada una de las diapositivas de la presentación. PowerPoint determina los nombres de las diapositivas exportadas y guardadas en el disco. Por ejemplo, normalmente se guardan como Diapositiva1.WMF, Diapositiva2.WMF y así sucesivamente. La ruta de acceso de los archivos guardados se especifica en el argumento Path.


Ejemplo del método Export

En este ejemplo se guarda la presentación activa como presentación de PowerPoint y, a continuación, se exporta cada una de las diapositivas de la presentación como archivo de Portable Network Graphics (PNG), que se guardará en la carpeta Trabajo actual. En el ejemplo también se aplica una escala a cada diapositiva exportada de la mitad del alto y del ancho de la original.

With ActivePresentation

    .SaveAs "c:\trabajo actual\Ventas anuales", ppSaveAsPresentation

    .Export "c:\trabajo actual", "png", 0.5, 0.5

End With

En este ejemplo se exporta la diapositiva tres de la presentación activa al disco en el formato de gráficos JPEG. La diapositiva se guarda como "Diapositiva 3 de Ventas anuales.jpg".

With Application.ActivePresentation.Slides(3)

    .Export "c:\mis documentos\Formato gráfico\Diapositiva 3 de Ventas anuales", "JPG"

End With


Propiedad LastSlideViewed

Devuelve un objeto Slide que representa la diapositiva que aparece inmediatamente antes de la diapositiva actual en la vista de presentación con diapositivas especificada.


Ejemplo de la propiedad LastSlideViewed

Este ejemplo le lleva a la diapositiva que aparece inmediatamente antes de la diapositiva actual en la ventana uno de la presentación con diapositivas.

With SlideShowWindows(1).View

    .GotoSlide .LastSlideViewed.SlideIndex

End With


ejes X, Y, Z

Las tres líneas perpendiculares entre sí que se utilizan para ubicar un punto en un sistema de coordenadas cartesiano. Tenga en cuenta que en la capa de dibujo de Microsoft Office, el eje X cruza el documento en sentido horizontal, el eje Y en sentido vertical y el eje Z es perpendicular al plano del documento, proyectándose hacia usted.


Método Regroup

Vuelve a unir el grupo al que pertenecía anteriormente el intervalo de formas especificado. Devuelve las formas reagrupadas como un único objeto Shape.

Sintaxis

expresión.Regroup

expresión   Requerida. Expresión que devuelve un objeto ShapeRange.

Comentarios

El método Regroup sólo restaura el grupo de la primera forma previamente agrupada que encuentra en el conjunto ShapeRange especificado. Por tanto, si el intervalo de formas especificado contiene formas que antes pertenecían a grupos diferentes, sólo se restaurará uno de los grupos.

Tenga en cuenta que, debido a que un grupo de formas se considera una sola forma, al agruparlas y desagruparlas, se cambia el número de elementos del conjunto Shapes y se cambian los números de índice de los elementos que siguen a los que se han visto afectados del conjunto.


Ejemplo del método Regroup

En este ejemplo se reagrupan las formas de la selección en la ventana activa. Si las formas no se han agrupado y desagrupado antes, el ejemplo no será válido.

ActiveWindow.Selection.ShapeRange.Regroup


Propiedad CropBottom

Devuelve o establece el número de puntos que se recortan de la parte inferior de la imagen u objeto OLE especificados. Single de Lectura/Escritura.

Nota   El recorte se calcula con respecto al tamaño original de la imagen. Por ejemplo, si se inserta una imagen que originalmente tiene un alto de 100 puntos, se cambia la escala de manera que tenga un alto de 200 puntos y, a continuación, se establece la propiedad CropBottom como 50, se recortarán 100 puntos, y no 50, de la parte inferior de la imagen.


Ejemplo de la propiedad CropBottom

En este ejemplo se recortan 20 puntos de la parte inferior de la forma tres de miDocumento. Para que el ejemplo tenga validez, la forma tres debe ser una imagen o un objeto OLE.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes(3).PictureFormat.CropBottom = 20

En este ejemplo se recorta el porcentaje definido por el usuario en la parte inferior de la forma especificada, independientemente de si se le ha aplicado una escala a la forma o no. Para que el ejemplo tenga validez, la forma seleccionada debe ser una imagen o un objeto OLE.

porcentaje = InputBox("¿Qué porcentaje desea recortar de la parte inferior de la imagen?")

Set formaARecortar = ActiveWindow.Selection.ShapeRange(1)

With formaARecortar.Duplicate

    .ScaleHeight 1, True

    origenAlto = .Height

    .Delete

End With

puntoRecorte = origenAlto * porcentaje / 100

formaARecortar.PictureFormat.CropBottom = puntoRecorte


Propiedad CropLeft

Devuelve o establece el número de puntos que se recortan de la parte izquierda de la imagen u objeto OLE especificados. Single de Lectura/Escritura.

Nota   El recorte se calcula con respecto al tamaño original de la imagen. Por ejemplo, si se inserta una imagen que originalmente tiene un ancho de 100 puntos, se cambia la escala de manera que tenga un ancho de 200 puntos y, a continuación, se establece la propiedad CropLeft como 50, se recortarán 100 puntos, y no 50, de la parte izquierda de la imagen.


Ejemplo de la propiedad CropLeft

En este ejemplo se recortan 20 puntos de la parte izquierda de la forma tres de miDocumento. Para que el ejemplo tenga validez, la forma tres debe ser una imagen o un objeto OLE.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes(3).PictureFormat.CropLeft = 20

En este ejemplo se recorta el porcentaje definido por el usuario en la parte izquierda de la forma especificada, independientemente de si se le ha aplicado una escala a la forma o no. Para que el ejemplo tenga validez, la forma seleccionada debe ser una imagen o un objeto OLE.

porcentaje = InputBox("¿Qué porcentaje desea recortar de la parte izquierda de la imagen?")

Set formaARecortar = ActiveWindow.Selection.ShapeRange(1)

With formaARecortar.Duplicate

    .ScaleWidth 1, True

    origenAncho = .Width

    .Delete

End With

puntoRecorte = origenAncho * porcentaje / 100

formaARecortar.PictureFormat.CropLeft = puntoRecorte


Propiedad CropRight

Devuelve o establece el número de puntos que se recortan de la parte derecha de la imagen u objeto OLE especificados. Single de Lectura/Escritura.

Nota   El recorte se calcula con respecto al tamaño original de la imagen. Por ejemplo, si se inserta una imagen que originalmente tiene un ancho de 100 puntos, se cambia la escala de manera que tenga un ancho de 200 puntos y, a continuación, se establece la propiedad CropRight como 50, se recortarán 100 puntos, y no 50, de la parte derecha de la imagen.


Ejemplo de la propiedad CropRight

En este ejemplo se recortan 20 puntos de la parte derecha de la forma tres de miDocumento. Para que el ejemplo tenga validez, la forma tres debe ser una imagen o un objeto OLE.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes(3).PictureFormat.CropRight = 20

En este ejemplo se recorta el porcentaje definido por el usuario en la parte derecha de la forma seleccionada, independientemente de si se le ha aplicado una escala a la forma o no. Para que el ejemplo tenga validez, la forma seleccionada debe ser una imagen o un objeto OLE.

porcentaje = InputBox("¿Qué porcentaje desea recortar de la parte derecha de la imagen?")

Set formaARecortar = ActiveWindow.Selection.ShapeRange(1)

With formaARecortar.Duplicate

    .ScaleWidth 1, True

    origenAncho = .Width

    .Delete

End With

puntoRecorte = origenAncho * porcentaje / 100

formaARecortar.PictureFormat.CropRight = puntoRecorte


Propiedad CropTop

Devuelve o establece el número de puntos que se recortan de la parte superior de la imagen u objeto OLE especificados. Single de Lectura/Escritura.

Nota   El recorte se calcula con respecto al tamaño original de la imagen. Por ejemplo, si se inserta una imagen que originalmente tiene un alto de 100 puntos, se cambia la escala de manera que tenga un alto de 200 puntos y, a continuación, se establece la propiedad CropTop como 50, se recortarán 100 puntos, y no 50, de la parte superior de la imagen.


Ejemplo de la propiedad CropTop

En este ejemplo se recortan 20 puntos de la parte superior de la forma tres de miDocumento. Para que el ejemplo tenga validez, la forma tres debe ser una imagen o un objeto OLE.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes(3).PictureFormat.CropTop = 20

En este ejemplo se recorta el porcentaje definido por el usuario en la parte superior de la forma especificada, independientemente de si se le ha aplicado una escala a la forma o no. Para que el ejemplo tenga validez, la forma seleccionada debe ser una imagen o un objeto OLE.

porcentaje = InputBox("¿Qué porcentaje desea recortar de la parte superior de la imagen?")

Set formaARecortar = ActiveWindow.Selection.ShapeRange(1)

With formaARecortar.Duplicate

    .ScaleHeight 1, True

    origenAlto = .Height

    .Delete

End With

puntoRecorte = origenAlto * porcentaje / 100

formaARecortar.PictureFormat.CropTop = puntoRecorte


Método Distribute

Distribuye uniformemente las formas del intervalo especificado. Puede especificar si desea distribuir las formas en sentido horizontal o vertical y si desea distribuirlas en toda la diapositiva o sólo en el espacio que ocupaban originalmente.

Sintaxis

expresión.Distribute(DistributeCmd, RelativeTo)

expresión   Requerida. Expresión que devuelve un objeto ShapeRange.

DistributeCmd   Long requerido. Especifica si las formas del intervalo deben distribuirse horizontal o verticalmente. Puede ser una de las siguientes constantes MsoDistributeCmd: msoDistributeHorizontally o msoDistributeVertically.

RelativeTo   Long requerido. True para distribuir las formas uniformemente en todo el espacio horizontal o vertical de la diapositiva. False para distribuirlas dentro del espacio horizontal o vertical que ocupaba originalmente el intervalo de formas.


Ejemplo del método Distribute

En este ejemplo se define un intervalo de formas que contiene todas las autoformas de miDocumento y, a continuación, se distribuyen horizontalmente las formas del intervalo.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    numFormas = .Count

    If numFormas > 1 Then

        numAutoformas = 0

        ReDim matrizAutoforma(1 To numFormas)

        For i = 1 To numFormas

            If .Item(i).Type = msoAutoShape Then

                numAutoformas = numAutoformas + 1

                matrizAutoforma(numAutoformas) = .Item(i).Name

            End If

        Next

        If numAutoformas > 1 Then

            ReDim Preserve matrizAutoforma(1 To numAutoformas)

            Set comoIntervalo = .Range(matrizAutoforma)

            comoIntervalo.Distribute msoDistributeHorizontally, False

        End If

    End If

End With


Método Add

Agrega un objeto a un conjunto. Seleccione uno de los siguientes objetos para ver la descripción detallada del método Add de dicho objeto.

AddIns

ColorSchemes

ExtraColors

NamedSlideShows

Presentations

PrintRanges

Slides

TabStops

Tags


Propiedad Hyperlink

Devuelve un objeto Hyperlink que representa el hipervínculo de la forma especificada. Para que el hipervínculo esté activo durante la presentación con diapositivas, la propiedad Action debe establecerse como ppActionHyperlink. Es de sólo lectura.


Ejemplo de la propiedad Hyperlink

En este ejemplo se establece que la forma uno de la diapositiva uno de la presentación activa salte al sitio Web de Microsoft cuando se haga clic en la forma durante una presentación con diapositivas.

With ActivePresentation.Slides(1).Shapes(1).ActionSettings(ppMouseClick)

    .Action = ppActionHyperlink

    .Hyperlink.Address = "http://www.microsoft.com"

End With


Propiedad Address

Devuelve o establece la dirección del documento de destino. String de Lectura/Escritura.


Ejemplo de la propiedad Address

En este ejemplo se comprueba si en miDocumento hay un hipervínculo con el sitio Web de Microsoft.

For Each f In miDocumento.Hyperlinks

    If f.Address = "http://www.microsoft.com" Then

        MsgBox "Hay un vínculo a la página principal de Microsoft"

    End If

Next


Propiedad SubAddress

Devuelve o establece la posición del documento que está asociada al hipervínculo especificado, como un marcador en un documento de Word, un rango en una hoja de cálculo de Microsoft Excel o una diapositiva en una presentación de PowerPoint. String de Lectura/Escritura.


Ejemplo de la propiedad SubAddress

En este ejemplo se establece que la forma uno de la diapositiva uno de la presentación activa salte a la diapositiva "Último trimestre" de Últimas cifras.ppt cuando se haga clic en la forma durante una presentación con diapositivas.

With ActivePresentation.Slides(1).Shapes(1).ActionSettings(ppMouseClick)

    .Action = ppActionHyperlink

    With .Hyperlink

        .Address = = "c:\ventas\últimas cifras.ppt"

        .SubAddress = "último trimestre"

    End With

End With

En este ejemplo se establece que la forma uno de la diapositiva uno de la presentación activa salte al rango A1:B10 de Últimas.xls cuando se haga clic en la forma durante una presentación con diapositivas.

With ActivePresentation.Slides(1).Shapes(1).ActionSettings(ppMouseClick)

    .Action = ppActionHyperlink

    With .Hyperlink

        .Address = = "c:\ventas\últimas.xls"

        .SubAddress = "A1:B10"

    End With

End With


Método Item

Devuelve un único componente de un conjunto. Dependiendo del conjunto, se utiliza un número de índice, un nombre o una constante integrada para especificar el componente que desea devolver.

Item es el componente predeterminado de un conjunto. Por ejemplo, las dos líneas de códigos siguientes son equivalentes:

ActivePresentation.Slides.Item(1)

ActivePresentation.Slides(1)

Para obtener más información acerca de cómo devolver un único componente de un conjunto, vea Devolver un objeto de un conjunto

Para obtener información específica acerca del método Item de un conjunto determinado, seleccione el nombre en la siguiente lista.

ActionSettigns AddIns ColorSchemes DocumentWindows ExtraColors Fonts GroupShapes Hyperlinks NamedSlideShows ObjectVerbs Placeholders Presentations	PrintRanges RulerLevels ShapeNodes ShapeRange Shapes SlideRange Slides SlideShowWindows TabStops Tags TextStyleLevels
Comentarios

En general, el método Item devuelve un objeto cuyo nombre es la forma singular del conjunto al que se aplica el método. Por ejemplo, el método Item del conjunto Shapes devuelve un objeto Shape. Las excepciones a esta regla se encuentran en la siguiente tabla:

Objeto	Devuelve el tipo de método Item
ExtraColors	Long
GroupShapes	Shape
ObjectVerbs	String
Placeholders	Shape
ShapeRange	Shape
SlideRange	Slide
Tags	String


Método Item (varios conjuntos)

Devuelve un único componente de un conjunto.

Sintaxis

expresión.Item(Index)

expresión   Requerida. Expresión que devuelve un conjunto AddIns, Fonts, GroupShapes, Hyperlinks, NamedSlideShows, Presentations, ShapeNodes, ShapeRange, Shapes, SlideRange o Slides.

Index   Variant requerida. Nombre o número de índice del componente del conjunto que se va a devolver.


Método Item (varios conjuntos)

Devuelve un único componente de un conjunto.

Sintaxis

expresión.Item(Index)

expresión   Requerida. Expresión que devuelve un conjunto ColorSchemes, DocumentWindows, Placeholders, PrintRanges, RulerLevels, SlideShowWindows o TabStops.

Index   Long requerido. Número de índice del componente del conjunto que se va a devolver.


Método Item (conjunto ActionSettings)

Devuelve un único componente de un conjunto de configuración de la acción.

Sintaxis

expresión.Item(Index)

expresión   Requerida. Expresión que devuelve un conjunto ActionSettings.

Index   Long requerido. Especifica qué valor de los dos siguientes debe devolverse: la configuración de la acción para cuando el puntero del mouse (ratón) se sitúa encima de la forma especificada o la configuración de la acción para cuando el usuario haga clic en la forma. Puede ser una de las siguientes constantes PpMouseActivation: ppMouseClick o ppMouseOver.


Método Item (conjunto TextStyleLevels)

Devuelve un único componente del conjunto de niveles de estilo de texto.

Sintaxis

expresión.Item(Level)

expresión   Requerida. Una expresión que devuelve un conjunto TextStyleLevels.

Level   Long requerido. Nivel que se devolverá del conjunto. Puede ser un entero del 1 al 5.


Método Item (conjunto TextStyles)

Devuelve un único componente del conjunto de estilos de texto.

Sintaxis

expresión.Item(Index)

expresión   Requerida. Expresión que devuelve un conjunto TextStyles.

Index   Long requerido. Estilo que se devolverá del conjunto. Puede ser una de las siguientes constantes PpTextStyleType: ppBodyStyle, ppDefaultStyle o ppTitleStyle.


Método Item (objeto Tags)

Devuelve un rótulo del objeto Tags.

Sintaxis

expresión.Item(Name)

expresión   Requerida. Expresión que devuelve un objeto Tags.

Name   String requerida. Nombre del componente del conjunto que se va a devolver.


Método Item (conjunto ExtraColors)

Devuelve un valor Long que representa uno de los colores adicionales de la presentación.

Sintaxis

expresión.Item(Index)

expresión   Requerida. Expresión que devuelve un conjunto ExtraColors.

Index   Long requerido. Número de índice del color adicional que se va a devolver.


Método Item (conjunto ObjectVerbs)

Devuelve un valor String que representa uno de los verbos OLE del objeto OLE especificado.

Sintaxis

expresión.Item(Index)

expresión   Requerida. Expresión que devuelve un conjunto ObjectVerbs.

Index   Long requerido. Número de índice del verbo que se va a devolver.


Ejemplo del método Item

En este ejemplo se establece como rojo el color de fondo de la forma "Rectángulo 1" de la diapositiva uno de la presentación activa.

ActivePresentation.Slides.Item(1).Shapes.Item("rectángulo 1").Fill _

    .ForeColor.RGB = RGB(128, 0, 0)

En este ejemplo se establece que la forma tres de la diapositiva uno reproduzca el sonido de aplausos cuando se haga clic en ella durante una presentación con diapositivas, y se especifica que su color se invierta momentáneamente siempre que se sitúe el puntero del mouse (ratón) encima de ella durante una presentación con diapositivas.

With ActivePresentation.Slides.Item(1).Shapes.Item(3).ActionSettings.Item(ppMouseClick)

    .SoundEffect.Name = "ovacion.wav"

    .AnimateAction = True

End With

En este ejemplo se establece la sangría de la primera línea y la sangría francesa del nivel de esquema uno del texto principal en el patrón de diapositivas de la presentación activa.

With ActivePresentation.SlideMaster.TextStyles.Item(ppBodyStyle)

    With .Ruler.Levels.Item(1) ' establece la sangría para el nivel 1

        .FirstMargin = 9

        .LeftMargin = 54

    End With

End With

En este ejemplo se ocultan todas las diapositivas de la presentación activa que no tengan el valor "este" para el rótulo "región".

For Each s In ActivePresentation.Slides

    If s.Tags.Item("región") <> "este" Then

        s.SlideShowTransition.Hidden = True

    End If

Next


Propiedad BeginArrowheadLength

Devuelve o establece la longitud de la punta de flecha al comienzo de la línea especificada. Puede ser una de las siguientes constantes MsoArrowheadLength: msoArrowheadLengthMedium, msoArrowheadLengthMixed, msoArrowheadLong o msoArrowheadShort. Long de Lectura/Escritura.


Ejemplo de la propiedad BeginArrowheadLength

Este ejemplo agrega una línea a miDocumento. Hay una elipse corta y estrecha en el punto de inicio de la línea y un triángulo largo y ancho en el punto final.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddLine(100, 100, 200, 300).Line

    .BeginArrowheadLength = msoArrowheadShort

    .BeginArrowheadStyle = msoArrowheadOval

    .BeginArrowheadWidth = msoArrowheadNarrow

    .EndArrowheadLength = msoArrowheadLong

    .EndArrowheadStyle = msoArrowheadTriangle

    .EndArrowheadWidth = msoArrowheadWide

End With


Propiedad BeginArrowheadStyle

Devuelve o establece el estilo de la punta de flecha al comienzo de la línea especificada. Puede ser una de las siguientes constantes MsoArrowheadStyle: msoArrowheadDiamond, msoArrowheadNone, msoArrowheadOpen, msoArrowheadOval, msoArrowheadStealth, msoArrowheadStyleMixed o msoArrowheadTriangle. Long de Lectura/Escritura.


Ejemplo de la propiedad BeginArrowheadStyle

Este ejemplo agrega una línea a miDocumento. Hay una elipse corta y estrecha en el punto de inicio de la línea y un triángulo largo y ancho en el punto final.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddLine(100, 100, 200, 300).Line

    .BeginArrowheadLength = msoArrowheadShort

    .BeginArrowheadStyle = msoArrowheadOval

    .BeginArrowheadWidth = msoArrowheadNarrow

    .EndArrowheadLength = msoArrowheadLong

    .EndArrowheadStyle = msoArrowheadTriangle

    .EndArrowheadWidth = msoArrowheadWide

End With


Propiedad BeginArrowheadWidth

Devuelve o establece el ancho de la punta de flecha al comienzo de la línea especificada. Puede ser una de las siguientes constantes MsoArrowheadWidth: msoArrowheadNarrow, msoArrowheadWide, msoArrowheadWidthMedium o msoArrowheadWidthMixed. Long de Lectura/Escritura.


Ejemplo de la propiedad BeginArrowheadWidth

Este ejemplo agrega una línea a miDocumento. Hay una elipse corta y estrecha en el punto de inicio de la línea y un triángulo largo y ancho en el punto final.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddLine(100, 100, 200, 300).Line

    .BeginArrowheadLength = msoArrowheadShort

    .BeginArrowheadStyle = msoArrowheadOval

    .BeginArrowheadWidth = msoArrowheadNarrow

    .EndArrowheadLength = msoArrowheadLong

    .EndArrowheadStyle = msoArrowheadTriangle

    .EndArrowheadWidth = msoArrowheadWide

End With


Propiedad DashStyle

Devuelve o establece el estilo de línea para la línea especificada. Puede ser una de las siguientes constantes MsoLineDashStyle: msoLineDash, msoLineDashDot, msoLineDashDotDot, msoLineDashStyleMixed, msoLineLongDash, msoLineLongDashDot, msoLineRoundDot, msoLineSolid o msoLineSquareDot. Long de Lectura/Escritura.


Ejemplo de la propiedad DashStyle

Este ejemplo agrega una línea discontinua azul a miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddLine(10, 10, 250, 250).Line

    .DashStyle = msoLineDashDotDot

    .ForeColor.RGB = RGB(50, 0, 128)

End With


Propiedad EndArrowheadLength

Devuelve o establece la longitud de la punta de flecha al final de la línea especificada. Puede ser una de las siguientes constantes MsoArrowheadLength: msoArrowheadLengthMedium, msoArrowheadLengthMixed, msoArrowheadLong o msoArrowheadShort. Long de Lectura/Escritura.


Ejemplo de la propiedad EndArrowheadLength

Este ejemplo agrega una línea a miDocumento. Hay una elipse corta y estrecha en el punto de inicio de la línea y un triángulo largo y ancho en el punto final.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddLine(100, 100, 200, 300).Line

    .BeginArrowheadLength = msoArrowheadShort

    .BeginArrowheadStyle = msoArrowheadOval

    .BeginArrowheadWidth = msoArrowheadNarrow

    .EndArrowheadLength = msoArrowheadLong

    .EndArrowheadStyle = msoArrowheadTriangle

    .EndArrowheadWidth = msoArrowheadWide

End With


Propiedad EndArrowheadStyle

Devuelve o establece el estilo de la punta de flecha al final de la línea especificada. Puede ser una de las siguientes constantes MsoArrowheadStyle: msoArrowheadDiamond, msoArrowheadNone, msoArrowheadOpen, msoArrowheadOval, msoArrowheadStealth, msoArrowheadStyleMixed o msoArrowheadTriangle. Long de Lectura/Escritura.


Ejemplo de la propiedad EndArrowheadStyle

Este ejemplo agrega una línea a miDocumento. Hay una elipse corta y estrecha en el punto de inicio de la línea y un triángulo largo y ancho en el punto final.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddLine(100, 100, 200, 300).Line

    .BeginArrowheadLength = msoArrowheadShort

    .BeginArrowheadStyle = msoArrowheadOval

    .BeginArrowheadWidth = msoArrowheadNarrow

    .EndArrowheadLength = msoArrowheadLong

    .EndArrowheadStyle = msoArrowheadTriangle

    .EndArrowheadWidth = msoArrowheadWide

End With


Propiedad EndArrowheadWidth

Devuelve o establece el ancho de la punta de flecha al final de la línea especificada. Puede ser una de las siguientes constantes MsoArrowheadWidth: msoArrowheadNarrow, msoArrowheadWide, msoArrowheadWidthMedium o msoArrowheadWidthMixed. Long de Lectura/Escritura.


Ejemplo de la propiedad EndArrowheadWidth

Este ejemplo agrega una línea a miDocumento. Hay una elipse corta y estrecha en el punto de inicio de la línea y un triángulo largo y ancho en el punto final.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddLine(100, 100, 200, 300).Line

    .BeginArrowheadLength = msoArrowheadShort

    .BeginArrowheadStyle = msoArrowheadOval

    .BeginArrowheadWidth = msoArrowheadNarrow

    .EndArrowheadLength = msoArrowheadLong

    .EndArrowheadStyle = msoArrowheadTriangle

    .EndArrowheadWidth = msoArrowheadWide

End With


Propiedad Style

Devuelve o establece el estilo de línea. Puede ser una de las siguientes constantes MsoLineStyle: msoLineSingle, msoLineStyleMixed, msoLineThickBetweenThin, msoLineThickThin, msoLineThinThick o msoLineThinThin. Long de Lectura/Escritura.


Ejemplo de la propiedad Style

Este ejemplo agrega una línea compuesta gruesa de color azul a miDocumento. La línea compuesta consiste en una línea gruesa con una línea delgada a cada lado.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddLine(10, 10, 250, 250).Line

    .Style = msoLineThickBetweenThin

    .Weight = 8

    .ForeColor.RGB = RGB(0, 0, 255)

End With


Propiedad Weight

Devuelve o establece el grosor de la línea especificada, en puntos. Single de Lectura/Escritura.


Ejemplo de la propiedad Weight

Este ejemplo agrega una línea discontinua verde de dos puntos de grosor a miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddLine(10, 10, 250, 250).Line

    .DashStyle = msoLineDashDotDot

    .ForeColor.RGB = RGB(0, 255, 255)

    .Weight = 2

End With


Propiedad FileFind

Devuelve un objeto FileFind que puede utilizarse para buscar archivos usando una ruta de acceso absoluta o relativa. Es de sólo lectura.

Para obtener información acerca de cómo devolver un único componente de un conjunto, vea Devolver un objeto de un conjunto

Nota   Esta propiedad sólo está disponible en Microsoft Office para Macintosh.


Ejemplo de la propiedad FileFind

En este ejemplo se muestran los nombres de todos los archivos de la carpeta Mis documentos que comiencen por "Nuevo".

With Application.FileFind

    .FileName = "Nuevo*.*"

    .LookIn = "C:\Mis documentos"

    .Execute

    For i = 1 To .FoundFiles.Count

        MsgBox .FoundFiles(i)

    Next

End With


Método Add (objeto Tags)

Crea una marca para el objeto especificado. Si ya existe una, este método sustituirá el valor de marca existente.

Sintaxis

expresión.Add(Name, Value)

expresión   Requerida. Expresión que devuelve un objeto Tags.

Name   String requerida. Nombre de la nueva marca. Utilice "nombre" como cadena para que este argumento establezca el valor de la marca de nombre.

Value   String requerida. Valor de la nueva marca.

Comentarios

El objeto Tags contiene un par de cadenas para cada marca (su nombre y su valor). Utilice el método Add para crear una marca y utilice los métodos Name y Value para devolver los componentes de nombre y valor de una marca.


Ejemplo del método Add (objeto Tags)

En este ejemplo se agrega una marca denominada "Prioridad" y se establece el valor de la marca de nombre para la diapositiva uno de la presentación activa.

With Application.ActivePresentation.Slides(1).Tags

    .Add "Nombre", "Nuevas imágenes"   'Establece el valor de la marca de nombre

    .Add "Prioridad", "Baja"       'Agrega una marca de "Prioridad" con el valor "Baja"

End With


Método Colors

Devuelve un objeto RGBColor que representa un color de una combinación de colores.

Sintaxis

expresión.Colors(SchemeColor)

expresión   Requerida. Expresión que devuelve un objeto ColorScheme.

SchemeColor   Long requerida. Color individual de la combinación de colores especificada. Puede ser una de las siguientes constantes PpColorSchemeIndex: ppAccent1, ppAccent2, ppAccent3, ppBackground, ppFill, ppForeground, ppNotSchemeColor, ppShadow o ppTitle.


Ejemplo del método Colors

En este ejemplo se establece el color del título de las diapositivas uno y tres de la presentación activa.

Set misDiapositivas = ActivePresentation.Slides.Range(Array(1, 3))

misDiapositivas.ColorScheme.Colors(ppTitle).RGB = RGB(0, 255, 0)


Propiedad ColorScheme

Devuelve o establece el objeto ColorScheme que representa la combinación de colores de la diapositiva especificada, del intervalo de diapositivas o del patrón de diapositivas. Es de Lectura/Escritura.


Ejemplo de la propiedad ColorScheme

En este ejemplo se establece el verde como color del título de las diapositivas uno y tres de la presentación activa.

Set misDiapositivas = ActivePresentation.Slides.Range(Array(1, 3))

misDiapositivas.ColorScheme.Colors(ppTitle).RGB = RGB(0, 255, 0)


Propiedad DisplayComments

True si se muestran comentarios en la presentación especificada. Long de Lectura/Escritura.


Ejemplo de la propiedad DisplayComments

En este ejemplo se ocultan los comentarios de la presentación activa.

ActivePresentation.DisplayComments = False


Propiedad Presentation

Devuelve un objeto Presentation que representa la presentación en la que se creó la ventana de documento o la ventana de presentación con diapositivas especificadas. Es de sólo lectura.

Comentarios

Si la diapositiva que se muestra actualmente en la ventana de documento uno pertenece a una presentación incrustada, Windows(1).View.Slide.Parent devuelve la presentación incrustada y Windows(1).Presentation devuelve la presentación en la que se creó la ventana de documento uno.

Si la diapositiva que se muestra actualmente en la ventana de presentación con diapositivas uno pertenece a una presentación incrustada, SlideShowWindows(1).View.Slide.Parent devuelve la presentación incrustada y SlideShowWindows(1).Presentation devuelve la presentación en la que se abrió la ventana de presentación con diapositivas uno.


Ejemplo de la propiedad Presentation

Este ejemplo hace que la numeración de diapositivas de la presentación de la ventana uno continúe en la numeración de diapositivas de la presentación de la ventana dos.

firstPresSlides = Windows(1).Presentation.Slides.Count

Windows(2).Presentation.PageSetup.FirstSlideNumber = firstPresSlides + 1


Propiedad VBProject

Devuelve un objeto VBProject que representa el proyecto individual de Visual Basic para la presentación. Es de sólo lectura.


Ejemplo de la propiedad VBProject

En este ejemplo se cambia el nombre del proyecto de Visual Basic para la presentación activa.

ActivePresentation.VBProject.Name = "ProyectoPrueba"


Método EndNamedShow

Pasa de ejecutar una presentación con diapositivas personalizada o con nombre a ejecutar toda la presentación de la que la presentación personalizada es un subconjunto. Cuando la presentación con diapositivas avanza desde la diapositiva actual, la siguiente diapositiva que se muestra será la siguiente de toda la presentación, no la siguiente de la presentación con diapositivas personalizada.

Sintaxis

expresión.EndNamedShow

expresión   Requerida. Expresión que devuelve un objeto SlideShowView.


Ejemplo del método EndNamedShow

Si se está ejecutando una presentación con diapositivas personalizada en la ventana de presentación con diapositivas uno, en este ejemplo se vuelve a definir la presentación con diapositivas para que se incluyan todas las diapositivas de la presentación que se utilizó para seleccionar las diapositivas de la presentación personalizada.

SlideShowWindows(1).View.EndNamedShow


Método GotoNamedShow

Pasa a la presentación con diapositivas personalizada o con nombre que se especificó durante otra presentación con diapositivas. Cuando la presentación con diapositivas avanza desde la diapositiva actual, la siguiente diapositiva que se muestra será la siguiente de la presentación con diapositivas personalizada especificada, no la siguiente de la presentación con diapositivas actual.

Sintaxis

expresión.GotoNamedShow(SlideShowName)

expresión   Requerida. Expresión que devuelve un objeto SlideShowView.

SlideShowName   String requerida. Nombre de la presentación con diapositivas personalizada a la que desea pasar.


Ejemplo del método GotoNamedShow

En este ejemplo se vuelve a definir la presentación con diapositivas que se está ejecutando en la ventana de presentación con diapositivas uno para que sólo se incluyan las diapositivas de la presentación con diapositivas personalizada denominada "Presentación rápida".

SlideShowWindows(1).View.GotoNamedShow "Presentación rápida"


Método AddMediaObject

Crea un objeto de multimedia. Devuelve un objeto Shape que representa el nuevo objeto de multimedia.

Sintaxis

expresión.AddMediaObject(FileName, Left, Top, Width, Height)

expresión   Requerida. Expresión que devuelve un objeto Shapes.

FileName   String requerida. Archivo a partir del cual debe crearse el objeto de multimedia. Si no se especifica la ruta de acceso, se utilizará la carpeta de trabajo actual.

Left, Top   Single opcional. Posición, en puntos, de la esquina superior izquierda del cuadro límite del objeto de multimedia con respecto a la esquina superior izquierda del documento.

Width, Height   Single opcional. El ancho y alto del cuadro de límite del objeto de multimedia, en puntos.


Ejemplo del método AddMediaObject

En este ejemplo se agrega la película denominada "Clock.avi" a miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes.AddMediaObject FileName:="C:\WINNT\clock.avi", Left:=5, Top:=5, Width:=100, Height:=100


Método AddPlaceholder

Restaura un marcador de posición previamente eliminado en una diapositiva. Devuelve un objeto Shape que representa el marcador de posición restaurado.

Nota  Si no se ha eliminado previamente el marcador de posición especificado, este método produce un error.

Sintaxis

expresión.AddPlaceholder(Type, Left, Top, Width, Height)

expresión   Requerida. Expresión que devuelve un objeto Shapes.

Type   Long requerida. Tipo de marcador de posición que debe restaurarse. Puede ser una de las siguientes constantes PpPlaceholderType:

ppPlaceholderBitmap ppPlaceholderBody ppPlaceholderCenterTitle ppPlaceholderChart ppPlaceholderDate ppPlaceholderFooter ppPlaceholderHeader ppPlaceholderMediaClip ppPlaceholderMixed	ppPlaceholderObject ppPlaceholderOrgChart ppPlaceholderSlideNumber ppPlaceholderSubtitle ppPlaceholderTable ppPlaceholderTitle ppPlaceholderVerticalBody ppPlaceholderVerticalTitle
Los marcadores de posición del tipo ppPlaceholderVerticalBody o ppPlaceholderVerticalTitle sólo se encuentran en diapositivas con tipo de diseño ppLayoutVerticalText, ppLayoutClipArtAndVerticalText, ppLayoutVerticalTitleAndText o ppLayoutVerticalTitleAndTextOverChart. No pueden crearse diapositivas con ninguno de estos diseños desde la interfaz de usuario; deben crearse mediante programación utilizando el método Add o estableciendo la propiedad Layout de una diapositiva existente.

Left, Top   Single opcional. Posición, en puntos, de la esquina superior izquierda del marcador de posición con respecto a la esquina superior izquierda del documento.

Width, Height   Single opcional. Ancho y alto del marcador de posición, en puntos.

Comentarios

Si se ha eliminado de la diapositiva más de un marcador de posición de un tipo determinado, el método AddPlaceholder volverá a agregarlos a la diapositiva, de uno en uno, comenzando por el marcador de posición que tiene el número de índice original más bajo.


Ejemplo del método AddPlaceholder

Supongamos que la diapositiva dos de la presentación activa tenía originalmente en la parte superior un título que se ha eliminado, manualmente o con la siguiente línea de códigos.

ActivePresentation.Slides(2).Shapes.Placeholders(1).Delete

En este ejemplo se restaura el marcador de posición eliminado en la diapositiva dos.

Application.ActivePresentation.Slides(2).Shapes.AddPlaceholder ppPlaceholderTitle


Propiedad FarEastLineBreakControl

No se utiliza en la versión en español de PowerPoint.


Propiedad HangingPunctuation

No se utiliza en la versión en español de PowerPoint.


Propiedad HasTextFrame

True si la forma especificada tiene un marco de texto y puede, por tanto, contener texto. Long de sólo lectura.


Ejemplo de la propiedad HasTextFrame

En este ejemplo se extrae el texto de todas las formas de miDocumento que contengan marcos de texto y, a continuación, se restauran los nombres de dichas formas y el texto que contienen en una matriz.

Dim Matriz() As Variant

Dim númFormas, númAutoformas, i As Long

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    númFormas = .Count

    If númFormas > 1 Then

    númFormasTexto = 0

        ReDim Matriz(1 To 2, 1 To númFormas)

        For i = 1 To númFormas

            If .Item(i).HasTextFrame Then

                númFormasTexto = númFormasTexto + 1

                Matriz(númFormasTexto, 1) = .Item(i).Name

                Matriz(númFormasTexto, 2) = .Item(i).TextFrame.TextRange.Text

            End If

        Next

        ReDim Preserve Matriz(1 To 2, 1 To númAutoformas)

    End If

End With


Propiedad NameAscii

No se utiliza en la versión en español de PowerPoint.


Propiedad NameFarEast

No se utiliza en la versión en español de PowerPoint.


Propiedad PlaceholderFormat

Devuelve un objeto PlaceholderFormat que contiene las propiedades que son exclusivas de los marcadores de posición. Es de sólo lectura.


Ejemplo de la propiedad PlaceholderFormat

En este ejemplo se agrega texto al marcador de posición uno de la diapositiva uno de la presentación activa si éste es un marcador de posición de título horizontal.

With ActivePresentation.Slides(1).Shapes.Placeholders

    If .Count > 0 Then

        With .Item(1)

            Select Case .PlaceholderFormat.Type

                Case ppPlaceholderTitle

                    .TextFrame.TextRange = "Texto de título"

                Case ppPlaceholderCenterTitle

                    .TextFrame.TextRange = "Texto de título centrado"

                Case Else

                    MsgBox "No hay título horizontal en esta diapositiva"

            End Select

        End With

    End If

End With


Propiedad PrintFontsAsGraphics

True si las fuentes TrueType se imprimen como gráficos. Long de Lectura/Escritura.


Ejemplo de la propiedad PrintFontsAsGraphics

En este ejemplo se especifica que las fuentes TrueType de la presentación activa se impriman como gráficos.

ActivePresentation.PrintOptions.PrintFontsAsGraphics = True


Método SetShapesDefaultProperties

Aplica el formato de la forma especificada a la forma predeterminada. Las formas que se creen después de utilizar este método tendrán el formato que se les haya aplicado de manera predeterminada.

Sintaxis

expresión.SetShapesDefaultProperties

expresión   Requerida. Expresión que devuelve un objeto Shape.


Ejemplo del método SetShapesDefaultProperties

En este ejemplo se agrega un rectángulo a miDocumento, se da formato al relleno del rectángulo, se aplica el formato del rectángulo a la forma predeterminada y, a continuación, se agrega un rectángulo más pequeño al documento. El segundo rectángulo tendrá el mismo relleno que el primero.

Set midocumento = ActivePresentation.Slides(1)

With midocumento.Shapes

    With .AddShape(msoShapeRectangle, 5, 5, 80, 60)

        With .Fill

            .ForeColor.RGB = RGB(0, 0, 255)

            .BackColor.RGB = RGB(0, 204, 255)

            .Patterned msoPatternHorizontalBrick

        End With

        .SetShapesDefaultProperties     ' Establece el formato de las formas predeterminadas

    End With

    .AddShape msoShapeRectangle, 90, 90, 40, 30  ' La nueva forma tiene el formato predeterminado

End With


Propiedad SlideIDs

Devuelve una matriz de Id. de diapositivas para la presentación con diapositivas con nombre especificada. Variant de sólo lectura.


Ejemplo de la propiedad SlideIDs

En este ejemplo se agrega la diapositiva actual de la ventana activa a la presentación con diapositivas personalizada "Versión reducida de mercadotecnia". Recuerde que para guardar la versión modificada de la presentación con diapositivas personalizada, debe eliminar la presentación con diapositivas personalizada original y, a continuación, agregarla de nuevo utilizando el mismo nombre. También deberá tener en cuenta que si desea cambiar el tamaño a la matriz de una variable Variant, deberá declarar la variable explícitamente antes de intentar cambiar el tamaño de su matriz.

Dim IdDiapPresPersonal As Variant         ' NOTA - esta línea NO es opcional - no se puede cambiar el tamaño de la matriz sin ella

Dim presPersonalAExpandir As NamedSlideShow

presentaciónPersonalizada = "Versión reducida de mercadotecnia"

Set presPersonalAExpandir = ActivePresentation.SlideShowSettings. NamedSlideShows(customShowName)

diapositiva1 = ActiveWindow.View.Slide.SlideID

IdDiapPresPersonal = presPersonalAExpandir.SlideIDs

númDiapositivas = UBound(IdDiapPresPersonal)

ReDim Preserve IdDiapPresPersonal(númDiapositivas + 1)

IdDiapPresPersonal(númDiapositivas + 1) = diapositiva1

presPersonalAExpandir.Delete

ActivePresentation.SlideShowSettings. NamedSlideShow.Add presentaciónPersonalizada, IdDiapPresPersonal


Propiedad AutoRotateNumbers

No se utiliza en la versión en español de PowerPoint.


Propiedad FarEastLineBreakLevel

No se utiliza en la versión en español de PowerPoint.


Propiedad NoLineBreakAfter

No se utiliza en la versión en español de PowerPoint.


Propiedad NoLineBreakBefore

No se utiliza en la versión en español de PowerPoint.


Método UpdateLinks

Actualiza los objetos OLE vinculados de la presentación especificada.

Sintaxis

expresión.UpdateLinks

expresión   Requerida. Expresión que devuelve un objeto Presentation.


Ejemplo del método UpdateLinks

En este ejemplo se actualizan todos los vínculos OLE de la presentación activa.

ActivePresentation.UpdateLinks


Propiedad PrintColorType

Devuelve o establece la forma en que se imprimirá el documento especificado: en blanco y negro, en blanco y negro puros (método también conocido como contraste alto) o en color. Puede ser una de las siguientes constantes PpPrintColorType: ppPrintBlackAndWhite, ppPrintColor o ppPrintPureBlackAndWhite. El valor predeterminado lo establece la impresora. Long de Lectura/Escritura.


Ejemplo de la propiedad PrintColorType

En este ejemplo se imprimen las diapositivas de la presentación activa en color.

With Application.ActivePresentation

    .PrintOptions.PrintColorType = ppPrintColor

    .PrintOut

End With


Método Add (objeto de conjunto NamedSlideShows)

Crea una nueva presentación con diapositivas con nombre y la agrega al conjunto de presentaciones con diapositivas con nombre en la presentación especificada. Devuelve un objeto de NamedSlideShow que representa la nueva presentación con diapositivas con nombre.

Sintaxis

expresión.Add(Name, SafeArrayOfSlideIDs)

expresión   Requerida. Expresión que devuelve un objeto de NamedSlideShows.

Name   String requerida. Nombre de la presentación con diapositivas.

SafeArrayOfSlideIDs   Variant requerida. Contiene los Id. exclusivos de las diapositivas que se mostrarán en una presentación con diapositivas.

Comentarios

El nombre que se especifica al agregar una presentación con diapositivas con nombre es el que se utilizará como argumento en el método Run para ejecutar la presentación con diapositivas con nombre.


Ejemplo del método Add (objeto de conjunto NamedSlideShows)

Este ejemplo agrega a la presentación activa una presentación con diapositivas con nombre "Presentación rápida", que contiene las diapositivas 2, 7 y 9. Después, el ejemplo ejecutará la presentación con diapositivas.

Dim diaposRapidas(1 To 3) As Long

With ActivePresentation

    With .Slides

        diaposRapidas(1) = .Item(2).SlideID

        diaposRapidas(2) = .Item(7).SlideID

        diaposRapidas(3) = .Item(9).SlideID

    End With

    With .SlideShowSettings

        .NamedSlideShows.Add "Presentación rápida", qSlides

        .RangeType = ppShowNamedSlideShow

        .SlideShowName = " Presentación rápida "

        .Run

    End With

End With


Objeto Application

Representa la aplicación completa de Microsoft PowerPoint. El objeto Application contiene:

•	Valores y opciones a nivel de aplicación; por ejemplo, el nombre de la impresora activa.

•	Propiedades que devuelven objetos del nivel superior, como ActivePresentation, Windows, etc.

Uso del objeto Application

Utilice la propiedad Application para devolver el objeto Application. En el siguiente ejemplo se aplica la propiedad Windows al objeto Application.

Application.Windows(2).Activate

En el siguiente ejemplo se crea un objeto Application de PowerPoint en otra aplicación, se inicia PowerPoint en caso de que todavía no se esté ejecutando y se abre una presentación denominada "Ex_a2a.ppt".

Set ppt = CreateObject("Application.Powerpoint.8")

ppt.Visible = True

ppt.Presentations.Open "c:\Mis documentos\ex_a2a.ppt"

Comentarios

Cuando se están escribiendo códigos que se ejecutarán desde PowerPoint, pueden utilizarse las siguientes propiedades del objeto Application sin el calificador de objeto: ActivePresentation, ActiveWindow, AddIns, Assistant, CommandBars, Presentations, SlideShowWindows, Windows. Por ejemplo, en lugar de escribir Application.ActiveWindow.Height = 200, puede escribir ActiveWindow.Height = 200.


Objeto BulletFormat

Representa el formato de viñetas.

Uso del objeto BulletFormat

Utilice la propiedad Bullet para devolver el objeto BulletFormat. En este ejemplo se establece el tamaño y el color de las viñetas de los párrafos de la forma dos de la diapositiva uno de la presentación activa.

With ActivePresentation.Slides(1).Shapes(2)

    With .TextFrame.TextRange.ParagraphFormat.Bullet

        .Visible = True

        .RelativeSize = 1.25

        .Character = 169

        With .Font

            .Color.RGB = RGB(255, 255, 0)

            .Name = "Symbol"

        End With

    End With

End With


Objeto de conjunto ColorSchemes

Conjunto de todos los objetos ColorScheme de la presentación especificada. Cada objeto ColorScheme representa una combinación de colores, formada por el conjunto de colores que se utilizan combinados en una diapositiva.

Uso del conjunto ColorSchemes

La propiedad ColorSchemes se utiliza para devolver el conjunto ColorSchemes. Utilice ColorSchemes(index), donde index es el número de índice de la combinación de colores, para devolver un único objeto ColorScheme. En el siguiente ejemplo se elimina la combinación de colores dos de la presentación activa.

ActivePresentation.ColorSchemes(2).Delete

Utilice el método Add para crear una nueva combinación de colores y agregarla al conjunto ColorSchemes. En el siguiente ejemplo, se agrega una combinación de colores a la presentación activa y se establece el color de título y el color de fondo de la combinación de colores: debido a que no se ha utilizado ningún argumento con el método Add, la combinación de colores agregada es, en principio, idéntica a la primera combinación de colores estándar de la presentación.

With ActivePresentation.ColorSchemes.Add

    .Colors(ppTitle).RGB = RGB(255, 0, 0)

    .Colors(ppBackground).RGB = RGB(128, 128, 0)

End With

Establezca la propiedad ColorScheme de un objeto Slide, SlideRange o Master para devolver la combinación de colores de una diapositiva, de un conjunto de diapositivas o de un patrón, respectivamente. En el siguiente ejemplo se establece la combinación de colores de todas las diapositivas de la presentación activa con la tercera combinación de colores de la presentación.

With ActivePresentation

    .Slides.Range.ColorScheme = .ColorSchemes(3)

End With


Objeto ColorScheme

Representa una combinación de colores, que consiste en un conjunto de ocho colores utilizados para los distintos elementos de una diapositiva, de una página de notas o de un documento, como el título o el fondo. Recuerde que las combinaciones de colores de las diapositivas, de las páginas de notas y de los documentos de una presentación pueden establecerse de forma independiente. Cada color está representado por un objeto RGBColor. El objeto ColorScheme es un componente del conjunto ColorSchemes. El conjunto ColorSchemes contiene todas las combinaciones de colores de una presentación.

Uso del objeto ColorScheme

En esta sección se describe cómo realizar las siguientes tareas:

•	Devolver un objeto ColorScheme del conjunto de todas las combinaciones de colores de la presentación

•	Devolver el objeto ColorScheme asociado a una diapositiva o a un patrón específicos

•	Devolver el color de un único elemento de la diapositiva desde un objeto ColorScheme

Devolver un objeto ColorScheme del conjunto de todas las combinaciones de colores de la presentación

Utilice ColorSchemes(index), donde index es el número de índice de la combinación de colores, para devolver un único objeto ColorScheme. En el siguiente ejemplo se elimina la combinación de colores dos de la presentación activa.

ActivePresentation.ColorSchemes(2).Delete

Devolver el objeto ColorScheme asociado a una diapositiva o patrón específicos

Establezca la propiedad ColorScheme de un objeto Slide, SlideRange o Master para devolver la combinación de colores de una diapositiva, de un conjunto de diapositivas o de un patrón, respectivamente. En el siguiente ejemplo se crea una combinación de colores creada a partir de la diapositiva actual, se agrega la nueva combinación de colores al conjunto de combinaciones de colores estándar de la presentación y se establece la combinación de colores del patrón de diapositivas con la nueva combinación de colores. Todas las diapositivas nuevas creadas a partir del patrón tendrán esta combinación de colores.

Set nuevaCombinación = ActiveWindow.View.Slide.ColorScheme

nuevaCombinación.Colors(ppTitle).RGB = RGB(0, 150, 250)

Set nuevaCombinaciónEstándar = ActivePresentation.ColorSchemes.Add(nuevaCombinación)

ActivePresentation.SlideMaster.ColorScheme = nuevaCombinaciónEstándar

Devolver el color de un solo elemento de diapositiva de un objeto ColorScheme

Utilice el método Colors para devolver un objeto RGBColor que representa el color de un único tipo de elemento de diapositiva. Puede establecer un objeto RGBColor con otro objeto RGBColor o puede utilizar la propiedad RGB para establecer o devolver el valor explícito de los componentes rojo, verde y azul (RGB) de un objeto RGBColor. En el siguiente ejemplo se establece el rojo como color de fondo de la combinación de colores uno y se establece el color de título con el definido para la combinación de colores dos.

With ActivePresentation.ColorSchemes

    .Item(1).Colors(ppBackground).RGB = RGB(255, 0, 0)

    .Item(1).Colors(ppTitle) = .Item(2).Colors(ppTitle)

End With


Objeto DocumentWindow

Representa una ventana de documento. El objeto DocumentWindow es un componente del conjunto DocumentWindows. El conjunto DocumentWindows contiene todas las ventanas de documento abiertas.

Uso del objeto DocumentWindow

Utilice Windows(index), donde index es el número de índice de la ventana de documento, para devolver un único objeto DocumentWindow. En el siguiente ejemplo se activa la ventana de documento dos.

Windows(2).Activate

Utilice la propiedad ActiveWindow para devolver la ventana activa del documento. En el siguiente ejemplo se maximiza la ventana activa.

ActiveWindow.WindowState = ppWindowMaximized

Utilice la propiedad Presentation para devolver la presentación que se está ejecutando actualmente en la ventana de documento especificada. Utilice la propiedad Selection para devolver la selección. Utilice la propiedad View para devolver la presentación de la ventana de documento especificada.


Objeto de conjunto DocumentWindows

Conjunto de todos los objetos DocumentWindow que están actualmente abiertos en PowerPoint. En este conjunto no se incluyen ventanas abiertas de presentaciones con diapositivas, que se incluyen en el conjunto SlideShowWindows.

Uso del conjunto DocumentWindows

Utilice la propiedad Windows para devolver el conjunto DocumentWindows. En el siguiente ejemplo se organizan en mosaico las ventanas de documento abiertas.

Windows.Arrange ppArrangeTiled

Utilice el método NewWindow para crear una ventana de documento y agregarla al conjunto DocumentWindows. En el siguiente ejemplo se crea una nueva ventana para la presentación activa.

ActivePresentation.NewWindow

Utilice Windows(index), donde index es el número de índice de la ventana, para devolver un único objeto DocumentWindow. En el siguiente ejemplo se cierra la ventana de documento dos.

Windows(2).Close


Objeto ExtraColors

Representa los colores adicionales de una presentación. El objeto puede contener un máximo de ocho colores, cada uno de los cuales está representado por un valor de los componentes rojo, verde y azul (RGB).

Uso del objeto ExtraColors

Utilice la propiedad ExtraColors para devolver el objeto ExtraColors. Utilice ExtraColors(index), donde index es el número de índice del color adicional, para devolver el valor de los componentes rojo, verde y azul (RGB) de un único color adicional. En el siguiente ejemplo se agrega un rectángulo a la diapositiva uno de la presentación activa y se establece el color de fondo del relleno con el primer color adicional. Si no se ha definido al menos un color adicional para la presentación, este ejemplo no será válido.

With ActivePresentation

    Set rect = .Slides(1).Shapes.AddShape(msoShapeRectangle, 50, 50, 100, 200)

    rect.Fill.ForeColor.RGB = .ExtraColors(1)

End With

Utilice el método Add para agregar un color adicional. En el siguiente ejemplo se agrega un color adicional a la presentación activa en el caso de que no se haya agregado todavía.

ActivePresentation.ExtraColors.Add RGB(69, 32, 155)


Objeto Font

Representa el formato de caracteres de un texto o de una viñeta. El objeto Font es un componente del conjunto Fonts. Este conjunto contiene todas las fuentes utilizadas en una presentación.

Uso del objeto Font

En esta sección se describe cómo realizar las siguientes tareas:

•	Devolver el objeto Font que representa los atributos de fuente de una viñeta especificada, un intervalo de texto especificado o todo el texto de un nivel de esquema especificado

•	Devolver un objeto Font del conjunto de todas las fuentes utilizadas en la presentación

Devolver el objeto Font que representa los atributos de fuente de una viñeta especificada, de un intervalo de texto especificado o del texto de un nivel del esquema especificado

Utilice la propiedad Font para devolver el objeto Font que representa los atributos de fuente de una viñeta, de un intervalo de texto o de un nivel de esquema especificados. En el siguiente ejemplo se establecen el texto del título de la diapositiva uno y las propiedades de fuente.

With ActivePresentation.Slides(1).Shapes.Title.TextFrame.TextRange

    .Text = "Café El Volcán"

    With .Font

        .Italic = True

        .Name = "Palatino"

        .Color.RGB = RGB(0, 0, 255)

    End With

End With

Devolver un objeto Font del conjunto de todas las fuentes utilizadas en la presentación

Utilice Fonts(index), donde index es el nombre o el número de índice de la fuente, para devolver un único objeto Font. En el siguiente ejemplo se comprueba si la fuente uno de la presentación activa está incrustada en la presentación.

If ActivePresentation.Fonts(1).Embedded = True Then MsgBox "La fuente 1 está incrustada"


Objeto HeaderFooter

Representa el encabezado, el pie de página, la fecha y la hora, el número de diapositiva o el número de página en una diapositiva o patrón. Todos los objetos HeaderFooter de una diapositiva o de un patrón están incluidos en un objeto HeadersFooters.

Uso del objeto HeaderFooter

Utilice una de las propiedades enumeradas en la siguiente tabla para devolver el objeto HeaderFooter.

Use esta propiedad	Para devolver
DateAndTime	Un objeto HeaderFooter que represente la fecha y la hora en la diapositiva.
Footer	Un objeto HeaderFooter que represente el pie de página de la diapositiva.
Header	Un objeto HeaderFooter que represente el encabezado de la diapositiva. Esto sólo se aplica a páginas de notas y documentos, no a diapositivas.
SlideNumber	Un objeto HeaderFooter que represente el número de diapositiva (en una diapositiva) o el número de página (en una página de notas o en un documento).
Nota   Los objetos HeaderFooter no están disponibles para objetos Slide que representen páginas de notas. El objeto HeaderFooter que representa un encabezado sólo está disponible para un patrón de notas o un patrón de documentos.

Pueden establecerse propiedades de objetos HeaderFooter para diapositivas individuales. En el siguiente ejemplo se establece el texto del pie de página de la diapositiva uno de la presentación activa.

ActivePresentation.Slides(1).HeadersFooters.Footer.Text = "Café El Volcán"

También puede establecer propiedades de objetos HeaderFooter para el patrón de diapositivas, patrón de títulos, patrón de notas o patrón de documentos a fin de que afecten a todas las diapositivas, las diapositivas de título, las páginas de notas o los documentos y los esquemas al mismo tiempo. En el siguiente ejemplo se establece el texto del pie de página del patrón de diapositivas de la presentación activa, se establece el formato de la fecha y la hora y se activa la presentación de números de diapositiva. Estos valores se aplicarán a todas las diapositivas que se basen en este patrón, que muestren gráficos del patrón y que no tengan el pie de página y la fecha y la hora establecidos individualmente.

Set EPdeMisDiapositivas = ActivePresentation.SlideMaster.HeadersFooters

With EPdeMisDiapositivas

    .Footer.Visible = True

    .Footer.Text = "Ventas regionales"

    .SlideNumber.Visible = True

    .DateAndTime.Visible = True

    .DateAndTime.UseFormat = True

    .DateAndTime.Format = ppDateTimeMdyy

End With

Para eliminar la información de encabezado y pie de página que se haya establecido por separado para las diapositivas y asegurarse de que todas ellas muestran la información de encabezado definida para el patrón de diapositivas, ejecute el siguiente código antes de realizar el ejemplo anterior.

For Each d In ActivePresentation.Slides

    d.DisplayMasterShapes = True

    d.HeadersFooters.Clear

Next


Objeto HeadersFooters

Contiene todos los objetos HeaderFooter de la diapositiva, de la página de notas, del documento o del patrón especificados. Cada objeto HeaderFooter representa un encabezado, un pie de página, una fecha y una hora o un número de diapositiva.

Nota   Los objetos HeaderFooter no están disponibles para objetos Slide que representen páginas de notas. El objeto HeaderFooter que representa un encabezado sólo está disponible para un patrón de notas o un patrón de documentos.

Uso del objeto HeaderFooters

Utilice la propiedad HeadersFooters para devolver el objeto HeadersFooters. Utilice la propiedad DateAndTime, Footer, Header o SlideNumber para devolver un objeto HeaderFooter. En el siguiente ejemplo se establece el texto del pie de página de la diapositiva uno de la presentación activa.

ActivePresentation.Slides(1).HeadersFooters.Footer.Text = "Café El Volcán"


Objeto Master

Representa un patrón de diapositivas, un patrón de títulos, un patrón de documentos o patrón de notas.

Uso del objeto Master

Para devolver un objeto Master, utilice la propiedad Master del objeto Slide o el conjunto SlideRange o use la propiedad HandoutMaster, NotesMaster, SlideMaster o TitleMaster del objeto Presentation. En este ejemplo se establece el relleno de fondo del patrón de diapositivas de la presentación activa.

ActivePresentation.SlideMaster.Background.Fill.PresetGradient msoGradientHorizontal, 1, msoGradientBrass

Para agregar un patrón de títulos a una presentación y devolver un objeto Master que represente al nuevo patrón de títulos, utilice el método AddTitleMaster. En el siguiente ejemplo se agrega un patrón de título a la presentación activa y se sitúa el marcador de posición de título a 10 puntos de la parte superior del patrón.

ActivePresentation.AddTitleMaster.Shapes.Title.Top = 10


Objeto NamedSlideShow

Representa una presentación con diapositivas personalizada, que es un subconjunto con nombre de diapositivas de una presentación. El objeto NamedSlideShow es un componente del conjunto NamedSlideShows. Este conjunto contiene todas las presentaciones con diapositivas con nombre de la presentación.

Uso del objeto NamedSlideShow

Utilice NamedSlideShows(index), donde index es el nombre o el número de índice de la presentación con diapositivas personalizada, para devolver un único objeto NamedSlideShow. En el siguiente ejemplo se elimina la presentación con diapositivas personalizada "Presentación rápida".

ActivePresentation.SlideShowSettings.NamedSlideShows("Presentación rápida").Delete

Utilice la propiedad SlideIDs para devolver una matriz que contenga los Id. exclusivos de todas las diapositivas de la presentación con diapositivas personalizada. En el siguiente ejemplo se muestran los Id. de las diapositivas de la presentación con diapositivas personalizada "Presentación rápida".

idMatriz = ActivePresentation.SlideShowSettings.NamedSlideShows("Presentación rápida").SlideIDs

For i = 1 To UBound(idMatriz)

    MsgBox idMatriz(i)

Next


Objeto de conjunto NamedSlideShows

Conjunto de todos los objetos NamedSlideShow de la presentación. Cada objeto NamedSlideShow representa una presentación con diapositivas personalizada.

Uso del conjunto NamedSlideShows

Utilice la propiedad NamedSlideShows para devolver el conjunto NamedSlideShows. Utilice NamedSlideShows(index), donde index es el nombre o el número de índice de la presentación con diapositivas personalizada, para devolver un único objeto NamedSlideShow. En el siguiente ejemplo se elimina la presentación con diapositivas personalizada "Presentación rápida".

ActivePresentation.SlideShowSettings.NamedSlideShows("Presentación rápida").Delete

Utilice el método Add para crear una nueva presentación con diapositivas y agregarla al conjunto NamedSlideShows. En el siguiente ejemplo se agrega a la presentación activa la presentación con diapositivas denominada "Presentación rápida", que contiene las diapositivas 2, 7 y 9. A continuación, se ejecuta esta presentación con diapositivas personalizada.

Dim diapositivasR(1 To 3) As Long

With ActivePresentation

    With .Slides

        diapositivasR(1) = .Item(2).SlideID

        diapositivasR(2) = .Item(7).SlideID

        diapositivasR(3) = .Item(9).SlideID

    End With

    With .SlideShowSettings

        .NamedSlideShows.Add "Presentación rápida", diapositivasR

        .RangeType = ppShowNamedSlideShow

        .SlideShowName = "Presentación rápida"

        .Run

    End With

End With


Objeto PageSetup

Contiene información acerca de la configuración de página de diapositivas, páginas de notas, documentos y esquemas de una presentación.

Uso del objeto PageSetup

Utilice la propiedad PageSetup para devolver el objeto PageSetup. En el siguiente ejemplo se establecen todas las diapositivas de la presentación activa con un ancho de 11 pulgadas y un alto de 8,5 pulgadas y se establece que la numeración de diapositivas de la presentación comience en 17.

With ActivePresentation.PageSetup

    .SlideWidth = 11 * 72

    .SlideHeight = 8.5 * 72

    .FirstSlideNumber = 17

End With


Objeto ParagraphFormat

Representa el formato de párrafo de un intervalo de texto.

Uso del objeto ParagraphFormat

Utilice la propiedad ParagraphFormat para devolver el objeto ParagraphFormat. En este ejemplo se alinean a la izquierda los párrafos de la forma dos de la diapositiva uno de la presentación activa.

ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange _

    .ParagraphFormat.Alignment = ppAlignLeft


Objeto de conjunto Placeholders

Conjunto de todos los objetos Shape que representan marcadores de posición en la diapositiva especificada. Cada objeto Shape del conjunto Placeholders representa un marcador de posición de texto, de gráficos, de tablas, de organigramas o de cualquier otro tipo de objeto. Si la diapositiva tiene título, éste es el primer marcador de posición del conjunto.

Uso del conjunto Placeholders

Utilice la propiedad Placeholders para devolver el conjunto Placeholders. Utilice Placeholders(index), donde index es el número de índice del marcador de posición, para devolver un objeto Shape que representa un único marcador de posición. Tenga en cuenta que para cualquier diapositiva que tenga título, Shapes.Title es equivalente a Shapes.Placeholders(1).En el siguiente ejemplo se agrega una nueva diapositiva con diseño de Lista con viñetas al principio de la presentación, se establece el texto del título y, a continuación, se agregan dos párrafos al marcador de posición del texto.

Set objF = ActivePresentation.Slides.Add(1, ppLayoutText).Shapes

objF.Title.TextFrame.TextRange.Text = "Éste es el texto del título"

objF.Placeholders(2).TextFrame.TextRange.Text = "Elemento 1" & Chr(13) & "Elemento 2"

Puede eliminar marcadores de posición individuales utilizando el método Delete y puede restaurarlos con el método AddPlaceholder, pero no puede agregar a una diapositiva más marcadores de posición de los que tenía cuando se creó. Para cambiar el número de marcadores de posición de una determinada diapositiva, establezca la propiedad Layout.


Objeto PlaceholderFormat

Contiene propiedades específicas que se aplican a los marcadores de posición, como el tipo.

Uso del objeto PlaceholderFormat

Utilice la propiedad PlaceholderFormat para devolver un objeto PlaceholderFormat. En este ejemplo se agrega texto al marcador de posición uno de la diapositiva uno de la presentación activa si dicho marcador existe y es un marcador de posición de título horizontal.

With ActivePresentation.Slides(1).Shapes.Placeholders

    If .Count > 0 Then

        With .Item(1)

            Select Case .PlaceholderFormat.Type

                Case ppPlaceholderTitle

                    .TextFrame.TextRange = "Texto del título"

                Case ppPlaceholderCenterTitle

                    .TextFrame.TextRange = "Texto del título centrado"

                Case Else

                    MsgBox "No hay ningún título horizontal en esta diapositiva"

            End Select

        End With

    End If

End With


marcadores de posición

Cuadros con diseño de puntos que aparecen en diapositivas que se acaban de crear. Estos cuadros hacen la función de marcadores de posición para objetos como títulos de diapositivas, texto, gráficos, tablas, organigramas e imágenes.


Objeto Presentation

Representa una presentación de PowerPoint. El objeto Presentation es un componente del conjunto Presentations. Este conjunto contiene todos los objetos Presentation que representan las presentaciones abiertas en PowerPoint.

Uso del objeto Presentation

En esta sección se describe cómo:

•	Devolver una presentación que se especifica por nombre o número de índice

•	Devolver la presentación de la ventana activa

•	Devolver la presentación de cualquier ventana de documento o ventana de presentación con diapositivas especificada

Devolver una presentación especificada por nombre o por número de índice

Utilice Presentations(index), donde index es el nombre o el número de índice de la presentación, para devolver un único objeto Presentation. El nombre de la presentación es el nombre de archivo, con o sin extensión, sin incluir la ruta de acceso. En el siguiente ejemplo se agrega una diapositiva al principio de la Presentación de muestra.

Presentations("Presentación de muestra").Slides.Add 1, 1

Tenga en cuenta que si hay varias presentaciones abiertas con el mismo nombre, se devuelve la primera presentación del conjunto que tenga el nombre especificado.

Devolver la presentación de la ventana activa

Utilice la propiedad ActivePresentation para devolver la presentación de la ventana activa. En el siguiente ejemplo se guarda la presentación activa.

ActivePresentation.Save

Tenga en cuenta que si una presentación incrustada está activa en el contexto, la propiedad ActivePresentation devuelve la presentación incrustada.

Devolver la presentación de cualquier ventana de documento o de presentación especificada

Utilice la propiedad Presentation para devolver la presentación que se encuentra en la ventana de documento o en la ventana de presentación con diapositivas especificada. En el siguiente ejemplo se muestra el nombre de la presentación con diapositivas que se está ejecutando en la ventana de presentación con diapositivas uno.

MsgBox SlideShowWindows(1).Presentation.Name


Objeto de conjunto Presentations

Conjunto de todos los objetos Presentation de PowerPoint. Cada objeto Presentation representa una presentación actualmente abierta en PowerPoint.

Uso del conjunto Presentations

Utilice la propiedad Presentations para devolver el conjunto Presentations. Utilice el método Add para crear una nueva presentación y agregarla al conjunto. En el siguiente ejemplo se crea una nueva presentación, se le agrega una diapositiva y, a continuación, se guarda.

Set nuevaPres = Presentations.Add(True)

nuevaPres.Slides.Add 1, 1

nuevaPres.SaveAs "Muestra"

Utilice Presentations(index), donde index es el nombre o el número de índice de la presentación, para devolver un único objeto Presentation. En el siguiente ejemplo se imprime la presentación uno.

Presentations(1).PrintOut

Utilice el método Open para abrir una presentación y agregarla al conjunto Presentations. En el siguiente ejemplo se abre el archivo Ventas.ppt como presentación de sólo lectura.

Presentations.Open FileName:="ventas.ppt", ReadOnly:=True

Comentarios

En el conjunto Presentations no se incluyen los complementos abiertos, que son un tipo especial de presentaciones ocultas. Sin embargo, se puede devolver un complemento abierto si se conoce su nombre de archivo. Por ejemplo, Presentations("carlos.ppa") devolverá el complemento abierto "Carlos.ppa" como objeto Presentation. Sin embargo, es aconsejable utilizar el conjunto AddIns para devolver los complementos abiertos.


Objeto PrintOptions

Contiene las opciones de impresión de una presentación.

Nota   Al especificar los argumentos opcionales From, To, Copies y Collate del método PrintOut se establecerán las propiedades correspondientes del objeto PrintOptions.

Uso del objeto PrintOptions

Utilice la propiedad PrintOptions para devolver el objeto PrintOptions. En el siguiente ejemplo se imprimen dos copias sin intercalar a color de todas las diapositivas, visibles u ocultas, de la presentación activa. También se ajusta cada una de ellas para que se adapten a la página impresa y se les aplica un marco con borde grueso.

With ActivePresentation

    With .PrintOptions

        .NumberOfCopies = 2

        .Collate = False

        .PrintColorType = ppPrintColor

        .PrintHiddenSlides = True

        .FitToPage = True

        .FrameSlides = True

        .OutputType = ppPrintOutputSlides

    End With

    .PrintOut

End With

Utilice la propiedad RangeType para especificar si desea imprimir toda la presentación o sólo una parte. Si sólo desea imprimir algunas diapositivas, establezca la propiedad RangeType como ppPrintSlideRange y utilice la propiedad Ranges para especificar las páginas que deben imprimirse. En el siguiente ejemplo se imprimen las diapositivas 1, 4, 5 y 6 de la presentación activa.

With ActivePresentation

    With .PrintOptions

        .RangeType = ppPrintSlideRange

        With .Ranges

            .Add 1, 1

            .Add 4, 6

        End With

    End With

    .PrintOut

End With


Objeto PrintRange

Representa el intervalo de diapositivas o páginas consecutivas que debe imprimirse. El objeto PrintRange es un componente del conjunto PrintRanges. El conjunto PrintRanges contiene todos los intervalos de impresión que se hayan definido para la presentación especificada.

Uso del objeto PrintRange

Utilice Ranges(index), donde index es el número de índice del intervalo de impresión, para devolver un único objeto PrintRange. En el siguiente ejemplo se muestra un mensaje que indica el primer número y el último número de diapositiva del intervalo de impresión uno de la presentación activa.

With ActivePresentation.PrintOptions.Ranges

    If .Count > 0 Then

        With .Item(1)

            MsgBox "El intervalo de impresión 1 comienza en la diapositiva " & .Start & _

                " y acaba en la diapositiva " & .End

        End With

    End If

End With

Utilice el método Add para crear un objeto PrintRange y agregarlo al conjunto PrintRanges. En el siguiente ejemplo se definen tres intervalos de impresión que representan la diapositiva 1, de la diapositiva 3 a la 5 y las diapositivas 8 y 9 de la presentación activa y, a continuación, se imprimen las diapositivas de dichos intervalos.

With ActivePresentation.PrintOptions

    .RangeType = ppPrintSlideRange

    With .Ranges

        .ClearAll

        .Add 1, 1

        .Add 3, 5

        .Add 8, 9

    End With

End With

ActivePresentation.PrintOut

Comentarios

Pueden establecerse intervalos de impresión en el conjunto PrintRanges independientemente del valor de RangeType; estos intervalos se mantendrán mientras esté cargada la presentación que los contiene. Los intervalos del conjunto PrintRanges se aplican si la propiedad RangeType se establece como ppPrintSlideRange.


Objeto de conjunto PrintRanges

Conjunto de todos los objetos PrintRange de la presentación especificada. Cada uno de los objetos PrintRange representa el intervalo de diapositivas o de páginas consecutivas que debe imprimirse.

Uso del conjunto PrintRanges

La propiedad Ranges se utiliza para devolver el conjunto PrintRanges. En el siguiente ejemplo se eliminan todos los intervalos de impresión anteriormente definidos para el conjunto de la presentación activa.

ActivePresentation.PrintOptions.Ranges.ClearAll

Utilice el método Add para crear un objeto PrintRange y agregarlo al conjunto PrintRanges. En el siguiente ejemplo se definen tres intervalos de impresión que representan la diapositiva 1, de la diapositiva 3 a la 5 y las diapositivas 8 y 9 de la presentación activa y, a continuación, se imprimen las diapositivas de dichos intervalos.

With ActivePresentation.PrintOptions

    .RangeType = ppPrintSlideRange

    With .Ranges

        .ClearAll

        .Add 1, 1

        .Add 3, 5

        .Add 8, 9

    End With

End With

ActivePresentation.PrintOut

Utilice Ranges(index), donde index es el número de índice del intervalo de impresión, para devolver un único objeto PrintRange. En el siguiente ejemplo se muestra un mensaje que indica el primer número y el último número de diapositiva del intervalo de impresión uno de la presentación activa.

With ActivePresentation.PrintOptions.Ranges

    If .Count > 0 Then

        With .Item(1)

            MsgBox "El intervalo de impresión 1 comienza en la diapositiva " & .Start & _

                " y acaba en la diapositiva " & .End

        End With

    End If

End With


Objeto ActionSetting

Contiene información acerca del modo en que reacciona el intervalo de texto o de formas especificado a las acciones del mouse (ratón) durante una presentación con diapositivas. El objeto ActionSetting es un componente del conjunto ActionSettings. El conjunto ActionSettings contiene un objeto ActionSetting que representa la reacción del objeto especificado cuando el usuario hace clic en él durante una presentación con diapositivas y un objeto ActionSetting que representa la reacción del objeto especificado cuando el usuario mueve el puntero del mouse por encima de él durante una presentación con diapositivas.

Uso del objeto ActionSetting

Utilice ActionSettings(index), donde index es ppMouseClick o ppMouseOver, para devolver un único objeto ActionSetting. En el siguiente ejemplo se establece como vínculo de Internet la acción de hacer clic del mouse para el texto de la tercera forma de la diapositiva uno de la presentación activa.

With ActivePresentation.Slides(1).Shapes(3).TextFrame.TextRange.ActionSettings(ppMouseClick)

    .Action = ppActionHyperLink

    .HyperLink.Address = "http://www.microsoft.com"

End With

Comentarios

Si ha establecido las propiedades del objeto ActionSetting y éstas no parecen tener efecto, asegúrese de haber establecido la propiedad Action con el valor correcto.


Objeto de conjunto ActionSettings

Conjunto que contiene los dos objetos ActionSetting de una forma o de un intervalo de texto. Uno de los objetos ActionSetting representa la reacción del objeto especificado cuando el usuario hace clic en él durante una presentación con diapositivas y el otro representa la reacción del objeto especificado cuando el usuario mueve el puntero del mouse (ratón) por encima de él durante una presentación con diapositivas.

Uso del conjunto ActionSettings

Utilice la propiedad ActionSettings para devolver el conjunto ActionSettings. Utilice ActionSettings(index), donde index es ppMouseClick o ppMouseOver, para devolver un único objeto ActionSetting. En el siguiente ejemplo se especifica la ejecución de la macro CalcularTotales siempre que se mueva el mouse por encima de la forma durante una presentación con diapositivas.

With ActivePresentation.Slides(1).Shapes(3).ActionSettings(ppMouseOver)

    .Action = ppActionRunMacro

    .Run = "CalcularTotales"

    .AnimateAction = True

End With


Objeto AddIn

Representa un complemento, tanto si está cargado como si no lo está. El objeto AddIn es un componente del conjunto AddIns. El conjunto AddIns contiene una lista de todos los complementos disponibles para Microsoft PowerPoint, independientemente de si están cargados o no lo están. Dicha lista corresponde a la lista de complementos que se muestran en el cuadro de diálogo Complementos (menú Herramientas).

Uso del objeto AddIn

Utilice AddIns(index), donde index es el título o número de índice del complemento, para devolver un único objeto AddIn. En el siguiente ejemplo se carga el complemento Mis herramientas.

AddIns("mis herramientas").Loaded = True

No debe confundirse el título del complemento, que aparece en el cuadro de diálogo Complementos, con su nombre, que es el nombre de archivo del complemento. El título del complemento debe escribirse tal como aparece en el cuadro de diálogo, aunque no importa que coincidan las mayúsculas y las minúsculas.

El número de índice representa la posición del complemento en el cuadro Complementos disponibles del cuadro de diálogo Complementos. En el siguiente ejemplo se muestran los nombres de todos los complementos actualmente cargados en PowerPoint.

For i = 1 To AddIns.Count

    If AddIns(i).Loaded Then MsgBox AddIns(i).Name

Next

Comentarios

Utilice el método Add para agregar un complemento a la lista de complementos disponibles. Sin embargo, tenga en cuenta que con este método no se carga el complemento. Para ello debe establecer el valor de la propiedad Loaded del complemento en True después de utilizar el método Add. Estas dos acciones pueden realizarse en un único paso, como se muestra en el siguiente ejemplo; tenga en cuenta que se utiliza el nombre y no el título del complemento con el método Add.

AddIns.Add("genérica.ppa").Loaded = True

Utilice Presentations(index), donde index es el nombre de archivo del complemento, no su título, para devolver la referencia a la presentación que corresponde al complemento cargado. Debe utilizarse el nombre de archivo porque los complementos cargados no suelen aparecer en el conjunto Presentations. En el siguiente ejemplo se establece la variable complementoPres de la presentación como Micomplemento.ppa.

Set complementoPres = Presentations("miComplemento.ppa")

En el siguiente ejemplo se establece la variable complementoPres de la presentación como complemento Mis herramientas.

Set complementoPres = Presentations(AddIns("mis herramientas").Name)


Objeto de conjunto AddIns

Conjunto de objetos AddIn que representa todos los complementos disponibles para Microsoft PowerPoint, independientemente de si están cargados o no. Dicha lista corresponde a la lista de complementos que se muestran en el cuadro de diálogo Complementos (menú Herramientas).

Uso del conjunto AddIns

Utilice el método AddIns para devolver el conjunto AddIns. En el siguiente ejemplo se muestran los nombres de todos los complementos actualmente cargados en PowerPoint.

For Each complemento In AddIns

    If complemento.Loaded Then MsgBox complemento.Name

Next

Utilice el método Add para agregar un complemento a la lista de complementos disponibles. El método Add agrega un complemento a la lista, pero no lo carga. Para ello, debe establecer el valor de la propiedad Loaded del complemento en True después de utilizar el método Add. Estas dos acciones pueden realizarse en un único paso, como se muestra en el siguiente ejemplo; tenga en cuenta que se utiliza el nombre y no el título del complemento con el método Add.

AddIns.Add("generico.ppa").Loaded = True

Utilice AddIns(index), donde index es el título o el número de índice del complemento, para devolver un único objeto AddIn. En el siguiente ejemplo se carga el complemento Mis herramientas.

AddIns("mis herramientas").Loaded = True

No debe confundirse el título del complemento, que aparece en el cuadro de diálogo Complementos, con su nombre, que es el nombre de archivo del complemento. El título del complemento debe escribirse tal como aparece en el cuadro de diálogo, aunque no importa que coincidan las mayúsculas y las minúsculas.


Objeto AnimationSettings

Representa los efectos especiales aplicados a la animación de la forma especificada durante una presentación con diapositivas.

Uso del objeto AnimationSettings

Utilice la propiedad AnimationSettings del objeto Shape para devolver el objeto AnimationSettings. En el siguiente ejemplo se agrega a la presentación activa una diapositiva que contiene un título y una lista de tres elementos; a continuación, se establece la animación de la lista por párrafos de primer nivel, que vuele desde la izquierda, que se atenúe con el color especificado tras la animación y que sus elementos se animen en orden inverso.

Set objDiap = ActivePresentation.Slides.Add(2, ppLayoutText).Objects

objDiap.Title.Text = "Tres primeras razones"

With objDiap.Placeholders(1)

    .Text = "Razón 1" & Chr(13) & "Razón 2" & Chr(13) & "Razón 3"

    With .AnimationSettings

        .TextLevelEffect = ppAnimateByFirstLevel

        .EntryEffect = ppEffectFlyFromLeft

        .AfterEffect = ppAfterEffectDim

        .DimColor.RGB = RGB(100, 120, 100)

        .AnimateTextInReverse = True

    End With

End With


Objeto de conjunto Fonts

Conjunto de todos los objetos Font de la presentación especificada. Cada objeto Font representa una fuente utilizada en la presentación.

Nota   Si desea establecer el formato de caracteres de una viñeta o de un intervalo de texto, utilice la propiedad Font para devolver el objeto Font de la viñeta o del intervalo de texto.

Uso del objeto Fonts

La propiedad Fonts se utiliza para devolver el conjunto Fonts. En el siguiente ejemplo se muestra el número de fuentes de la presentación activa.

MsgBox ActivePresentation.Fonts.Count

Utilice Fonts(index), donde index es el nombre o el número de índice de la fuente, para devolver un único objeto Font. En el siguiente ejemplo se comprueba si la fuente uno de la presentación activa está incrustada en la presentación.

If ActivePresentation.Fonts(1).Embedded = True Then MsgBox "Fuente 1 incrustada"


Objeto HyperLink

Representa un hipervínculo asociado a la forma. Puede utilizarse un hipervínculo para saltar a un sitio de Internet o de una intranet, a otro archivo o a una diapositiva de la presentación activa. El objeto HyperLink es un componente del conjunto HyperLinks. El conjunto HyperLinks contiene todos los hipervínculos de una diapositiva o de un patrón.

Uso del objeto HyperLink

Utilice la propiedad Hyperlink para devolver el hipervínculo de una forma. Una forma puede tener asignados dos hipervínculos diferentes: uno que se activa cuando el usuario hace clic en la forma durante una presentación con diapositivas y otro que se activa cuando el usuario pasa el mouse (ratón) por encima de la forma durante una presentación con diapositivas. Para que el hipervínculo esté activo durante la presentación con diapositivas, el valor de la propiedad Action debe establecerse en ppActionHyperlink. En el siguiente ejemplo se establece como vínculo de Internet la acción de hacer clic del mouse para la forma tres de la diapositiva uno de la presentación activa.

With ActivePresentation.Slides(1).Shapes(3).ActionSettings(ppMouseClick)

    .Action = ppActionHyperLink

    .HyperLink.Address = "http://www.microsoft.com"

End With

Una diapositiva puede tener más de un hipervínculo. Utilice Hyperlinks(index), donde index es el número del hipervínculo, para devolver un único objeto Hyperlink. En el siguiente ejemplo se agrega un método abreviado al documento de destino para el hipervínculo de acción de hacer clic del mouse de la forma tres con la carpeta Favoritos.

ActivePresentation.Slides(1).Shapes(3).ActionSettings(ppMouseClick).HyperLink.AddToFavorites


Objeto de conjunto HyperLinks

Conjunto de todos los objetos HyperLink de la diapositiva o patrón.

Uso del conjunto HyperLinks

Utilice la propiedad HyperLinks para devolver el conjunto HyperLinks. En el siguiente ejemplo se actualizan todos los hipervínculos de la diapositiva uno de la presentación activa que tengan la dirección especificada.

For Each hv In ActivePresentation.Slides(1).Hyperlinks

    If hv.Name = "c:\trabajo actual\ventas.ppt" Then hv.Name = "c:\nuevo\ventasnuevas.ppt"

Next

Utilice la propiedad Hyperlink para crear un hipervínculo y agregarlo al conjunto Hyperlinks. En el siguiente ejemplo se establece un hipervínculo que se activará cuando el usuario haga clic en la forma tres de la diapositiva uno de la presentación activa durante una presentación con diapositivas y se agrega el nuevo hipervínculo al conjunto. Tenga en cuenta que si la forma tres ya tiene definido un hipervínculo de acción de hacer clic del mouse (ratón), en el siguiente ejemplo se eliminará dicho hipervínculo del conjunto al agregar el nuevo, para que no cambie el número de elementos del conjunto Hyperlinks.

With ActivePresentation.Slides(1).Shapes(3).ActionSettings(ppMouseClick)

    .Action = ppActionHyperLink

    .HyperLink.Address = "http://www.microsoft.com"

End With


Objeto PlaySettings

Contiene información acerca de cómo se reproducirá el clip de multimedia durante una presentación con diapositivas.

Uso del objeto PlaySettings

Utilice la propiedad PlaySettings para devolver el objeto PlaySettings. En el siguiente ejemplo se inserta la película "Clock.avi" en la diapositiva uno de la presentación activa, se establece que se reproduzca automáticamente después de la animación o de la transición de diapositivas anterior, se especifica que la presentación con diapositivas continúe mientras se reproduce la película y se especifica que el objeto de la película se oculte durante una presentación con diapositivas cuando se esté reproduciendo.

Set películaReloj = ActivePresentation.Slides(1).Shapes.AddMediaObject _

    FileName:="C:\WINNT\clock.avi", Left:=20, Top:=20

With películaReloj.AnimationSettings.PlaySettings

    .PlayOnEntry = True

    .PauseAnimation = False

    .HideWhileNotPlaying = True

End With


Objeto SlideShowSettings

Representa la configuración de la presentación con diapositivas.

Uso del objeto SlideShowSettings

Utilice la propiedad SlideShowSettings para devolver el objeto SlideShowSettings. En la primera sección del siguiente ejemplo se establece que todas las diapositivas de la presentación activa avancen automáticamente después de cinco segundos. En la segunda sección se establece que la presentación comience en la diapositiva dos, que termine en la diapositiva cuatro, que avancen las diapositivas utilizando los intervalos establecidos en la primera sección y que se ejecuten mientras se repita el ciclo hasta que el usuario presione la tecla ESC. Por último, se ejecuta la presentación con diapositivas.

For Each d In ActivePresentation.Slides

    With d.SlideShowTransition

        .AdvanceOnTime = True

        .AdvanceTime = 5

    End With

Next

With ActivePresentation.SlideShowSettings

    .StartingSlide = 2

    .EndingSlide = 4

    .AdvanceMode = ppSlideShowUseSlideTimings

    .LoopUntilStopped = True

    .Run

End With


Objeto SlideShowView

Representa la vista en una ventana de presentación con diapositivas.

Uso del objeto SlideShowView

Utilice la propiedad View del objeto SlideShowWindow para devolver el objeto SlideShowView. En el siguiente ejemplo se establece que la ventana de presentación con diapositivas uno muestre la primera diapositiva de la presentación.

SlideShowWindows(1).View.First

Utilice el método Run del objeto SlideShowSettings para crear un objeto SlideShowWindow y después utilice la propiedad View para devolver el objeto SlideShowView que contiene la ventana. En el siguiente ejemplo se ejecuta una presentación con diapositivas de la presentación activa, se cambia el puntero a una pluma y se establece el rojo como color de la pluma para la presentación con diapositivas.

With ActivePresentation.SlideShowSettings.Run.View

    .PointerColor.RGB = RGB(255, 0, 0)

    .PointerType = ppSlideShowPointerPen

End With


vista

Forma de mostrar el contenido de una presentación y proporcionar al usuario el modo de interactuar con ella.


Objeto Tags

Representa una marca o una propiedad personalizada que puede crearse para una forma, una diapositiva o una presentación. Cada objeto Tags contiene el nombre de una propiedad personalizada y un valor para dicha propiedad.

Cree marcas cuando desee trabajar selectivamente con componentes concretos de un conjunto, basándose en un atributo que todavía no esté representado por una propiedad integrada. Por ejemplo, si desea asignar categorías a las diapositivas de una presentación dependiendo de la región del país a la que hagan referencia, puede crear una marca Región y asignar un valor Región a cada diapositiva de la presentación. Después puede realizar selectivamente una operación sólo en algunas diapositivas dependiendo de los valores de sus marcas de Región, como ocultar todas las diapositivas con el valor de Región "Este".

Uso del objeto Tags

Utilice el método Add para agregar una marca al objeto. En el siguiente ejemplo se agrega una marca con el nombre "Región" y con el valor "Este" a la diapositiva uno de la presentación activa.

ActivePresentation.Slides(1).Tags.Add "Región", "Este"

Utilice Tags(index), donde index es el nombre de una marca, para devolver el valor de la marca. En el siguiente ejemplo se comprueba el valor de la marca Región de todas las diapositivas de la presentación activa y se ocultan las diapositivas que no hagan referencia a la Costa este (denotada por el valor "Este").

For Each f In ActivePresentation.Slides

    If f.Tags("región") <> "Este" Then

        f.SlideShowTransition.Hidden = True

    End If

Next


Objeto View

Representa la vista de modificación actual de la ventana de documento especificada.

Uso del objeto View

Utilice la propiedad View del objeto DocumentWindow para devolver el objeto View. En el siguiente ejemplo se establece el tamaño de la ventana uno y, a continuación, se establece el valor de zoom de manera que se ajuste al nuevo tamaño de ventana.

With Windows(1)

    .Height = 200

    .Width = 250

    .View.ZoomToFit = True

End With

Nota   El objeto View puede representar cualquiera de las vistas de la ventana de documento: vista Diapositiva, vista Diseño, vista Clasificador de diapositivas, vista Página de notas, vista Patrón de diapositivas, vista Patrón de documento o vista Patrón de notas. Algunas propiedades y métodos del objeto View sólo funcionan en algunas vistas. Si intenta utilizar una propiedad o un método que no corresponda a ningún objeto View, se producirá un error.


Objeto RGBColor

Representa un solo color de una combinación de colores.

Uso del objeto RGBColor

Utilice el método Colors para devolver un objeto RGBColor. Puede establecer un objeto RGBColor con otro objeto RGBColor, o bien puede utilizar la propiedad RGB para establecer o devolver el valor de los componentes rojo, verde y azul explícito de un objeto RGBColor. En el siguiente ejemplo se establece el rojo como color de fondo de la combinación de colores uno de la presentación activa y se establece el color de título con el definido para la combinación de colores dos.

With ActivePresentation.ColorSchemes

    .Item(1).Colors(ppBackground).RGB = RGB(255, 0, 0)

    .Item(1).Colors(ppTitle) = .Item(2).Colors(ppTitle)

End With


Objeto Ruler

Representa la regla del texto de la forma especificada o de todo el texto del estilo de texto especificado. Contiene tabulaciones y valores de sangría para los niveles de esquema del texto.

Uso del objeto Ruler

Utilice la propiedad Ruler del objeto TextFrame para devolver el objeto Ruler que representa la regla del texto de la forma especificada. Utilice la propiedad TabStops para devolver el objeto TabStops que contiene las tabulaciones de la regla. Utilice la propiedad Levels para devolver el objeto RulerLevels que contiene los valores de sangría de los niveles de esquema del texto. En el siguiente ejemplo se establece una tabulación alineada a la izquierda de 2 pulgadas (144 puntos) y una sangría francesa para el texto del objeto dos de la diapositiva uno de la presentación activa.

With ActivePresentation.Slides(1).Shapes(2).TextFrame.Ruler

    .TabStops.Add ppTabStopLeft, 144

    .Levels(1).FirstMargin = 0

    .Levels(1).LeftMargin = 36

End With

Utilice la propiedad Ruler del objeto TextStyle para devolver el objeto Ruler que representa la regla de uno de los cuatro estilos de texto definidos: texto de título, texto principal, texto de notas o texto predeterminado. En el siguiente ejemplo se establece la sangría de la primera línea y la sangría francesa del nivel de esquema uno del texto principal del patrón de diapositivas de la presentación activa.

With ActivePresentation.SlideMaster.TextStyles(ppBodyStyle).Ruler.Levels(1)

    .FirstMargin = 9

    .LeftMargin = 54

End With


Objeto RulerLevel

Contiene la información de sangría de primera línea y la sangría francesa de un nivel de esquema. El objeto RulerLevel es un componente del conjunto RulerLevels. El conjunto RulerLevels contiene un objeto RulerLevel para cada uno de los niveles de esquema disponibles.

Uso del objeto RulerLevel

Utilice RulerLevels(index), donde index es el nivel de esquema, para devolver un único objeto RulerLevel. En el siguiente ejemplo se establece la sangría de la primera línea y la sangría francesa del nivel de esquema uno del texto principal del patrón de diapositivas de la presentación activa.

With ActivePresentation.SlideMaster.TextStyles(ppBodyStyle).Ruler.Levels(1)

    .FirstMargin = 9

    .LeftMargin = 54

End With

En el siguiente ejemplo se establece la sangría de la primera línea y la sangría francesa del nivel de esquema uno de la forma dos de la presentación activa.

With ActivePresentation.SlideMaster.Shapes(2).TextFrame.Ruler.Levels(1)

    .FirstMargin = 9

    .LeftMargin = 54

End With


Objeto de conjunto RulerLevels

Conjunto de todos los objetos RulerLevel de la regla especificada. Cada objeto RulerLevel representa la sangría de primera línea y la sangría izquierda del texto en un nivel de esquema determinado. Este conjunto siempre contiene cinco componentes, uno para cada nivel de esquema disponible.

Uso del conjunto RulerLevels

Utilice la propiedad Levels para devolver el conjunto RulerLevels. En el siguiente ejemplo se establecen los márgenes de los cinco niveles de esquema del cuerpo principal de la presentación activa.

With ActivePresentation.SlideMaster.TextStyles(ppBodyStyle).Ruler

    .Levels(1).FirstMargin = 0

    .Levels(1).LeftMargin = 40

    .Levels(2).FirstMargin = 60

    .Levels(2).LeftMargin = 100

    .Levels(3).FirstMargin = 120

    .Levels(3).LeftMargin = 160

    .Levels(4).FirstMargin = 180

    .Levels(4).LeftMargin = 220

    .Levels(5).FirstMargin = 240

    .Levels(5).LeftMargin = 280

End With


Objeto Selection

Representa la selección de la ventana de documento especificada.

Uso del objeto Selection

Utilice la propiedad Selection para devolver el objeto Selection. En el siguiente ejemplo se envía una copia de la selección de la ventana actual al Portapapeles.

ActiveWindow.Selection.Copy

Utilice la propiedad ShapeRange, SlideRange o TextRange para devolver un intervalo de formas, de diapositivas o de texto de la selección.

En el siguiente ejemplo se establece el color de primer plano del relleno de las formas seleccionadas en la ventana dos, suponiendo que haya al menos una forma seleccionada y que todas las formas seleccionadas tengan un relleno cuyo color de primer plano pueda establecerse.

With Windows(2).Selection.ShapeRange.Fill

    .Visible = True

    .ForeColor.RGB = RGB(255, 0, 255)

End With

En el siguiente ejemplo se establece el texto de la primera forma seleccionada de la ventana dos, si dicha forma contiene un marco de texto.

With Windows(2).Selection.ShapeRange(1)

    If .HasTextFrame Then

        .TextFrame.TextRange = "Selección actual"

    End If

End With

En el siguiente ejemplo se corta el texto seleccionado de la ventana activa y se envía al Portapapeles.

ActiveWindow.Selection.TextRange.Cut

En el siguiente ejemplo se duplican todas las diapositivas de la selección; si está en vista Diapositiva, se duplica la diapositiva actual.

ActiveWindow.Selection.SlideRange.Duplicate

Si no seleccionó ningún objeto del tipo adecuado al utilizar una de estas propiedades; por ejemplo, si se utiliza la propiedad ShapeRange cuando no hay formas seleccionadas, se producirá un error. Utilice la propiedad Type para determinar el tipo de objeto u objetos seleccionado. En el siguiente ejemplo se comprueba si la selección contiene diapositivas. Si es así, en este ejemplo se establece el fondo de la primera diapositiva de la selección.

With Windows(2).Selection

    If .Type = ppSelectionSlides Then

        With .SlideRange(1)

            .FollowMasterBackground = False

            .Background.Fill.PresetGradient msoGradientHorizontal, 1, msoGradientLateSunset

        End With

    End If

End With

Comentarios

El objeto Selection se elimina siempre que se cambien las diapositivas en una vista Diapositiva activa; la propiedad Type devolverá ppSelectionNone.


Objeto Slide

Representa una diapositiva. El objeto Slide es un componente del conjunto Slides. Este conjunto contiene todos los objetos Slide de una presentación.

Nota   No se preocupe si intenta devolver una referencia a una única diapositiva y obtiene un objeto SlideRange. Una diapositiva puede estar representada por un objeto Slide o por un conjunto SlideRange que contenga sólo una diapositiva, en función de cómo devuelva la referencia a la diapositiva. Por ejemplo, si crea y devuelve la referencia a una diapositiva utilizando el método Add, la diapositiva estará representada por un objeto Slide. Sin embargo, si crea y devuelve la referencia a una diapositiva utilizando el método Duplicate, la diapositiva estará representada por un objeto SlideRange que contiene una única diapositiva. Debido a que todas las propiedades y todos los métodos que se pueden aplicar a un objeto Slide también se pueden aplicar a un conjunto SlideRange que contenga una única diapositiva, puede trabajar con la diapositiva que se devuelva de la misma manera, independientemente de si está representada por un objeto Slide o por un conjunto SlideRange.

Uso del objeto Slide

En esta sección se describe cómo:

•	Devolver una diapositiva que se especifica por nombre, número de índice o número de identificación de diapositiva

•	Devolver una diapositiva de la selección

•	Devolver la diapositiva que se muestra en cualquier ventana de documento o ventana de presentación con diapositivas que especifique

•	Crear una nueva diapositiva

Devolver una diapositiva especificada por nombre, por número de índice o por número de identificación de la diapositiva

Utilice Slides(index), donde index es el nombre o el número de índice de la diapositiva, o bien use Slides.FindBySlideID(index), donde index es el número de identificación de la diapositiva, para devolver un único objeto Slide. En el siguiente ejemplo se establece el diseño de la diapositiva uno de la presentación activa.

ActivePresentation.Slides(1).Layout = ppLayoutTitle

En el siguiente ejemplo se establece el diseño de la diapositiva con número de identificación 265.

ActivePresentation.Slides.FindBySlideID(265).Layout = ppLayoutTitle

Devolver una diapositiva especificada por nombre, por número de índice o por número de identificación de la diapositiva

Utilice Slides(index), donde index es el nombre o el número de índice de la diapositiva, o bien use Slides.FindBySlideID(index), donde index es el número de identificación de la diapositiva, para devolver un único objeto Slide. En el siguiente ejemplo se establece el diseño de la diapositiva uno de la presentación activa.

ActivePresentation.Slides(1).Layout = ppLayoutTitle

Devolver una diapositiva de la selección

Utilice Selection.SlideRange(index), donde index es el nombre o el número de índice de la diapositiva de la selección, para devolver un único objeto Slide. En el siguiente ejemplo se establece el diseño de la diapositiva uno de la selección de la ventana activa, suponiendo que haya al menos una diapositiva seleccionada.

ActiveWindow.Selection.SlideRange(1).Layout = ppLayoutTitle

Si sólo hay una diapositiva seleccionada, puede utilizar Selection.SlideRange para devolver un conjunto SlideRange que contenga la diapositiva seleccionada. En el siguiente ejemplo se establece el diseño de la diapositiva uno de la selección actual de la ventana activa, suponiendo que haya una diapositiva seleccionada exactamente.

ActiveWindow.Selection.SlideRange.Layout = ppLayoutTitle

Devolver la diapositiva que aparece actualmente en la ventana de documento o de presentación de diapositivas especificada

Utilice la propiedad Slide para devolver la diapositiva que se muestra actualmente en la ventana de documento o en la ventana de presentación con diapositivas especificada. En el siguiente ejemplo se copia la diapositiva que se muestra actualmente en la ventana de documento dos en el Portapapeles.

Windows(2).View.Slide.Copy

Crear una diapositiva

Utilice el método Add para crear una nueva diapositiva y agregarla a la presentación. En el siguiente ejemplo se agrega una diapositiva de título al principio de la presentación activa.

ActivePresentation.Slides.Add 1, ppLayoutTitleOnly


Objeto de conjunto SlideRange

Conjunto que representa una página de notas o un intervalo de diapositivas, es decir, el conjunto de diapositivas que contiene como mínimo una diapositiva y como máximo todas las diapositivas de la presentación. En un intervalo de diapositivas pueden incluirse las diapositivas que se desee, eligiendo de entre todas las de la presentación o de la selección. Por ejemplo, puede crear un conjunto SlideRange que contenga las tres primeras diapositivas de una presentación, todas las diapositivas seleccionadas en la presentación o todas las diapositivas de título de la presentación.

Uso del conjunto SlideRange

En esta sección se describe cómo:

•	Devolver un conjunto de diapositivas que se especifique por nombre o número de índice

•	Devolver todas o algunas de las diapositivas seleccionadas en una presentación

•	Devolver una página de notas

•	Aplicar propiedades y métodos a un intervalo de diapositivas

Devolver un conjunto de diapositivas especificado por nombre o por número de índice

Utilice Slides.Range(index), donde index es el nombre o el número de índice de la diapositiva o bien una matriz que contenga nombres o números de índice de diapositivas, para devolver un conjunto SlideRange que represente el grupo de diapositivas de una presentación. Puede utilizar la función Array para crear una matriz de nombres y números de índice. En el siguiente ejemplo se establece el relleno de fondo de las diapositivas uno y tres de la presentación activa.

With ActivePresentation.Slides.Range(Array(1, 3))

    .FollowMasterBackground = False

    .Background.Fill.PresetGradient msoGradientHorizontal, 1, msoGradientLateSunset

End With

En el siguiente ejemplo se establece el relleno de fondo de las diapositivas "Intro" y "Gráfico grande" de la presentación activa. Tenga en cuenta que, cuando se crean las diapositivas se les asignan automáticamente nombres con el formato Diapositivan, donde n es un número entero. Para asignarles nombres más descriptivos, utilice la propiedad Name.

With ActivePresentation.Slides.Range(Array("Intro", "Gráfico grande"))

    .FollowMasterBackground = False

    .Background.Fill.PresetGradient msoGradientHorizontal, 1, msoGradientLateSunset

End With

Aunque puede utilizar el método Range para devolver cualquier número de diapositivas, es más fácil utilizar el método Item si sólo desea devolver un único elemento del conjunto SlideRange. Por ejemplo, Slides(1) es más fácil que Slides.Range(1).

Devolver todas o algunas de las diapositivas seleccionadas de un presentación

Utilice la propiedad SlideRange del objeto Selection para devolver todas las diapositivas de la selección. En el siguiente ejemplo se establece el relleno de fondo de todas las diapositivas seleccionadas de la ventana uno, suponiendo que haya al menos una diapositiva seleccionada.

With Windows(1).Selection.SlideRange

    .FollowMasterBackground = False

    .Background.Fill.PresetGradient msoGradientHorizontal, 1, msoGradientLateSunset

End With

Utilice Selection.SlideRange(index), donde index es el nombre o el número de índice, para devolver una única diapositiva de la selección. En el siguiente ejemplo se establece el relleno de fondo de la diapositiva dos del conjunto de diapositivas seleccionadas en la ventana uno, suponiendo que haya al menos dos diapositivas seleccionadas.

With Windows(1).Selection.SlideRange(2)

    .FollowMasterBackground = False

    .Background.Fill.PresetGradient msoGradientHorizontal, 1, msoGradientLateSunset

End With

Devolver una página de notas

Utilice la propiedad NotesPage para devolver un conjunto SlideRange que represente la página de notas especificada. En el siguiente ejemplo se inserta texto en el marcador de posición dos, área de notas, de la página de notas de la diapositiva uno de la presentación activa.

ActivePresentation.Slides(1).NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.InsertAfter "Texto agregado"

Aplicar una propiedad o un método a un intervalo de diapositivas

De la misma forma en que se puede trabajar con varias diapositivas al mismo tiempo en la interfaz de usuario seleccionándolas y aplicándoles un comando, se puede trabajar con varias diapositivas al mismo tiempo mediante programación creando un conjunto SlideRange y aplicándole propiedades y métodos. Por otra parte, del mismo modo que algunos comandos de la interfaz de usuario que funcionan con diapositivas individuales no son válidos cuando se seleccionan varias diapositivas, algunas propiedades y métodos que funcionan con un objeto Slide o con un conjunto SlideRange que contiene sólo una diapositiva fallará si se aplican a un conjunto SlideRange que contiene varias. En general, si no puede realizarse manualmente una acción cuando se seleccionan varias diapositivas, como devolver cada una de las formas de una de las diapositivas, no podrá realizarse mediante programación utilizando un conjunto SlideRange que contenga varias diapositivas.

Para aquellas operaciones que funcionen en la interfaz de usuario tanto si hay una como varias diapositivas seleccionadas, operaciones como copiar la selección en el Portapapeles o establecer el relleno de fondo de la diapositiva, las propiedades y los métodos asociados funcionarán en un conjunto SlideRange que contenga varias diapositivas. A continuación, se presentan las instrucciones generales del funcionamiento de estas propiedades y de estos métodos cuando se aplican a varias diapositivas.

•	Aplicar un método a un conjunto SlideRange es equivalente a aplicarlo a todos los objetos Slide de dicho intervalo como grupo.

•	Establecer el valor de una propiedad del conjunto SlideRange es equivalente a establecer el valor de la propiedad de cada una de las diapositivas de dicho intervalo; para una propiedad que toma un tipo enumerado, establecer el valor como "Mixed" no tiene ningún efecto.

•	Una propiedad del conjunto SlideRange que devuelve un tipo enumerado devuelve el valor de la propiedad de una diapositiva del conjunto si todas las diapositivas de éste tienen el mismo valor para dicha propiedad. Si no todas las diapositivas del conjunto tienen el mismo valor para la propiedad, ésta devuelve el valor "Mixed".

•	Una propiedad del conjunto SlideRange que devuelve un tipo de información simple (como Long, Single o String) devuelve el valor de la propiedad de una diapositiva si todas las diapositivas del conjunto tienen el mismo valor para dicha propiedad. Si no todas las diapositivas del conjunto tienen el mismo valor para la propiedad, ésta devolverá  – 2 o se producirá un error. Por ejemplo, si se utiliza la propiedad Name de un objeto SlideRange con varias diapositivas, se producirá un error porque cada diapositiva tiene un valor diferente para la propiedad Name.

•	Algunas propiedades de formato de las diapositivas no se establecen con las propiedades y los métodos que se aplican directamente al conjunto SlideRange, sino con las propiedades y métodos que se aplican al objeto que contiene el conjunto SlideRange, como el objeto ColorScheme. Si el objeto contenido representa operaciones que pueden realizarse con varios objetos en la interfaz de usuario, podrá devolver el objeto de un conjunto SlideRange que contenga más de una diapositiva; sus propiedades y sus métodos seguirán las normas anteriores. Por ejemplo, puede utilizarse la propiedad ColorScheme para devolver el objeto ColorScheme que representa las combinaciones de colores utilizadas en todas las diapositivas del conjunto SlideRange especificado. Si se establecen propiedades para el objeto ColorScheme también se establecerán para los objetos ColorScheme de todas las diapositivas individuales del conjunto SlideRange.


Objeto de conjunto Slides

Conjunto de todos los objetos Slide de la presentación especificada.

Uso del conjunto Slides

En esta sección se describe cómo:

•	Crear una diapositiva y agregarla al conjunto

•	Devolver una diapositiva que se especifica por nombre, número de índice o número de identificación de diapositiva

•	Devolver un subconjunto de las diapositivas de la presentación

•	Aplicar una propiedad o un método a todas las diapositivas de la presentación al mismo tiempo

Crear una diapositiva y agregarla a un conjunto

Utilice la propiedad Slides para devolver un conjunto Slides. Utilice el método Add para crear una nueva diapositiva y agregarla al conjunto. En el siguiente ejemplo se agrega una nueva diapositiva a la presentación activa.

ActivePresentation.Slides.Add 2, ppLayoutBlank

Devolver una sola diapositiva especificada por nombre, por número de índice o por número de identificación de la diapositiva

Utilice Slides(index), donde index es el nombre o el número de índice de la diapositiva, o bien use Slides.FindBySlideID(index), donde index es el número de identificación de la diapositiva, para devolver un único objeto Slide. En el siguiente ejemplo se establece el diseño de la diapositiva uno de la presentación activa.

ActivePresentation.Slides(1).Layout = ppLayoutTitle

En el siguiente ejemplo se establece el diseño de la diapositiva "Gráfico grande" de la presentación activa. Tenga en cuenta que, cuando se crean las diapositivas se les asignan automáticamente nombres con el formato Diapositivan, donde n es un entero. Para asignarles nombres más descriptivos, utilice la propiedad Name.

ActivePresentation.Slides("Gráfico grande").Layout = ppLayoutTitle

Devolver un subconjunto de diapositivas de la presentación

Utilice Slides.Range(index), donde index es el nombre o el número de índice de la diapositiva o una matriz de números de índice o de nombres de diapositiva, para devolver un objeto SlideRange que representa un subconjunto del conjunto Slides. En el siguiente ejemplo se establece el relleno de fondo de las diapositivas uno y tres de la presentación activa.

With ActivePresentation.Slides.Range(Array(1, 3))

    .FollowMasterBackground = False

    .Background.Fill.PresetGradient msoGradientHorizontal, 1, msoGradientLateSunset

End With

Aplicar una propiedad o un método a todas las diapositivas de una presentación al mismo tiempo

Si desea realizar una acción que afecte a todas las diapositivas de la presentación al mismo tiempo, como eliminarlas todas o establecer una propiedad para cada una de ellas, utilice Slides.Range sin ningún argumento para crear un conjunto SlideRange que contenga todas las diapositivas del conjunto Slides y, a continuación, aplique la propiedad o el método correspondiente al conjunto SlideRange. En el siguiente ejemplo se establece el relleno de fondo de las diapositivas de la presentación activa.

With ActivePresentation.Slides.Range

    .FollowMasterBackground = False

    .Background.Fill.PresetGradient msoGradientHorizontal, 1, msoGradientLateSunset

End With


Objeto SlideShowTransition

Contiene información acerca del avance de la diapositiva especificada durante una presentación con diapositivas.

Uso del objeto SlideShowTransition

Utilice la propiedad SlideShowTransition para devolver el objeto SlideShowTransition. En el siguiente ejemplo se especifica la transición de Descubrir hacia abajo e izquierda rápidamente, acompañado del sonido Bass.wav, para la diapositiva uno de la presentación activa y se especifica que la diapositiva avance automáticamente cinco segundos después de la animación o de la transición de diapositivas anterior.

With ActivePresentation.Slides(1).SlideShowTransition

    .Speed = ppTransitionSpeedFast

    .EntryEffect = ppEffectStripsDownLeft

    .SoundEffect.ImportFromFile "c:\sndsys\bass.wav"

    .AdvanceOnTime = True

    .AdvanceTime = 5

End With

ActivePresentation.SlideShowSettings.AdvanceMode = _

    ppSlideShowUseSlideTimings


Objeto SlideShowWindow

Representa una ventana en la que se ejecuta una presentación con diapositivas. El objeto SlideShowWindow es un componente del conjunto SlideShowWindows. El conjunto SlideShowWindows contiene todas las ventanas de presentación con diapositivas abiertas.

Uso del objeto SlideShowWindow

Utilice SlideShowWindows(index), donde index es el número de índice de la ventana de presentación con diapositivas, para devolver un único objeto SlideShowWindow. En el siguiente ejemplo se activa la ventana de presentación con diapositivas dos.

SlideShowWindows(2).Activate

Utilice el método Run para crear una nueva ventana de presentación con diapositivas y devolver una referencia a ella. En el siguiente ejemplo se ejecuta una presentación con diapositivas de la presentación activa y se reduce el alto de la ventana de presentación con diapositivas lo suficiente como para que se vea la barra de tareas, para pantallas con una resolución de 800 por 600.

With ActivePresentation.SlideShowSettings

    .ShowType = ppShowTypeSpeaker

    With .Run

        .Height = 300

        .Width = 400

    End With

End With

Utilice la propiedad View para devolver la vista de la ventana de presentación con diapositivas especificada. En el siguiente ejemplo se establece que la ventana de presentación con diapositivas uno muestre la diapositiva tres de la presentación.

SlideShowWindows(1).View.GotoSlide 3

Utilice la propiedad Presentation para devolver la presentación que se está ejecutando actualmente en la ventana de presentación con diapositivas especificada. En el siguiente ejemplo se muestra el nombre de la presentación que se está ejecutando en la ventana de presentación con diapositivas uno.

MsgBox SlideShowWindows(1).Presentation.Name

Dim p as Presentación

Dim v as VentanaPresentacDiap

Set p = presentación cuya ventana desea encontrar

For i = 1 to SlideShowWindows.Count

if( SlideShowWindows(i).Presentation = p )

Set v = VentanasPresentacDiap(i)

Next i


Objeto de conjunto SlideShowWindows

Conjunto de todos los objetos SlideShowWindow que representan las presentaciones con diapositivas abiertas en PowerPoint.

Uso del conjunto SlideShowWindows

Utilice la propiedad SlideShowWindows para devolver el conjunto SlideShowWindows. Utilice SlideShowWindows(index), donde index es el número de índice de la ventana, para devolver un único objeto SlideShowWindow. En el siguiente ejemplo se reduce el alto de la ventana de presentación con diapositivas uno, si es una ventana de pantalla completa.

With SlideShowWindows(1)

    If .IsFullScreen Then

        .Height = .Height - 20

    End If

End With

Utilice el método Run para crear una nueva ventana de presentación con diapositivas y agregarlo al conjunto SlideShowWindows. En el siguiente ejemplo se ejecuta una presentación con diapositivas de la presentación activa.

ActivePresentation.SlideShowSettings.Run


Objeto SoundEffect

Representa el efecto de sonido que acompaña a una animación o a una transición de diapositivas de una presentación.

Uso del objeto SoundEffect

Utilice la propiedad SoundEffect del objeto AnimationSettings para devolver el objeto SoundEffect que representa el efecto de sonido que acompaña a una animación. En el siguiente ejemplo se especifica que la animación del título de la diapositiva uno de la presentación activa esté acompañada por el sonido del archivo Bass.wav.

With ActivePresentation.Slides(1).Shapes(1).AnimationSettings

    .TextLevelEffect = ppAnimateByAllLevels

    .SoundEffect.ImportFromFile "c:\sndsys\bass.wav"

End With

Utilice la propiedad SoundEffect del objeto SlideShowTransition para devolver el objeto SoundEffect que representa el efecto de sonido que acompaña a una transición de diapositivas.

En el siguiente ejemplo se especifica que la transición a la diapositiva uno de la presentación activa esté acompañada por el sonido del archivo Bass.wav.

ActivePresentation.Slides(1).SlideShowTransition.SoundEffect _

    .ImportFromFile "c:\sndsys\bass.wav"


Objeto TabStop

Representa una tabulación. El objeto TabStop es un componente del conjunto TabStops. Este conjunto representa todas las tabulaciones de una regla.

Uso del objeto Tabstop

Utilice TabStops(index), donde index es el número de índice de la tabulación, para devolver un único objeto TabStop. En el siguiente ejemplo se borra la tabulación uno del texto de la forma dos de la diapositiva uno de la presentación activa.

ActivePresentation.Slides(1).Shapes(2).TextFrame.Ruler.TabStops(1).Clear


Objeto de conjunto TabStops

Conjunto de todos los objetos TabStop de una regla.

Uso del conjunto TabStops

Utilice la propiedad TabStops para devolver el conjunto TabStops. En el siguiente ejemplo se borran todas las tabulaciones del texto de la forma dos de la diapositiva uno de la presentación activa.

With ActivePresentation.Slides(1).Shapes(2).TextFrame.Ruler.TabStops

    For t = .Count To 1 Step -1

        .Item(t).Clear

    Next

End With

Utilice el método Add para crear una tabulación y agregarla al conjunto TabStops. En el siguiente ejemplo se agrega una tabulación al estilo de texto principal del patrón de diapositivas de la presentación activa. La nueva tabulación estará situada a 2 pulgadas (144 puntos) desde el borde izquierdo de la regla y estará alineada a la izquierda.

ActivePresentation.SlideMaster.TextStyles(ppBodyStyle).Ruler.TabStops.Add ppTabStopLeft, 144


Objeto TextStyle

Representa uno de los tres estilos de texto: texto de título, texto principal o texto predeterminado. Cada estilo de texto contiene un objeto TextFrame que describe la colocación del texto dentro del cuadro de límite de texto, un objeto Ruler que contiene tabulaciones e información del formato de sangría de esquema y un conjunto TextStyleLevels que contiene la información del formato de texto de esquema. El objeto TextStyle es un componente del conjunto TextStyles.

Uso del objeto TextStyle

Utilice TextStyles(index), donde index es ppBodyStyle, ppDefaultStyle o ppTitleStyle, para devolver un único objeto TextStyle. En el siguiente ejemplo se establece el nombre y el tamaño de fuente del texto principal del primer nivel de las diapositivas de la presentación activa.

With ActivePresentation.SlideMaster.TextStyles(ppBodyStyle).Levels(1)

    With .Font

        .Name = "Arial"

        .Size = 36

    End With

End With


Objeto de conjunto TextStyles

Conjunto de los tres estilos de texto [image]: texto de título, texto principal y texto predeterminado [image], cada uno de los cuales está representado por un objeto TextStyle. Cada estilo de texto contiene un objeto TextFrame que describe la colocación del texto dentro del cuadro de límite de texto, un objeto Ruler que contiene tabulaciones e información del formato de sangría de esquema y un conjunto TextStyleLevels que contiene la información del formato de texto de esquema.

Uso del conjunto TextStyles

Utilice TextStyles(index), donde index es ppBodyStyle, ppDefaultStyle o ppTitleStyle, para devolver un único objeto TextStyle. En este ejemplo se establecen los márgenes del área principal de las notas de todas las páginas de notas de la presentación activa.

With ActivePresentation.NotesMaster.TextStyles(ppBodyStyle).TextFrame

    .MarginBottom = 50

    .MarginLeft = 50

    .MarginRight = 50

    .MarginTop = 50

End With


Objeto TextStyleLevel

Contiene la información de formato de caracteres y de párrafo de un nivel de esquema. El objeto TextStyleLevel es un componente del conjunto TextStyleLevels. El conjunto TextStyleLevels contiene un objeto TextStyleLevel para cada uno de los cinco niveles de esquema.

Uso del objeto TextStyleLevel

Utilice Levels(index), donde index es un número del 1 al 5 equivalente al nivel de esquema, para devolver un objeto TextStyleLevel. En el siguiente ejemplo se establecen el nombre y el tamaño de fuente, el espacio antes de los párrafos y la alineación del párrafo del texto principal de primer nivel de todas las diapositivas de la presentación activa.

With ActivePresentation.SlideMaster.TextStyles(ppBodyStyle).Levels(1)

    With .Font

        .Name = "Arial"

        .Size = 36

    End With

    With .ParagraphFormat

        .LineRuleBefore = False

        .SpaceBefore = 14

        .Alignment = ppAlignJustify

    End With

End With


Objeto de conjunto TextStyleLevels

Conjunto de todos los niveles de esquema del texto. Este conjunto siempre contiene cinco componentes, cada uno de los cuales está representado por un objeto TextStyleLevel.

Uso del conjunto TextStyleLevels

Utilice Levels(index), donde index es un número del 1 al 5 equivalente al nivel de esquema, para devolver un objeto TextStyleLevel. En el siguiente ejemplo se establece el nombre y el tamaño de fuente del texto principal del primer nivel de las diapositivas de la presentación activa.

With ActivePresentation.SlideMaster.TextStyles(ppBodyStyle).Levels(1)

    With .Font

        .Name = "Arial"

        .Size = 36

    End With

End With

En el siguiente ejemplo se establece el tamaño de fuente del texto de cada nivel de esquema del área principal de las notas de todas las páginas de notas de la presentación activa.

With ActivePresentation.NotesMaster.TextStyles(ppBodyStyle).Levels

    .Item(1).Font.Size = 34

    .Item(2).Font.Size = 30

    .Item(3).Font.Size = 25

    .Item(4).Font.Size = 20

    .Item(5).Font.Size = 15

End With


Objeto Adjustments

Contiene un conjunto de valores de ajuste para la autoforma, objeto de WordArt o conector especificados. Cada uno de los valores de ajuste representa una manera de definir un controlador de ajuste. Debido a que algunos controladores de ajuste pueden definirse de dos maneras; por ejemplo, horizontal y verticalmente, una forma puede tener más valores de ajuste que controladores. Una forma puede tener un máximo de ocho ajustes.

Uso del objeto Adjustments

Utilice la propiedad Adjustments para devolver un objeto Adjustments. Utilice Adjustments(index), donde index es el número de índice del valor de ajuste, para devolver un único valor de ajuste.

Las formas diferentes tienen distintos números de valores de ajuste, los distintos tipos de ajuste cambian la geometría de una forma de distintas maneras y los distintos tipos de ajuste tienen intervalos distintos de valores válidos. Por ejemplo, en la siguiente ilustración se muestra en qué contribuye cada uno de los cuatro valores de ajuste de una llamada de flecha a la derecha en la definición de la geometría de la llamada.

Nota   Debido a que cada forma ajustable tiene un conjunto distinto de valores, la mejor manera de comprobar el comportamiento del ajuste de una forma determinada es crear manualmente una copia de la misma, hacer los ajustes con la grabadora de macros activada y, a continuación, examinar el código grabado.

En la siguiente tabla se resumen los intervalos de valores de ajuste válidos para distintos tipos de ajustes. En la mayoría de los casos, si se especifica un valor que se encuentre por debajo del intervalo de valores válidos, se asignará al ajuste el valor válido más próximo.

Tipo de ajuste	Valores válidos
Lineal (horizontal o vertical)	En general, el valor 0,0 representa el borde izquierdo o superior de la forma y el valor 1,0 representa el borde derecho o inferior. Los valores válidos equivalen a los ajustes válidos que pueden realizarse manualmente en la forma. Por ejemplo, si manualmente sólo puede arrastrar un controlador de ajuste hasta la mitad de la forma, el valor máximo del ajuste correspondiente sería 0,5. Para formas del tipo de conectores y llamadas, donde los valores 0,0 y 1,0 representan los límites del rectángulo definido por los puntos inicial y final del conector o de la línea de llamada, los números negativos y los números mayores que 1,0 serán valores válidos.
Radial	Un valor de 1,0 corresponde al ancho de la forma. El valor máximo es 0,5; es decir, la mitad de la forma.
Angular	Los valores se expresan en grados. Si se especifica un valor fuera del intervalo de  – 180 a 180, se normalizará de manera que se incluya en éste.
En el siguiente ejemplo se agrega una llamada de flecha a la derecha a miDocumento y se establecen los valores de ajuste de la llamada. Tenga en cuenta que, aunque la forma sólo tenga tres controladores de ajuste, tiene cuatro ajustes. Los ajustes tres y cuatro se corresponden con el controlador que se encuentra entre la punta y el cuerpo de la flecha.

Set miDocumento = ActivePresentation.Slides(1)

Set lfd = miDocumento.Shapes.AddShape(msoShapeRightArrowCallout, 10, 10, 250, 190)

With lfd.Adjustments

    .Item(1) = 0.5    'ajusta el ancho del cuadro de texto

    .Item(2) = 0.15   'ajusta el ancho de la punta de flecha

    .Item(3) = 0.8    'ajusta el largo de la punta de flecha

    .Item(4) = 0.4    'ajusta el ancho del cuerpo de la flecha

End With


Objeto CalloutFormat

Contiene propiedades y métodos que se pueden aplicar a llamadas con línea.

Uso del objeto CalloutFormat

Utilice la propiedad Callout para devolver un objeto CalloutFormat. En este ejemplo se especifican los siguientes atributos de la forma tres (una llamada con línea) de miDocumento: la llamada tendrá una barra de énfasis vertical que separe el texto de la línea de la llamada; el ángulo entre la línea y el lateral del cuadro de texto de la llamada será de 30 grados; no habrá ningún borde alrededor del texto de la llamada; la línea de la llamada estará unida a la parte superior del cuadro de texto y contendrá dos segmentos. Para que el ejemplo tenga validez, la forma tres debe ser una llamada.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(3).Callout

    .Accent = True

    .Angle = msoCalloutAngle30

    .Border = False

    .PresetDrop msoCalloutDropTop

    .Type = msoCalloutThree

End With


Objeto ColorFormat

Representa el color de un objeto monocromo, el color de primer plano o de fondo de un objeto con relleno degradado o con diseño, o bien el color del puntero. Los colores pueden establecerse con un valor de los componentes rojo, verde y azul explícito (mediante la propiedad RGB) o con uno de los colores de la combinación de colores (mediante la propiedad SchemeColor).

Uso del objeto ColorFormat

Utilice una de las propiedades enumeradas en la siguiente tabla para devolver un objeto ColorFormat.

Para devolver un objeto ColorFormat que represente	Use esta propiedad	Con este objeto
El color utilizado para objetos atenuados	DimColor	AnimationSettings
El color de relleno de fondo, utilizado en rellenos sombreados o con diseño	BackColor	FillFormat
El color de relleno de primer plano, o simplemente el color de un relleno sólido	ForeColor	FillFormat
El color de viñetas o caracteres	Color	Font
El color de la línea de fondo, utilizado en líneas con diseño	BackColor	LineFormat
El color de línea de primer plano o simplemente el color de una línea sólida	ForeColor	LineFormat
El color del sombreado	ForeColor	ShadowFormat
El color de puntero predeterminado para una presentación	PointerColor	SlideShowSettings
El color de puntero provisional de una vista de presentación con diapositivas	PointerColor	SlideShowView
El color de los lados de un objeto extruido	ExtrusionColor	ThreeDFormat
Utilice la propiedad SchemeColor para establecer el color de un elemento de la diapositiva con uno de los colores de la combinación de colores estándar. En el siguiente ejemplo se establece el color del texto de la forma uno de la diapositiva dos de la presentación activa con el color de título de la combinación de colores estándar.

ActivePresentation.Slides(2).Shapes(1).TextFrame.TextRange.Font.Color.SchemeColor = ppTitle

Utilice la propiedad RGB para establecer un color con un valor explícito de los componentes rojo, verde y azul. En el siguiente ejemplo se agrega un rectángulo a miDocumento y después se establece el color de primer plano, el color de fondo y el degradado del relleno del rectángulo.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddShape(msoShapeRectangle, 90, 90, 90, 50).Fill

    .ForeColor.RGB = RGB(128, 0, 0)

    .BackColor.RGB = RGB(170, 170, 170)

    .TwoColorGradient msoGradientHorizontal, 1

End With


Objeto ConnectorFormat

Contiene propiedades y métodos que se aplican a conectores. Un conector es una línea que une dos formas en puntos denominados lugares de conexión. Si se reorganizan formas conectadas, la geometría del conector se ajustará automáticamente de manera que las formas mantengan la conexión.

Uso del objeto ConnectorFormat

Utilice la propiedad ConnectorFormat para devolver un objeto ConnectorFormat. Use los métodos BeginConnect y EndConnect para unir el final del conector a otras formas del documento. Utilice el método RerouteConnections para encontrar automáticamente la ruta de acceso más corta entre las dos formas unidas mediante el conector. Use la propiedad Connector para averiguar si una forma es un conector.

Tenga en cuenta que, al agregar un conector al conjunto Shapes, se asigna un tamaño y una posición que se ajustarán automáticamente al unir el principio y el final del conector a otras formas del conjunto. Por lo tanto, si va a unir el conector a otras formas, el tamaño y la posición iniciales que se especifiquen son irrelevantes. De forma similar se especifican los lugares de conexión de una forma a los que se unirá el conector, pero si se utiliza el método RerouteConnections después de unir el conector, puede que se cambien los lugares de conexión, haciendo que sea irrelevante la selección original.

En el siguiente ejemplo se agregan dos rectángulos a miDocumento y se conectan mediante un conector en curva.

Set miDocumento = ActivePresentation.Slides(1)

Set f = miDocumento.Shapes

Set primerRect = f.AddShape(msoShapeRectangle, 100, 50, 200, 100)

Set segundoRect = f.AddShape(msoShapeRectangle, 300, 300, 200, 100)

With f.AddConnector(msoConnectorCurve, 0, 0, 0, 0).ConnectorFormat

    .BeginConnect ConnectedShape:=primerRect, ConnectionSite:=1

    .EndConnect ConnectedShape:=segundoRect, ConnectionSite:=1

    .Parent.RerouteConnections

End With

Comentarios

Los lugares de conexión suelen enumerarse según las normas que se muestran en la siguiente tabla.

Tipo de forma	Sistema de numeración de los lugares de conexión
Autoformas, WordArt, imágenes y objetos OLE	La numeración de los lugares de conexión comienza desde arriba y continúa en sentido contrario a las agujas del reloj.
Formas libres	Los lugares de conexión son los vértices y se corresponden con los números de vértice.
Para saber los números que corresponden a los lugares de conexión de una forma compleja, puede experimentar con la forma activando la grabadora de macros y examinando el código grabado; o también puede crear una forma, seleccionarla y después ejecutar el siguiente ejemplo. El código numerará cada lugar de conexión y le asociará un conector.

Set formaPpal = ActiveWindow.Selection.ShapeRange(1)

With formaPpal

    bx = .Left + .Width + 50

    by = .Top + .Height + 50

End With

With ActiveWindow.View.Slide

    For j = 1 To formaPpal.ConnectionSiteCount

        With .Shapes.AddConnector(msoConnectorStraight, bx, by, bx + 50, by + 50)

            .ConnectorFormat.EndConnect formaPpal, j

            .ConnectorFormat.Type = msoConnectorElbow

            .Line.ForeColor.RGB = RGB(255, 0, 0)

            l = .Left

            t = .Top

        End With

        With .Shapes.AddTextbox(msoTextOrientationHorizontal, l, t, 36, 14)

            .Fill.Visible = False

            .Line.Visible = False

            .TextFrame.TextRange.Text = j

        End With

    Next j

End With


Objeto FillFormat

Representa el formato de relleno de una forma. Una forma puede tener un relleno sólido, degradado, con textura, con diseño, de imagen o transparente.

Uso del objeto FillFormat

Utilice la propiedad Fill para devolver un objeto FillFormat. En el siguiente ejemplo se agrega un rectángulo a miDocumento y después se establece el degradado y el color del relleno.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddShape(msoShapeRectangle, 90, 90, 90, 80).Fill

    .ForeColor.RGB = RGB(0, 128, 128)

    .OneColorGradient msoGradientHorizontal, 1, 1

End With

Comentarios

La mayoría de las propiedades del objeto FillFormat son de sólo lectura. Para establecer una de estas propiedades, debe aplicar el método correspondiente.


Objeto FreeformBuilder

Representa la geometría de una forma libre mientras se está creando.

Uso del objeto FreeformBuilder

Utilice el método BuildFreeform para devolver un objeto FreeformBuilder. Utilice el método AddNodes para agregar nodos a la forma libre. Utilice el método ConvertToShape para crear la forma definida en el objeto FreeformBuilder y agregarla al conjunto Shapes. En el siguiente ejemplo se agrega una forma libre de cuatro segmentos a miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.BuildFreeform(msoEditingCorner, 360, 200)

    .AddNodes msoSegmentCurve, msoEditingCorner, 380, 230, 400, 250, 450, 300

    .AddNodes msoSegmentCurve, msoEditingAuto, 480, 200

    .AddNodes msoSegmentLine, msoEditingAuto, 480, 400

    .AddNodes msoSegmentLine, msoEditingAuto, 360, 200

    .ConvertToShape

End With


Objeto de conjunto GroupShapes

Representa cada una de las formas de una forma agrupada. Cada forma está representada por un objeto Shape. Si utiliza el método Item con este objeto, puede trabajar con cada una de las formas de un grupo sin tener que desagruparlas.

Uso del conjunto Groupshapes

La propiedad GroupItems se utiliza para devolver el conjunto GroupShapes. Utilice GroupItems(index), donde index es el número de una forma del grupo, para devolver una forma del conjunto GroupShapes. En el siguiente ejemplo se agregan tres triángulos a miDocumento, se agrupan, se establece un color para todo el grupo y, a continuación, se cambia el color sólo del segundo triángulo.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    .AddShape(msoShapeIsoscelesTriangle, 10, 10, 100, 100).Name = "formaUno"

    .AddShape(msoShapeIsoscelesTriangle, 150, 10, 100, 100).Name = "formaDos"

    .AddShape(msoShapeIsoscelesTriangle, 300, 10, 100, 100).Name = "formaTres"

    With .Range(Array("formaUno", "formaDos", "formaTres")).Group

        .Fill.PresetTextured msoTextureBlueTissuePaper

        .GroupItems(2).Fill.PresetTextured msoTextureGreenMarble

    End With

End With


Objeto LineFormat

Representa el formato de línea y de punta de flecha. Para una línea, el objeto LineFormat contiene la información de formato de la línea en sí; para una forma con borde, contiene la información de formato del borde de la forma.

Uso del objeto LineFormat

Utilice la propiedad Line para devolver un objeto LineFormat. En el siguiente ejemplo se agrega una línea discontinua azul a miDocumento. Hay una elipse corta y estrecha en el punto de inicio de la línea y un triángulo largo y ancho en el punto final.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddLine(100, 100, 200, 300).Line

    .DashStyle = msoLineDashDotDot

    .ForeColor.RGB = RGB(50, 0, 128)

    .BeginArrowheadLength = msoArrowheadShort

    .BeginArrowheadStyle = msoArrowheadOval

    .BeginArrowheadWidth = msoArrowheadNarrow

    .EndArrowheadLength = msoArrowheadLong

    .EndArrowheadStyle = msoArrowheadTriangle

    .EndArrowheadWidth = msoArrowheadWide

End With


Objeto LinkFormat

Contiene propiedades y métodos que se pueden aplicar a objetos OLE vinculados. El objeto OLEFormat contiene propiedades y métodos que se pueden aplicar a objetos OLE vinculados o no. El objeto PictureFormat contiene propiedades y métodos que se pueden aplicar a imágenes y objetos OLE.

Uso del objeto LinkFormat

Utilice la propiedad LinkFormat para devolver un objeto LinkFormat. En el siguiente ejemplo se recorren todas las formas de las diapositivas de la presentación activa y se establece que todas las hojas de cálculo de Microsoft Excel vinculadas se actualicen manualmente.

For Each diap In ActivePresentation.Slides

    For Each form In diap.Shapes

        If form.Type = msoLinkedOLEObject Then

            If form.OLEFormat.ProgID = "Excel.Sheet.8" Then

                form.LinkFormat.AutoUpdate = ppUpdateOptionManual

            End If

        End If

    Next

Next


Objeto ObjectVerbs

Representa el conjunto de verbos OLE del objeto OLE especificado. Los verbos OLE son las operaciones que admite un objeto OLE. Los más comunes son "reproducir" y "modificar".

Uso del objeto ObjectVerbs

Utilice la propiedad ObjectVerbs para devolver un objeto ObjectVerbs. En el siguiente ejemplo se muestran todos los verbos disponibles para el objeto OLE de la forma uno de la diapositiva dos de la presentación activa. Para que el ejemplo tenga validez, la forma uno debe contener un objeto OLE.

With ActivePresentation.Slides(2).Shapes(1).OLEFormat

    For Each v In .ObjectVerbs

        MsgBox v

    Next

End With


Objeto OLEFormat

Contiene propiedades y métodos que se pueden aplicar a objetos OLE. El objeto LinkFormat contiene propiedades y métodos que sólo se pueden aplicar a objetos OLE vinculados. El objeto PictureFormat contiene propiedades y métodos que se pueden aplicar a imágenes y objetos OLE.

Uso del objeto OLEFormat

Utilice la propiedad OLEFormat para devolver un objeto OLEFormat. En el siguiente ejemplo se recorren todas las formas de las diapositivas de la presentación activa y se establece que todas las hojas de cálculo de Microsoft Excel vinculadas se actualicen manualmente.

For Each diap In ActivePresentation.Slides

    For Each form In diap.Shapes

        If form.Type = msoLinkedOLEObject Then

            If form.OLEFormat.ProgID = "Excel.Sheet.8" Then

                form.LinkFormat.AutoUpdate = ppUpdateOptionManual

            End If

        End If

    Next

Next


Objecto PictureFormat

Contiene propiedades y métodos que se pueden aplicar a imágenes y objetos OLE. El objeto LinkFormat contiene propiedades y métodos que sólo se pueden aplicar a objetos OLE vinculados. El objeto OLEFormat contiene propiedades y métodos que se pueden aplicar a objetos OLE vinculados o no.

Uso del objeto PictureFormat

Utilice la propiedad PictureFormat para devolver un objeto PictureFormat. En el siguiente ejemplo se establece el brillo, el contraste y la transformación de color de la forma uno de miDocumento y se recortan 18 puntos de la parte inferior de la forma. Para que el ejemplo tenga validez, la forma uno debe ser una imagen o un objeto OLE.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(1).PictureFormat

    .Brightness = 0.3

    .Contrast = 0.7

    .ColorType = msoPictureGrayScale

    .CropBottom = 18

End With


Objeto ShadowFormat

Representa el formato de sombreado de una forma.

Uso del objeto ShadowFormat

Utilice la propiedad Shadow para devolver un objeto ShadowFormat. En el siguiente ejemplo se agrega un rectángulo con sombreado a miDocumento. La sombra azul semitransparente está desplazada 5 puntos a la derecha del rectángulo y 3 puntos por encima del mismo.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddShape(msoShapeRectangle, 50, 50, 100, 200).Shadow

    .ForeColor.RGB = RGB(0, 0, 128)

    .OffsetX = 5

    .OffsetY = -3

    .Transparency = 0.5

    .Visible = True

End With


Objeto Shape

Representa un objeto de la capa de dibujo, como una autoforma, una forma libre, un objeto OLE o una imagen. El objeto Shape es un componente del conjunto Shapes. Este conjunto contiene todas las formas de la diapositiva.

Nota   Existen tres objetos que representan formas: el conjunto Shapes, que representa todas las formas del documento; el conjunto ShapeRange, que representa el subconjunto especificado de las formas del documento; por ejemplo, un objeto ShapeRange podría representar las formas uno y cuatro del documento o podría representar todas las formas que se seleccionen en el documento; el objeto Shape, que representa una única forma del documento. Si desea trabajar con varias formas al mismo tiempo o con las formas de una selección, utilice un conjunto ShapeRange. Para obtener información general de cómo trabajar con una forma o con varias formas al mismo tiempo, vea Trabajar con formas (objetos de dibujo).

Uso del objeto Shape

En esta sección se describe cómo:

•	Devolver la forma de una diapositiva, indizada por nombre o por número.

•	Devolver la forma que se acaba de crear en una diapositiva.

•	Devolver la forma de una selección.

•	Devolver el título de la diapositiva y otros marcadores de posición en una diapositiva.

•	Devolver las formas unidas a los puntos finales de un conector.

•	Devolver la forma predeterminada de una presentación.

•	Devolver una forma libre creada recientemente.

•	Devolver una forma de un grupo.

•	Devolver un grupo de formas creado recientemente.

Devolver una forma existente en una diapositiva

Utilice Shapes(index), donde index es el nombre o número de índice de la forma, para devolver un objeto Shape que representa la forma de una diapositiva. En el siguiente ejemplo se voltean horizontalmente la forma uno y la forma "Rectángulo 1" de miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes(1).Flip msoFlipHorizontal

miDocumento.Shapes("Rectángulo 1").Flip msoFlipHorizontal

A cada forma se le asigna un nombre predeterminado cuando se agrega al conjunto Shapes. Si desea dar a la forma un nombre más descriptivo, utilice la propiedad Name. En el siguiente ejemplo se agrega un rectángulo a miDocumento, se le da el nombre "Cuadrado rojo" y, a continuación, se establece el color de primer plano y el estilo de línea.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddShape(msoShapeRectangle, 144, 144, 72, 72)

    .Name = "Cuadrado rojo"

    .Fill.ForeColor.RGB = RGB(255, 0, 0)

    .Line.DashStyle = msoLineDashDot

End With

Devolver una forma que se acaba de crear en una diapositiva

Para agregar una forma a una diapositiva y devolver un objeto Shape que represente la forma que se acaba de crear, utilice uno de los siguientes métodos del conjunto Shapes: AddCallout, AddComment, AddConnector, AddCurve, AddLabel, AddLine, AddMediaObject, AddOLEObject, AddPicture, AddPlaceholder, AddPolyline, AddShape, AddTextbox, AddTextEffect, AddTitle.

Devolver una forma de la selección

Utilice Selection.ShapeRange(index), donde index es el nombre o el número de índice de la forma, para devolver un objeto Shape que represente una forma de la selección. En el siguiente ejemplo se establece el relleno de la primera forma de la selección de la ventana activa, suponiendo que haya al menos una forma en la selección.

ActiveWindow.Selection.ShapeRange(1).Fill.ForeColor.RGB = RGB(255, 0, 0)

Devolver el título de la diapositiva y otros marcadores de posición de una diapositiva

Utilice Shapes.Title para devolver un objeto Shape que represente un título de diapositiva existente. Utilice Shapes.AddTitle para agregar un título a una diapositiva que no tiene ninguno y devolver un objeto Shape que represente el título que se acaba de crear. Utilice Shapes.Placeholders(index), donde index es el número de índice del marcador de posición, para devolver un objeto Shape que represente un marcador de posición. Si no se ha cambiado la disposición en capas de las formas de la diapositiva, las tres instrucciones siguientes son equivalentes, suponiendo que tenga título la diapositiva uno.

ActivePresentation.Slides(1).Shapes.Title.TextFrame.TextRange.Font.Italic = True

ActivePresentation.Slides(1).Shapes.Placeholders(1).TextFrame.TextRange.Font.Italic = True

ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Font.Italic = True

Devolver las formas asociadas a los extremos de un conector

Para devolver un objeto Shape que represente una de las formas unidas por un conector, utilice la propiedad BeginConnectedShape o EndConnectedShape.

Devolver la forma predeterminada de una presentación

Para devolver un objeto Shape que represente la forma predeterminada de una presentación, utilice la propiedad DefaultShape.

Devolver una forma libre que se acaba de crear

Utilice los métodos BuildFreeform y AddNodes para definir la geometría de una nueva forma libre y utilice el método ConvertToShape para crear la forma libre y devolver el objeto Shape que la representa.

Devolver una sola forma de un grupo

Utilice GroupItems(index), donde index es el nombre o el número de índice de la forma que está en el grupo, para devolver un objeto Shape que represente la forma de una forma agrupada.

Devolver un grupo de formas que se acaba de crear

Utilice el método Group o Regroup para agrupar un intervalo de formas y devolver un único objeto Shape que represente el grupo que se acaba de crear. Una vez creado un grupo, se puede trabajar con él de la misma manera que se haría con cualquier otra forma.


Objeto ShapeNode

Representa la geometría y las propiedades de modificación de la geometría de los nodos de una forma libre definida por el usuario. Los nodos contienen los vértices entre los segmentos de la forma libre y los puntos de control de los segmentos en curva. El objeto ShapeNode es un componente del conjunto ShapeNodes. El conjunto ShapeNodes contiene todos los nodos de una forma libre.

Uso del objeto ShapeNode

Utilice Nodes(index), donde index es el número de índice del nodo, para devolver un único objeto ShapeNode. Si el nodo uno de la forma tres de miDocumento es una esquina, en el siguiente ejemplo se convierte en punto suave. Para que el ejemplo tenga validez, la forma tres debe ser una forma libre.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(3)

    If .Nodes(1).EditingType = msoEditingCorner Then

        .Nodes.SetEditingType 1, msoEditingSmooth

    End If

End With


Objeto de conjunto ShapeNodes

Conjunto de todos los objetos ShapeNode de la forma libre especificada. Cada objeto ShapeNode representa un nodo entre los segmentos o un punto de control de un segmento en curva de una forma libre. Una forma libre puede crearse manualmente o utilizando los métodos BuildFreeform y ConvertToShape.

Uso del conjunto ShapeNodes

La propiedad Nodes se utiliza para devolver el conjunto ShapeNodes. En el siguiente ejemplo se elimina el nodo cuatro de la forma tres de miDocumento. Para que el ejemplo tenga validez, la forma tres debe ser una forma libre con al menos cuatro nodos.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes(3).Nodes.Delete 4

Utilice el método Insert para crear un nuevo nodo y agregarlo al conjunto ShapeNodes. En el siguiente ejemplo se agrega un nodo suave con segmento curvo detrás del nodo cuatro de la forma tres de miDocumento. Para que el ejemplo tenga validez, la forma tres debe ser una forma libre con al menos cuatro nodos.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(3).Nodes

    .Insert 4, msoSegmentCurve, msoEditingSmooth, 210, 100

End With

Utilice Nodes(index), donde index es el número de índice del nodo, para devolver un único objeto ShapeNode. Si el nodo uno de la forma tres de miDocumento es una esquina, en el siguiente ejemplo se convierte en punto de esquina. Para que el ejemplo tenga validez, la forma tres debe ser una forma libre.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(3)

    If .Nodes(1).EditingType = msoEditingCorner Then

        .Nodes.SetEditingType 1, msoEditingSmooth

    End If

End With


Objeto de conjunto ShapeRange

Representa un intervalo de formas, es decir, un conjunto de formas de un documento. Un intervalo de formas puede estar compuesto por una única forma o por todas las formas del documento. Cuando se crea un intervalo de formas, puede incluirse cualquier número de formas, eligiendo de entre todas las del documento o de la selección. Por ejemplo, puede crear un conjunto ShapeRange que contenga las tres primeras formas, todas las formas seleccionadas o todas las formas libres de un documento.

Para obtener información general de cómo trabajar con una forma o con varias formas al mismo tiempo, vea Trabajar con formas (objetos de dibujo).

Uso del conjunto ShapeRange

En esta sección se describe cómo:

•	Devolver un conjunto de formas especificado por nombre o por número de índice.

•	Devolver todas las formas seleccionadas en el documento o algunas de ellas.

Devolver un conjunto de formas especificado por nombre o por número de índice

Utilice Shapes.Range(index), donde index es el nombre o el número de índice de la forma o una matriz que contenga nombres o números de índice de formas, para devolver un conjunto ShapeRange que represente un grupo de formas de un documento. Puede utilizar la función Array para crear una matriz de nombres y números de índice. En el siguiente ejemplo se establece el diseño del relleno de las formas uno y tres de miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes.Range(Array(1, 3)).Fill.Patterned msoPatternHorizontalBrick

En el siguiente ejemplo se establece el diseño del relleno de las formas denominadas "Elipse 4" y "Rectángulo 5" de miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

Set miIntervalo = miDocumento.Shapes.Range(Array("Elipse 4", "Rectángulo 5"))

miIntervalo.Fill.Patterned msoPatternHorizontalBrick

Aunque puede utilizar el método Range para devolver cualquier número de formas o diapositivas, es más fácil utilizar el método Item si sólo desea devolver un único elemento del conjunto. Por ejemplo, Shapes(1) es más fácil que Shapes.Range(1).

Devolver todas o algunas de las formas seleccionadas de un documento

Utilice la propiedad ShapeRange del objeto Selection para devolver todas las formas de la selección. En el siguiente ejemplo se establece el color de primer plano del relleno de todas las formas de la selección de la ventana uno, suponiendo que haya al menos una forma en la selección.

Windows(1).Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 255)

Utilice Selection.ShapeRange(index), donde index es el nombre o el número de índice de la forma, para devolver una forma de la selección. En el siguiente ejemplo se establece el color de primer plano del relleno de la forma dos del conjunto de formas seleccionadas de la ventana uno, suponiendo que haya al menos dos formas en la selección.

Windows(1).Selection.ShapeRange(2).Fill.ForeColor.RGB = RGB(255, 0, 255)


Objeto de conjunto Shapes

Conjunto de todos los objetos Shape de la diapositiva especificada. Cada objeto Shape representa un objeto de la capa de dibujo, como una autoforma, una forma libre, un objeto OLE o una imagen.

Nota   Si desea trabajar con un subconjunto de las formas de un documento; por ejemplo, para que sólo se vean afectadas las autoformas del documento o las formas seleccionadas, debe crear un conjunto ShapeRange que contenga las formas con las que desee trabajar. Para obtener información general de cómo trabajar con una forma o con varias formas al mismo tiempo, vea Trabajar con formas (objetos de dibujo).

Uso del conjunto Shapes

Utilice la propiedad Shapes para devolver el conjunto Shapes. En el siguiente ejemplo se seleccionan todas las formas de miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes.SelectAll

Nota   Si desea que una acción, como eliminar o establecer una propiedad, afecte a todas las formas del documento, utilice el método Range sin ningún argumento para crear un objeto ShapeRange que contenga todas las formas del conjunto Shapes y, a continuación, aplique la propiedad o el método correspondiente al objeto ShapeRange.

Utilice el método AddCallout, AddComment, AddConnector, AddCurve, AddLabel, AddLine, AddMediaObject, AddOLEObject, AddPicture, AddPlaceholder, AddPolyline, AddShape, AddTextbox, AddTextEffect o AddTitle para crear una nueva forma y agregarla al conjunto Shapes. Utilice el método BuildFreeform junto con el método ConvertToShape para crear una nueva forma libre y agregarla al conjunto. En el siguiente ejemplo se agrega un rectángulo a miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes.AddShape msoShapeRectangle, 50, 50, 100, 200

Utilice Shapes(index), donde index es el nombre o el número de índice de la forma, para devolver un único objeto Shape. En el siguiente ejemplo se establece un sombreado previamente definido como relleno de la forma uno de miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes(1).Fill.PresetGradient msoGradientHorizontal, 1, msoGradientBrass

Utilice Shapes.Range(index), donde index es el nombre o el número de índice de la forma o una matriz de nombres y números de índice de formas, para devolver un conjunto ShapeRange que representa un subconjunto del conjunto Shapes. En el siguiente ejemplo se establece el diseño del relleno de las formas uno y tres de miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes.Range(Array(1, 3)).Fill.Patterned msoPatternHorizontalBrick

Utilice Shapes.Placeholders(index), donde index es el número del marcador de posición, para devolver un objeto Shape que represente un marcador de posición. Si la diapositiva especificada tiene título, utilice Shapes.Placeholders(1) o Shapes.Title para devolver el marcador de posición del título. En el siguiente ejemplo se agrega una diapositiva a la presentación activa y, a continuación, se agrega texto al título y al subtítulo, que es el segundo marcador de posición de la diapositiva con este diseño.

Set miDocumento = ActivePresentation.Slides(1)

With ActivePresentation.Slides.Add(1, ppLayoutTitle).Shapes

    .Title.TextFrame.TextRange = "Éste es el texto del título"

    .Placeholders(2).TextFrame.TextRange = "Éste es el texto del subtítulo"

End With


Objeto TextEffectFormat

Contiene propiedades y métodos que se pueden aplicar a objetos de WordArt.

Uso del objeto TextEffectFormat

Utilice la propiedad TextEffect para devolver un objeto TextEffectFormat. En el siguiente ejemplo se establece el nombre de la fuente y el formato de la forma uno de miDocumento. Para que el ejemplo tenga validez, la forma uno debe ser un objeto de WordArt.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(1).TextEffect

    .FontName = "Courier New"

    .FontBold = True

    .FontItalic = True

End With


Objeto TextFrame

Representa el marco de texto de un objeto Shape. Contiene el texto del marco de texto y las propiedades y métodos que controlan la alineación y la fijación del marco de texto.

Uso del objeto TextFrame

Utilice la propiedad TextFrame para devolver un objeto TextFrame. En el siguiente ejemplo se agrega un rectángulo a miDocumento, se agrega texto al rectángulo y se establecen los márgenes del marco de texto.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame

    .TextRange.Text = "Aquí hay texto de prueba"

    .MarginBottom = 10

    .MarginLeft = 10

    .MarginRight = 10

    .MarginTop = 10

End With

Utilice la propiedad HasTextFrame para determinar si una forma tiene un marco de texto y la propiedad HasText para determinar si el marco de texto contiene texto, tal como se muestra en el siguiente ejemplo.

Set miDocumento = ActivePresentation.Slides(1)

For Each d In miDocumento.Shapes

    If f.HasTextFrame Then

        With f.TextFrame

            If .HasText Then MsgBox .TextRange.Text

        End With

    End If

Next


marco de texto

Área de la forma que puede contener texto.


Objeto TextRange

Contiene el texto adjunto a una forma, así como las propiedades y los métodos de manipulación del texto.

Uso del objeto TextRange

En esta sección se describe cómo:

•	Devolver el intervalo de texto de cualquier forma que se especifique.

•	Devolver el intervalo de texto de la selección.

•	Devolver determinados caracteres, palabras, líneas, oraciones o párrafos de un intervalo de texto.

•	Buscar y reemplazar texto en un intervalo de texto.

•	Insertar texto, la fecha y la hora o el número de diapositiva en un intervalo de texto.

•	Colocar el punto de inserción donde se desee en un intervalo de texto.

Devolver un intervalo de texto de la forma especificada

Utilice la propiedad TextRange del objeto TextFrame para devolver un objeto TextRange para cualquier forma que se especifique. Utilice la propiedad Text para devolver la cadena de texto del objeto TextRange. En el siguiente ejemplo se agrega un rectángulo a miDocumento y se establece el texto que contiene.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame.TextRange.Text = "Aquí hay texto de prueba"

Debido a que Text es la propiedad predeterminada del objeto TextRange, las dos instrucciones siguientes son equivalentes.

ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text = "Aquí hay texto de prueba"

ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange = "Aquí hay texto de prueba"

Utilice la propiedad HasTextFrame para determinar si una forma tiene un marco de texto y la propiedad HasText para determinar si el marco de texto contiene texto.

Devolver un intervalo de texto de la selección

Utilice la propiedad TextRange del objeto Selection para devolver el texto actualmente seleccionado. En el siguiente ejemplo se copia la selección en el Portapapeles.

ActiveWindow.Selection.TextRange.Copy

Devolver caracteres, palabras, líneas, oraciones o párrafos concretos de un intervalo de texto

Utilice uno de los siguientes métodos para devolver una parte del texto de un objeto TextRange: Characters, Lines, Paragraphs, Runs, Sentences o Words.

Buscar y reemplazar texto en un intervalo de texto

Utilice los métodos Find y Replace para buscar y reemplazar texto en un intervalo de texto.

Insertar texto, el número de diapositiva o la fecha y la hora en un intervalo de texto

Utilice uno de los siguientes métodos para insertar caracteres en un objeto TextRange: InsertAfter, InsertBefore, InsertDateTime, InsertSlideNumber o InsertSymbol.


Objeto ThreeDFormat

Representa el formato tridimensional de una forma.

Uso del objeto ThreeDFormat

Utilice la propiedad ThreeD para devolver un objeto ThreeDFormat. En el siguiente ejemplo se agrega una elipse a miDocumento y se especifica que la extrusión de la elipse tenga una profundidad de 50 puntos y sea de color púrpura.

Set miDocumento = ActivePresentation.Slides(1)

Set miForma = miDocumento.Shapes.AddShape(msoShapeOval, 90, 90, 90, 40)

With miForma.ThreeD

    .Visible = True

    .Depth = 50

    .ExtrusionColor.RGB = RGB(255, 100, 255)    ' Valor de RGB para púrpura

End With

Comentarios

No es posible aplicar formato tridimensional a algunos tipos de formas, como formas biseladas o varias rutas de acceso separadas. La mayoría de las propiedades y de los métodos del objeto ThreeDFormat fallarán para una forma de ese tipo.


Shape, ShapeRange, TextRange


AddIns, Assistant, CommandBars, DocumentWindows, FileFind, FileSearch, Presentation, Presentations, SlideShowWindows, VBE


AnimationSettings, FillFormat, Font, LineFormat, ShadowFormat, SlideShowSettings, SlideShowView, ThreeDFormat


ColorSchemes, Master, Slide, SlideRange


Application, Presentation


BulletFormat, Fonts, TextRange, TextStyleLevel


ActionSetting, Hyperlinks


Presentation, Slide, SlideRange


TextRange, TextStyleLevel


ColorSchemes, DocumentProperties, DocumentWindows, ExtraColors, Fonts, Master, PageSetup, PrintOptions, Slides, SlideShowSettings, Tags, VBProject


Application, DocumentWindow, Presentations, SlideShowWindow


TextFrame, TextStyle


ActionSettings, Adjustments, AnimationSettings, CalloutFormat, ConnectorFormat, FillFormat, GroupShapes, LineFormat, LinkFormat, OLEFormat, PictureFormat, PlaceholderFormat, ShadowFormat, ShapeNodes, ShapeRange, Tags, TextEffectFormat, TextFrame, ThreeDFormat


ActionSettings, Adjustments, AnimationSettings, CalloutFormat, ConnectorFormat, FillFormat, GroupShapes, LineFormat, LinkFormat, OLEFormat, PictureFormat, PlaceholderFormat, ShadowFormat, Shape, ShapeNodes, ShapeRange, Tags, TextEffectFormat, TextFrame, ThreeDFormat


Master, Selection, Shapes, Slide, SlideRange


ColorScheme, HeadersFooters, Hyperlinks, ShapeRange, Shapes, SlideShowTransition, Tags


ColorScheme, HeadersFooters, Hyperlinks, ShapeRange, Shapes, SlideShowTransition, Tags


Selection, Slides


ActionSettings, AnimationSettings, SlideShowTransition


Presentation, Shape, ShapeRange, Slide, SlideRange


Shapes, TextStyles


Selection, TextFrame, TextRange


Propiedad AutoUpdate

Devuelve o establece la forma en que se actualizará el vínculo: automáticamente, es decir, cada vez que se abra la presentación o se cambie el archivo de origen, o bien manualmente, es decir, sólo cuando el usuario solicite específicamente que se actualice la presentación. Puede ser una de las siguientes constantes PpUpdateOption: ppUpdateOptionAutomatic, ppUpdateOptionManual o ppUpdateOptionMixed. Long de Lectura/Escritura.


Ejemplo de la propiedad AutoUpdate

En este ejemplo se recorren todas las formas de las diapositivas de la presentación activa y se establece que todas las hojas de Microsoft Excel vinculadas se actualicen manualmente.

For Each diap In ActivePresentation.Slides

    For Each form In diap.Shapes

        If form.Type = msoLinkedOLEObject Then

            If form.OLEFormat.ProgID = "Excel.Sheet.8" Then

                form.LinkFormat.AutoUpdate = ppUpdateOptionManual

            End If

        End If

    Next

Next


Propiedad SourceFullName

Devuelve o establece el nombre y la ruta de acceso del archivo de origen del objeto OLE vinculado. String de Lectura/Escritura.


Ejemplo de la propiedad SourceFullName

En este ejemplo se establece el archivo de origen de la forma uno de la diapositiva uno de la presentación activa como Wordprueba.doc y se especifica que la imagen del objeto se actualice automáticamente.

With ActivePresentation.Slides(1).Shapes(1)

    If .Type = msoLinkedOLEObject Then

        With .LinkFormat

            .SourceFullName = "c:\mis documentos\wordprueba.doc"

            .AutoUpdate = ppUpdateOptionAutomatic

        End With

    End If

End With


Método Update

Actualiza el objeto OLE vinculado especificado. Para actualizar todos los vínculos de una presentación al mismo tiempo, utilice el método UpdateLinks.

Sintaxis

expresión.Update

expresión   Requerida. Expresión que devuelve un objeto LinkFormat.


Ejemplo del método Update

En este ejemplo se actualizan todos los objetos OLE vinculados de la presentación activa.

For Each diap In ActivePresentation.Slides

    For Each form In diap.Shapes

        If form.Type = msoLinkedOLEObject Then

            form.LinkFormat.Update

        End If

    Next

Next


Método DoVerb

Solicita que un objeto OLE ejecute uno de sus verbos. Utilice la propiedad ObjectVerbs para determinar los verbos disponibles para un objeto OLE.

Sintaxis

expresión.DoVerb(Index)

expresión   Requerida. Expresión que devuelve un objeto OLEFormat.

Index   Integer opcional. Verbo que debe ejecutarse. Si este argumento se omite, se ejecutará el verbo predeterminado.


Ejemplo del método DoVerb

En este ejemplo se ejecuta el verbo predeterminado para la forma tres de la diapositiva uno de la presentación activa si la forma tres es un objeto OLE vinculado o incrustado.

With ActivePresentation.Slides(1).Shapes(3)

    If .Type = msoEmbeddedOLEObject Or _

            .Type = msoLinkedOLEObject Then

        .OLEFormat.DoVerb

    End If

End With

En este ejemplo se ejecuta el verbo "z" para la forma tres de la diapositiva uno de la presentación activa si la forma tres es un objeto OLE que admite el verbo "Reproducir".

With ActivePresentation.Slides(1).Shapes(3)

    If .Type = msoEmbeddedOLEObject Or _

            .Type = msoLinkedOLEObject Then

        For Each verbForma In .OLEFormat.ObjectVerbs

            nCount = nCount + 1

            If verbForma = "Abrir" Then

                .OLEFormat.DoVerb nCount

                Exit For

            End If

        Next

    End If

End With


verbo

Acción que lleva a cabo el objeto OLE para activar su contenido. Los verbos más habituales son "Modificar", "Abrir" y "Reproducir".


Propiedad FollowColors

Devuelve o establece la medida en que los colores del objeto especificado siguen la combinación de colores de la diapositiva. El objeto especificado debe ser un gráfico creado en Microsoft Graph o Microsoft Organization Chart. La propiedad puede tener una de las siguientes constantes PpFollowColors: ppFollowColorsScheme, si todos los colores del gráfico siguen la combinación de colores de la diapositiva; ppFollowColorsTextAndBackground, si sólo el texto y el fondo siguen la combinación de colores de la diapositiva; o bien ppFollowColorsNone, si los colores del gráfico no siguen la combinación de colores de la diapositiva. Long de Lectura/Escritura.


Ejemplo de la propiedad FollowColors

En este ejemplo se especifica que el texto y el fondo de la forma dos de la diapositiva uno de la presentación activa sigan la combinación de colores de la diapositiva. La forma dos debe ser un gráfico creado en Microsoft Graph o Microsoft Organization Chart.

ActivePresentation.Slides(1).Shapes(2).OLEFormat.FollowColors = _

    ppFollowColorsTextAndBackground


Propiedad Object

Devuelve el objeto que representa la interfaz de nivel superior del objeto OLE especificado. Esta propiedad permite tener acceso a las propiedades y a los métodos de la aplicación en que se creó un objeto OLE. Es de sólo lectura.

Comentarios

Utilice la función TypeName para determinar el tipo de objeto que devuelve esta propiedad para un objeto OLE específico.


Ejemplo de la propiedad Object

En este ejemplo se muestra el tipo de objeto que contiene la forma uno de la diapositiva uno de la presentación activa. La forma uno debe contener un objeto OLE.

MsgBox TypeName(ActivePresentation.Slides(1).Shapes(1).OLEFormat.Object)

En este ejemplo se muestra el nombre de la aplicación en que se creó cada uno de los objetos OLE incrustados de la diapositiva uno de la presentación activa.

For Each f In ActivePresentation.Slides(1).Shapes

    If f.Type = msoEmbeddedOLEObject Then

        MsgBox f.OLEFormat.Object.Application.Name

    End If

Next

En este ejemplo se agrega texto a la celda A1 de la hoja de cálculo uno del libro de Microsoft Excel contenido en la forma tres de la diapositiva uno de la presentación activa.

With ActivePresentation.Slides(1).Shapes(3)

    .OLEFormat.Object.Worksheets(1).Range("A1").Value = "Nuevo texto"

End With


Propiedad ObjectVerbs

Devuelve un conjunto ObjectVerbs que contiene todos los verbos OLE del objeto OLE especificado. Es de sólo lectura.


Ejemplo de la propiedad ObjectVerbs

En este ejemplo se muestran todos los verbos disponibles para el objeto OLE de la forma uno de la diapositiva dos de la presentación activa. Para que el ejemplo tenga validez, la forma uno debe contener un objeto OLE.

With ActivePresentation.Slides(2).Shapes(1).OLEFormat

    For Each v In .ObjectVerbs

        MsgBox v

    Next

End With

En este ejemplo se especifica que el objeto OLE de la forma uno de la diapositiva dos de la presentación activa se abra cuando se haga clic en él durante una presentación con diapositivas, si "Abrir" es uno de los verbos OLE de dicho objeto. Para que el ejemplo tenga validez, la forma uno debe contener un objeto OLE.

With ActivePresentation.Slides(2).Shapes(1)

    For Each verbo In OLEFormat.ObjectVerbs

        If verbo = "Abrir" Then

            With ActionSettings(ppMouseClick)

                .Action = ppActionOLEVerb

                .ActionVerb = verbo

            End With

            Exit For

        End If

    Next

End With


Propiedad ProgID

Devuelve el identificador programático (ProgID) del objeto OLE especificado. String de sólo lectura.


identificador programático (ProgID)

Identificador en el formato NombreServidorOLE.NombreObjeto, como por ejemplo, Excel.Sheet o PowerPoint.Slide, que utiliza el registro del sistema para identificar un objeto de forma exclusiva. Para especificar un objeto creado por una versión determinada de una aplicación, agregue un punto y el número de la versión al identificador, como por ejemplo, Excel.Sheet.8 o PowerPoint.8.


Ejemplo de la propiedad ProgID

En este ejemplo se recorren todos los objetos de las diapositivas de la presentación activa y se establece que todas las hojas de Microsoft Excel vinculadas se actualicen manualmente.

For Each diap In ActivePresentation.Slides

    For Each form In diap.Shapes

        If form.Type = msoLinkedOLEObject Then

            If form.OLEFormat.ProgID = "Excel.Sheet.8" Then

                form.LinkFormat.AutoUpdate = ppUpdateOptionManual

            End If

        End If

    Next

Next


Propiedad BaseLineAlignment

Devuelve o establece la alineación de la línea base de un párrafo determinado. Puede ser una de las siguientes constantes PpBaselineAlignment: ppBaselineAlignBaseline, ppBaselineAlignCenter, ppBaselineAlignFarEast50, ppBaselineAlignMixed o ppBaselineAlignTop. Long de Lectura/Escritura.


Ejemplo de la propiedad BaseLineAlignment

Este ejemplo muestra la alineación de la línea base de los párrafos en la forma número dos de la primera diapositiva de la presentación activa.

MsgBox ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange _

    .ParagraphFormat.BaseLineAlignment


Propiedad TextDirection

Sólo versiones de Oriente medio. Devuelve o establece la dirección del texto del párrafo especificado. Puede ser una de las siguientes constantes PpDirection: ppDirectionLeftToRight, ppDirectionMixed o ppDirectionRightToLeft. Long de Lectura/Escritura.


Ejemplo de la propiedad TextDirection

Este ejemplo muestra la dirección del texto de los párrafos en la forma número dos de la primera diapositiva de la presentación activa.

MsgBox ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange _

    .ParagraphFormat.TextDirection


Propiedad Alignment

Objeto ParagraphFormat: Devuelve o establece la alineación de cada párrafo en el formato de párrafo especificado. Puede ser una de las siguientes constantes PpParagraphAlignment: ppAlignCenter, ppAlignDistribute, ppAlignJustify, ppAlignLeft, ppAlignmentMixed o ppAlignRight. Long de Lectura/Escritura.

Objeto TextEffectFormat: Devuelve o establece la alineación del WordArt especificado. Puede ser una de las siguientes constantes MsoTextEffectAlignment: msoTextEffectAlignmentCentered, msoTextEffectAlignmentLeft, msoTextEffectAlignmentLetterJustify, msoTextEffectAlignmentMixed, msoTextEffectAlignmentRight, msoTextEffectAlignmentStretchJustify o msoTextEffectAlignmentWordJustify. Long de Lectura/Escritura.


Ejemplo de la propiedad Alignment

Este ejemplo alinea a la izquierda los párrafos en la forma número dos de la primera diapositiva de la presentación activa.

Application.ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange _

    .ParagraphFormat.Alignment = ppAlignLeft

Este ejemplo agrega un WordArt a la primera diapositiva de la presentación activa y después alinea el WordArt a la derecha.

Set miForma = Application.ActivePresentation.Slides(1).Shapes

Set miEfTex = miForma.AddTextEffect(PresetTextEffect:=msoTextEffect1, _

    Text:="Texto de prueba", FontName:="Palatino", FontSize:=54, _

    FontBold:=True, FontItalic:=False, Left:=100, Top:=50)

miEfTex.TextEffect.Alignment = msoTextEffectAlignmentRight


Propiedad Bullet

Devuelve un objeto BulletFormat que representa el formato de viñeta del formato de párrafo especificado. Es de sólo lectura.


Ejemplo de la propiedad Bullet

Este ejemplo establece el tamaño y color de viñeta de los párrafos en la forma número dos de la primera diapositiva en la presentación activa.

With Application.ActivePresentation.Slides(1).Shapes(2).TextFrame

    With .TextRange.ParagraphFormat.Bullet

        .Visible = True

        .RelativeSize = 1.25

        .Font.Color = RGB(255, 0, 255)

    End With

End With


Propiedad LineRuleAfter

True si el interlineado después de la última línea de cada párrafo está establecido en un número específico de líneas, o False si el interlineado está establecido en un número específico de puntos. Long de Lectura/Escritura.


Ejemplo de la propiedad LineRuleAfter

Este ejemplo muestra un cuadro de mensaje con la configuración de espaciado después de párrafo del texto de la segunda forma en la diapositiva número dos de la presentación activa.

With Application.ActivePresentation.Slides(1).Shapes(2).TextFrame

    With .TextRange.ParagraphFormat

        ed = .SpaceAfter

        If .LineRuleAfter Then

            UnidadesEd = " líneas"

        Else

            UnidadesEd = " puntos"

        End If

    End With

End With

MsgBox "Espaciado actual después de párrafos: " & ed & UnidadesEd


Propiedad LineRuleBefore

True si el interlineado antes de la primera línea de cada párrafo está establecido en un número específico de líneas, o False si el interlineado está establecido en un número específico de puntos. Long de Lectura/Escritura.


Ejemplo de la propiedad LineRuleBefore

Este ejemplo muestra un cuadro de mensaje con la configuración de espaciado antes de párrafo del texto de la segunda forma de diapositiva número dos de la presentación activa.

With Application.ActivePresentation.Slides(1).Shapes(2).TextFrame

    With .TextRange.ParagraphFormat

        ea = .SpaceBefore

        If .LineRuleBefore Then

            UnidadesEa = " líneas"

        Else

            UnidadesEa = " puntos"

        End If

    End With

End With

MsgBox "Espaciado actual antes de párrafos: " & ea & UnidadesEa


Propiedad LineRuleWithin

True si el interlineado entre las líneas base está establecido en un número específico de líneas, o False si el interlineado está establecido en un número específico de puntos. Long de Lectura/Escritura.


Ejemplo de la propiedad LineRuleWithin

Este ejemplo muestra un cuadro de mensaje con la configuración de interlineado del texto de la segunda forma de la diapositiva número uno de la presentación activa.

With Application.ActivePresentation.Slides(1).Shapes(2).TextFrame

    With .TextRange.ParagraphFormat

        el = .SpaceWithin

        If .SpaceWithin Then

            UnidadesEl = " líneas"

        Else

            UnidadesEl = " puntos"

        End If

    End With

End With

MsgBox "Interlineado actual: " & el & UnidadesEl


Propiedad SpaceWithin

Devuelve o establece la cantidad de espacio entre líneas base del texto especificado en puntos o líneas. Single de Lectura/Escritura.


Ejemplo de la propiedad SpaceWithin

Este ejemplo establece el interlineado del texto de la segunda forma de la diapositiva número dos de la presentación activa en 21 puntos.

With Application.ActivePresentation.Slides(2).Shapes(2)

    With .TextFrame.TextRange.ParagraphFormat

        .LineRuleWithin = False

        .SpaceWithin= 21

    End With

End With


Propiedad SpaceAfter

Devuelve o establece la cantidad de espacio en puntos o líneas después de la última línea de cada párrafo del texto especificado. Single de Lectura/Escritura.


Ejemplo de la propiedad SpaceAfter

Este ejemplo establece el espaciado después de párrafo en 6 puntos del texto de la segunda forma de la diapositiva número uno en la presentación activa.

With Application.ActivePresentation.Slides(1).Shapes(2)

    With .TextFrame.TextRange.ParagraphFormat

        .LineRuleAfter = False

        .SpaceAfter = 6

    End With

End With


Propiedad SpaceBefore

Devuelve o establece la cantidad de espacio en puntos o líneas antes de la primera línea de cada párrafo del texto especificado. Single de Lectura/Escritura.


Ejemplo de la propiedad SpaceBefore

Este ejemplo establece el espaciado antes de párrafo en 6 puntos del texto de la segunda forma de la diapositiva número uno en la presentación activa.

With Application.ActivePresentation.Slides(1).Shapes(2)

    With .TextFrame.TextRange.ParagraphFormat

        .LineRuleBefore = False

        .SpaceBefore = 6

    End With

End With


Propiedad FirstSlideNumber

Devuelve o establece el número de diapositiva para la primera diapositiva de la presentación. Long de Lectura/Escritura.

Comentarios

El número de diapositiva es el número que aparecerá en la esquina inferior derecha de la misma cuando muestre los números de diapositivas. Este número se determina por el número (orden) de la diapositiva dentro de la presentación (el valor de la propiedad SlideIndex) y por el número de la diapositiva inicial de la presentación (el valor de la propiedad FirstSlideNumber). El número de diapositiva será siempre igual al número de diapositiva inicial + el número de índice de la diapositiva – 1. La propiedad SlideNumber devuelve el número de diapositiva.


Ejemplo de la propiedad FirstSlideNumber

Este ejemplo muestra cómo afecta el cambio del número de la primera diapositiva de la presentación activa al número de diapositiva de una diapositiva específica.

With Application.ActivePresentation

    .PageSetup.FirstSlideNumber = 1  'comienza la numeración de diapositivas en 1

    MsgBox .Slides(2).SlideNumber    'devuelve 2

    .PageSetup.FirstSlideNumber = 10  'comienza la numeración de diapositivas en 10

    MsgBox .Slides(2).SlideNumber    'devuelve 11

End With


Propiedad NotesOrientation

Devuelve o establece la orientación en pantalla e impresa de páginas de notas, documentos y esquemas de la presentación especificada. Puede ser una de las siguientes constantes MsoOrientation: msoOrientationHorizontal, msoOrientationMixed o msoOrientationVertical. Long de Lectura/Escritura.


Ejemplo de la propiedad NotesOrientation

Este ejemplo establece la orientación de todas las páginas de notas, documentos y esquemas de la presentación activa en horizontal.

Application.ActivePresentation.PageSetup.NotesOrientation = _

    msoOrientationHorizontal


Propiedad SlideHeight

Devuelve o establece el alto de la diapositiva, en puntos. Single de Lectura/Escritura.


Ejemplo de la propiedad SlideHeight

Este ejemplo establece el alto de la diapositiva en 8,5 pulgadas y el ancho en 11 pulgadas para la presentación activa.

With Application.ActivePresentation.PageSetup

    .SlideWidth = 11 * 72

    .SlideHeight = 8.5 * 72

End With


Propiedad SlideOrientation

Devuelve o establece la orientación en pantalla e impresa de las diapositivas de la presentación especificada. Puede ser una de las siguientes constantes MsoOrientation: msoOrientationHorizontal, msoOrientationMixed o msoOrientationVertical. Long de Lectura/Escritura.


Ejemplo de la propiedad SlideOrientation

Este ejemplo establece la orientación de todas las diapositivas de la presentación activa en vertical.

Application.ActivePresentation.PageSetup.SlideOrientation = _

    msoOrientationVertical


Propiedad SlideSize

Devuelve o establece el tamaño de diapositiva para la presentación activa. Puede ser una de las siguientes constantes PpSlideSizeType: ppSlideSize35MM, ppSlideSizeA4Paper, ppSlideSizeCustom, ppSlideSizeLetterPaper, ppSlideSizeOnScreen o ppSlideSizeOverhead. Long de Lectura/Escritura.


Ejemplo de la propiedad SlideSize

Este ejemplo establece el tamaño de las diapositivas como transparencias para la presentación activa.

Application.ActivePresentation.PageSetup _

    .SlideSize = ppSlideSizeOverhead


Propiedad SlideWidth

Devuelve o establece el ancho de la diapositiva, en puntos. Single de Lectura/Escritura.


Ejemplo de la propiedad SlideWidth

Este ejemplo establece el alto de la diapositiva en 8,5 pulgadas y el ancho en 11 pulgadas para la presentación activa.

With Application.ActivePresentation.PageSetup

    .SlideWidth = 11 * 72

    .SlideHeight = 8.5 * 72

End With


Propiedad Brightness

Devuelve o establece el brillo de la imagen u objeto OLE especificados. El valor de esta propiedad debe ser un número de 0.0 (más atenuado) a 1.0 (más brillante). Single de Lectura/Escritura.


Ejemplo de la propiedad Brightness

Este ejemplo establece el brillo para la forma uno de miDocumento. La forma uno debe ser una imagen o un objeto OLE.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes(1).PictureFormat.Brightness = 0.3


Propiedad ColorType

Devuelve o establece el tipo de transformación de color aplicado a la imagen u objeto OLE especificado. Puede ser una de las siguientes constantes MsoPictureColorType: msoPictureAutomatic, msoPictureBlackAndWhite, msoPictureGrayscale, msoPictureMixed o msoPictureWatermark. Long de Lectura/Escritura.


Ejemplo de la propiedad ColorType

Este ejemplo establece la transformación de color como escala de grises para la forma uno de miDocumento. La forma uno debe ser una imagen o un objeto OLE.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes(1).PictureFormat.ColorType = msoPictureGrayScale


Propiedad Contrast

Devuelve o establece el brillo de la imagen u objeto OLE especificado. El valor de esta propiedad debe ser un número de 0.0 (menor contraste) a 1.0 (mayor contraste). Single de Lectura/Escritura.


Ejemplo de la propiedad Contrast

Este ejemplo establece el contraste para la forma uno de miDocumento. La forma uno debe ser una imagen o un objeto OLE.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes(1).PictureFormat.Contrast = 0.8


Método IncrementBrightness

Cambia el brillo de la imagen según la cantidad especificada. Utilice la propiedad Brightness para establecer el brillo absoluto de la imagen.

Sintaxis

expresión.IncrementBrightness(Increment)

expresión   Requerida. Expresión que devuelve un objeto PictureFormat.

Increment   Single requerido. Especifica cuánto debe cambiarse el valor de la propiedad Brightness para la imagen. Con un valor positivo, la imagen será más brillante; con un valor negativo, más oscura.

Comentarios

No se puede ajustar el brillo de una imagen por encima o por debajo del límite de la propiedad Brightness. Por ejemplo, si la propiedad Brightness se establece inicialmente como 0.9 y se especifica 0.3 para el argumento Increment, el nivel de brillo obtenido será de 1,0, que es el límite superior para la propiedad Brightness, en lugar de 1,2.


Ejemplo del método IncrementBrightness

Este ejemplo crea una copia de la forma uno de miDocumento y, a continuación, la desplaza y la oscurece. Para que el ejemplo tenga efecto, la forma uno debe ser una imagen o un objeto OLE.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(1).Duplicate

    .PictureFormat.IncrementBrightness -0.2

    .IncrementLeft 50

    .IncrementTop 50

End With


Método IncrementContrast

Cambia el contraste de la imagen según la cantidad especificada. Utilice la propiedad Contrast para establecer el contraste absoluto para la imagen.

Sintaxis

expresión.IncrementContrast(Increment)

expresión   Requerida. Expresión que devuelve un objeto PictureFormat.

Increment   Single requerido. Especifica cuánto debe cambiarse el valor de la propiedad Contrast para la imagen. Con un valor positivo se incrementa el contraste; con un valor negativo se disminuye.

Comentarios

No se puede ajustar el contraste de una imagen por encima o por debajo del límite de la propiedad Contrast. Por ejemplo, si la propiedad Contrast se establece inicialmente como 0.9 y se especifica 0.3 para el argumento Increment, el nivel de contraste obtenido será de 1,0, que es el límite superior para la propiedad Contrast, en lugar de 1,2.


Ejemplo del método IncrementContrast

Este ejemplo aumenta el contraste de todas las imágenes en miDocumento para las que todavía no se ha establecido el contraste máximo.

Set miDocumento = ActivePresentation.Slides(1)

For Each f In miDocumento.Shapes

    If f.Type = msoPicture Then

        f.PictureFormat.IncrementContrast 0.1

    End If

Next


Propiedad TransparencyColor

Devuelve o establece el color transparente de la imagen especificada como valor de los componentes rojo, verde y azul (RGB). Para que esta propiedad tenga efecto, la propiedad TransparentBackground debe establecerse como True. Sólo se aplica a mapas de bits. Long de Lectura/Escritura.

Comentarios

Si desea tener una visión absoluta de los objetos que se encuentran detrás de la imagen a través de las partes transparentes de la misma, debe establecer la propiedad Visible del objeto FillFormat de la imagen como False. Si la imagen es de color transparente y la propiedad Visible del objeto FillFormat de la misma tiene el valor True, el relleno de la imagen podrá verse a través del color transparente, pero los objetos de detrás de la imagen se oscurecerán.


Ejemplo de la propiedad TransparencyColor

Este ejemplo establece el color con valor RGB devuelto por la función RGB(0, 0, 255) como color transparente para la forma uno en miDocumento. Para que el ejemplo tenga efecto, la forma uno debe ser un mapa de bits.

azul = RGB(0, 0, 255)

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(1)

    With .PictureFormat

        .TransparentBackground = True

        .TransparencyColor = azul

    End With

    .Fill.Visible = False

End With


Propiedad TransparentBackground

True si las partes de la imagen que son del color definido como color transparente se muestran transparentes. Utilice la propiedad TransparencyColor para establecer el color transparente. Sólo se aplica a mapas de bits. Long de Lectura/Escritura.

Comentarios

Si desea tener una visión absoluta de los objetos que se encuentran detrás de la imagen a través de las partes transparentes de la misma, debe establecer la propiedad Visible del objeto FillFormat de la imagen como False. Si la imagen es de color transparente y la propiedad Visible del objeto FillFormat de la misma tiene el valor True, el relleno de la imagen podrá verse a través del color transparente, pero los objetos de detrás de la imagen se oscurecerán.


Ejemplo de la propiedad TransparentBackground

Este ejemplo establece el color con valor RGB devuelto por la función RGB(24, 0, 240) como color transparente para la forma uno en miDocumento. Para que el ejemplo tenga efecto, la forma uno debe ser un mapa de bits.

azul = RGB(0, 0, 255)

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(1)

    With .PictureFormat

        .TransparentBackground = True

        .TransparencyColor = azul

    End With

    .Fill.Visible = False

End With


Propiedad ActionVerb

Objeto PlaySettings: Devuelve o establece la cadena que contiene el verbo OLE que se ejecutará cuando tenga lugar la animación del objeto OLE especificado durante una presentación con diapositivas. El verbo predeterminado especifica la acción que ejecuta el objeto OLE (como la reproducción de un archivo de onda o la presentación de datos, de forma que el usuario pueda realizar modificaciones) después de la animación anterior o la transición de diapositivas. String de Lectura/Escritura.

Objeto ActionSetting: Devuelve o establece una cadena que contiene el verbo OLE que se ejecutará cuando el usuario haga clic en la forma especificada o mueva el mouse (ratón) por encima de la misma durante una presentación con diapositivas. La propiedad Action debe establecerse primero como ppActionOLEVerb para que tenga efecto sobre la acción de la presentación con diapositivas. String de Lectura/Escritura.

Los valores disponibles para esta propiedad se corresponden con los elementos enumerados en el cuadro Acción de objeto que se muestra en la ficha Configuración de la reproducción, en el cuadro de diálogo Personalizar animación (menú Presentación), cuando se selecciona el objeto especificado.


Ejemplo de la propiedad ActionVerb

Este ejemplo especifica que la forma tres en la diapositiva uno de la presentación activa se abrirá automáticamente para su modificación cuando se produzca la animación. La forma tres debe ser un objeto OLE que contenga un objeto de sonido o de película y que admita el verbo Modificar.

Set objetoOLE = ActivePresentation.Slides(1).Shapes(3)

With objetoOLE.AnimationSettings.PlaySettings

    .PlayOnEntry = True

    .ActionVerb = "Modificar"

End With

Este ejemplo establece la reproducción de la forma tres en la diapositiva uno siempre que se mueva el mouse (ratón) por encima de la misma durante la presentación con diapositivas.

With ActivePresentation.Slides(1).Shapes(3).ActionSettings(ppMouseOver)

    .ActionVerb = "Reproducir"

    .Action = ppActionOLEVerb

End With


Propiedad HideWhileNotPlaying

True si el clip multimedia especificado está oculto durante la presentación con diapositivas mientras no se está reproduciendo. Long de Lectura/Escritura.


Ejemplo de la propiedad HideWhileNotPlaying

Este ejemplo inserta una película denominada "Clock.avi" en la primera diapositiva de la presentación activa y establece que se reproduzca automáticamante después de la transición de diapositivas. Además, especifica que el objeto de película se oculte si no está reproduciéndose.

With ActivePresentation.Slides(1).Shapes.AddOLEObject(Left:=10, Top:=10, _

        Width:=250, Height:=250, FileName:="c:\winnt\clock.avi")

    With .AnimationSettings.PlaySettings

        .PlayOnEntry = True

        .HideWhileNotPlaying = True

    End With

End With


Propiedad LoopUntilStopped

Objeto PlaySettings: True si la película o el sonido especificados crean un bucle continuo hasta el comienzo de la siguiente película o sonido, hasta que el usuario hace clic en la diapositiva o hasta que se produce una transición de diapositivas. Long de Lectura/Escritura.

Objeto SlideShowSettings: True si la diapositiva especificada crea un bucle continuo hasta que el usuario presione ESC. Long de Lectura/Escritura.


Ejemplo de la propiedad LoopUntilStopped

Este ejemplo especifica que la forma tres en la diapositiva uno de la presentación activa empezará a reproducirse en el orden de la animación y continuará reproduciéndose hasta que se inicie el siguiente clip multimedia. La forma tres debe ser un objeto de sonido o película.

ActivePresentation.Slides(1).Shapes(3).AnimationSettingf.PlaySettings.LoopUntilStopped = True

Este ejemplo inicia una presentación con diapositivas de la presentación activa que hará que las diapositivas avancen automáticamente (utilizando los intervalos de tiempo almacenados) y creará un bucle continuo a lo largo de la presentación hasta que el usuario presione ESC.

With ActivePresentation.SlideShowSettings

    .AdvanceMode = ppSlideShowUseSlideTimings

    .LoopUntilStopped = True

    .Run

End With


Propiedad MediaType

Devuelve el tipo de multimedia OLE. Puede ser una de las siguientes constantes PpMediaType: ppMediaTypeMixed, ppMediaTypeMovie, ppMediaTypeOther o ppMediaTypeSound. Long de sólo lectura.


Ejemplo de la propiedad MediaType

Este ejemplo establece que todos los objetos de sonido en la diapositiva uno de la presentación activa creen un bucle hasta que se detengan manualmente durante una presentación con diapositivas.

For Each f In ActivePresentation.Slides(1).Shapes

    If f.Type = msoMedia Then

        If so.MediaType = ppMediaTypeSound Then

            f.AnimationSettings.PlaySettings.LoopUntilStopped = True

        End If

    End If

Next


Propiedad PauseAnimation

True si la presentación con diapositivas se detiene hasta que el clip multimedia especificado haya terminado su reproducción. False si la presentación con diapositivas continúa mientras el clip multimedia se reproduce en segundo plano. Long de Lectura/Escritura.

Comentarios

Para que el valor de la propiedad PauseAnimation tenga efecto, la propiedad PlayOnEntry de la forma especificada debe establecerse como True.


Ejemplo de la propiedad PauseAnimation

Este ejemplo especifica que la forma tres en la diapositiva uno de la presentación activa se reproducirá automáticamente cuando se produzca la animación y que la presentación con diapositivas no continuará mientras la película se esté reproduciendo en segundo plano. La forma tres debe ser un objeto de sonido o película.

Set objetoOLE = ActivePresentation.Slides(1).Shapes(3)

With objetoOLE.AnimationSettings.PlaySettings

    .PlayOnEntry = True

    .PauseAnimation = True

End With


Propiedad PlayOnEntry

True si la película o el sonido especificados se reproducen automáticamente cuando se produce la animación. Long de Lectura/Escritura.

Comentarios

Para que el valor de la propiedad PauseAnimation tenga efecto, la propiedad Animate del objeto ActionSettings debe establecerse como True.

Utilice la propiedad ActionVerb para establecer el verbo que se activará cuando se produzca la animación del clip multimedia.


Ejemplo de la propiedad PlayOnEntry

Este ejemplo especifica que la forma tres en la diapositiva uno de la presentación activa se reproducirá automáticamente cuando se produzca la animación. La forma tres debe ser un objeto de sonido o película.

Set objetoOle = ActivePresentation.Slides(1).Shapes(3)

objetoOLE.AnimationSettings.PlaySettings.PlayOnEntry = True


Propiedad RewindMovie

True si el primer marco de la película especificada vuelve a mostrarse automáticamente tan pronto como haya acabado la reproducción de la película. Long de Lectura/Escritura.


Ejemplo de la propiedad RewindMovie

Este ejemplo especifica que el primer marco de la película representada por la forma tres en la diapositiva uno de la presentación activa se volverá a mostrar automáticamente cuando la película haya acabado de reproducirse. La forma tres debe ser un objeto de película.

Set objetoOLE = ActivePresentation.Slides(1).Shapes(3)

objetoOLE.AnimationSettings.PlaySettings.RewindMovie = True


Propiedad StopAfterSlides

Devuelve o establece el número de diapositivas que se mostrará antes de que se detenga la reproducción del clip multimedia. Long de Lectura/Escritura.

Comentarios

Para que el valor de la propiedad StopAfterSlides tenga efecto, la propiedad PauseAnimation de la diapositiva especificada debe establecerse como False y la propiedad PlayOnEntry debe establecerse como True.

Se detendrá la reproducción del clip multimedia cuando se haya mostrado el número especificado de diapositivas o cuando el clip llegue a su fin (lo que ocurra primero). El valor 0 (cero) especifica que se detendrá la reproducción del clip después de la diapositiva actual.


Ejemplo de la propiedad StopAfterSlides

Este ejemplo especifica que el clip multimedia representado por la forma tres en la diapositiva uno de la presentación activa se reproducirá automáticamente cuando se produzca la animación, que la presentación con diapositivas continuará mientras se esté reproduciendo el clip multimedia y que se detendrá la reproducción del clip después de que se muestren tres diapositivas o cuando el clip llegue a su fin (lo que ocurra primero). La forma tres debe ser un objeto de sonido o película.

Set objetoOLE = ActivePresentation.Slides(1).Shapes(3)

With objetoOLE.AnimationSettings.PlaySettings

    .PlayOnEntry = True

    .PauseAnimation = False

    .StopAfterSlides = 3

End With


Devolver un objeto de un conjunto

El método Item devuelve un único objeto de un conjunto. En el siguiente ejemplo se establece la variable primeraPres con un objeto Presentation que representa la presentación uno.

Set primeraPres = Presentations.Item(1)

El método Item es el método predeterminado para la mayoría de los conjuntos, de manera que se puede escribir la misma instrucción más brevemente omitiendo la palabra clave Item.

Set primeraPres = Presentations(1)

Para obtener más información acerca de determinado conjunto, consulte el tema de Ayuda de dicho conjunto o el método Item del conjunto.

Objetos con nombre

Aunque normalmente pueden especificarse valores de números enteros con el método Item, quizás sea más aconsejable devolver un objeto por su nombre. A la mayoría de los objetos se les da nombre automáticamente al ser creados. Por ejemplo, a la primera diapositiva que se cree se le dará automáticamente el nombre "Diapositiva1". Si las dos primeras formas que se crean son un rectángulo y una elipse, sus nombres predeterminados serán "Rectángulo 1" y "Elipse 2". Quizás desee dar al objeto un nombre más descriptivo para que después sea más fácil hacer referencia a él. La mayoría de las veces se consigue estableciendo la propiedad Name del objeto. En el siguiente ejemplo se establece un nombre descriptivo para una diapositiva cuando se agrega. Después podrá utilizarse el nombre en lugar del número de índice para hacer referencia a la diapositiva.

ActivePresentation.Slides.Add(1, 1).Name = "Diapositiva de la página principal"

With ActivePresentation.Slides("Diapositiva de la página principal")

    .FollowMasterBackground = False

    .Background.Fill.PresetGradient msoGradientDiagonalDown, 1, msoGradientBrass

End With

Valores de índice predefinidos

Algunos conjuntos tienen valores de índice previamente definidos que pueden utilizarse para devolver objetos. Cada uno de estos valores de índice está representado por una constante. Por ejemplo, se especifica una constante PpTextStyleType con el método Item del conjunto TextStyles para devolver un estilo de texto.

En el siguiente ejemplo se establecen los márgenes de las áreas de texto de las diapositivas de la presentación activa.

With ActivePresentation.SlideMaster.TextStyles(ppBodyStyle).TextFrame

    .MarginBottom = 50

    .MarginLeft = 50

    .MarginRight = 50

    .MarginTop = 50

End With


propiedades y métodos predeterminados

La mayoría de los objetos tienen una propiedad o un método predeterminados. Visual Basic aplica la propiedad o el método predeterminado a un objeto para resolver una expresión que de otro modo no sería válida. Pueden escribirse instrucciones que utilicen propiedades o métodos predeterminados más brevemente omitiendo las palabras clave predeterminadas. Por ejemplo, Item es el método predeterminado para la mayoría de los conjuntos de PowerPoint; por tanto, estas dos instrucciones serían equivalentes:

Presentations.Item(1).Slides.Item(1).Shapes.Item(1).Delete

Presentations(1).Slides(1).Shapes(1).Delete

Nota   En el Examinador de objetos, las propiedades y los métodos predeterminados se identifican con un punto azul además del gráfico de la propiedad o del método que precede al nombre.


Trabajar con formas (objetos de dibujo)

Las formas, u objetos de dibujo, están representados por tres objetos diferentes: el conjunto Shapes, el conjunto ShapeRange y el objeto Shape. En general, el conjunto Shapes se utiliza para crear formas y si se desea recorrer todas las formas de una diapositiva, el objeto Shape se utiliza si se desea modificar una única forma y el conjunto ShapeRange si se desea modificar varias formas de la misma manera que se puede trabajar con varias formas seleccionadas en la interfaz de usuario.

Establecer las propiedades de una forma

Muchas propiedades de formato de las formas no se establecen con propiedades que se apliquen directamente al objeto Shape o ShapeRange. En su lugar, los atributos relacionados con la forma se agrupan en objetos secundarios, como el objeto FillFormat, que contiene todas las propiedades relacionadas con el relleno de la forma, o el objeto LinkFormat, que contiene todas las propiedades que son exclusivas de los objetos OLE vinculados. Para establecer las propiedades de una forma, en primer lugar debe devolver el objeto que representa el conjunto de atributos relacionados con la forma y, a continuación, establecer las propiedades del objeto devuelto. Por ejemplo, la propiedad Fill se utiliza para devolver el objeto FillFormat y, a continuación, se establece la propiedad ForeColor de dicho objeto para establecer el color de primer plano del relleno de la forma especificada, tal como se muestra en el siguiente ejemplo.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes(1).Fill.ForeColor.RGB = RGB(255, 0, 0)

Aplicar una propiedad o un método a varias formas al mismo tiempo

En la interfaz de usuario, hay algunas operaciones que pueden realizarse con varias formas seleccionadas; por ejemplo, se pueden seleccionar varias formas y establecer el relleno de cada una al mismo tiempo. Hay otras operaciones que sólo pueden llevarse a cabo con una única forma seleccionada; por ejemplo, sólo se puede modificar el texto de una forma si una única forma está seleccionada.

En Visual Basic, hay dos maneras de aplicar propiedades y métodos a un conjunto de formas, que permiten realizar con un intervalo de formas cualquier operación que pueda realizarse con una sola, sea o no posible realizar la misma operación en la interfaz de usuario.

•	Si la operación funciona con varias formas seleccionadas en la interfaz de usuario, puede realizar la misma operación en Visual Basic creando un conjunto ShapeRange que contenga las formas con las que desea trabajar y aplicando las propiedades y los métodos correspondientes directamente al conjunto ShapeRange.

•	Si la operación no funciona con varias formas seleccionadas en la interfaz de usuario, podrá realizar la operación en Visual Basic recorriendo el conjunto Shapes o a través de un conjunto ShapeRange que contenga las formas con las que desee trabajar y aplicando las propiedades y los métodos correspondientes directamente a cada uno de los objetos Shape del conjunto.

La mayoría de las propiedades y métodos que se pueden aplicar al objeto Shape y al conjunto ShapeRange fallan si se aplican a cierto tipo de formas. Por ejemplo, la propiedad TextFrame fallará si se aplica a una forma que no puede contener texto. Si no está seguro de que a las formas de un conjunto ShapeRange se les pueda aplicar una propiedad o un método determinados, no los aplique. Si desea aplicar una de estas propiedades o uno de estos métodos a un conjunto de formas, debe recorrer el conjunto y comprobar cada una de las formas para asegurarse de que es un tipo de forma adecuado antes de aplicarle la propiedad o el método.

Aplicar una propiedad o un método a un conjunto ShapeRange

Si puede realizar una operación con varias formas seleccionadas en la interfaz de usuario al mismo tiempo, puede hacerlo mediante programación creando un conjunto ShapeRange y, a continuación, aplicándole las propiedades o los métodos correspondientes. En el siguiente ejemplo se crea un intervalo de formas que contiene las autoformas denominadas "Gran estrella" y "Pequeña estrella" en miDocumento y se les aplica un relleno degradado.

Set miDocumento = ActivePresentation.Slides(1)

Set miIntervalo = miDocumento.Shapes.Range(Array("Gran estrella", "Pequeña estrella"))

miIntervalo.Fill.PresetGradient msoGradientHorizontal, 1, msoGradientBrass

A continuación se presentan instrucciones generales del comportamiento de las propiedades y los métodos cuando se aplican a un conjunto ShapeRange.

•	Aplicar un método a un conjunto es equivalente a aplicarlo a cada objeto Shape de dicho conjunto.

•	Establecer el valor de una propiedad del conjunto es equivalente a establecer el valor de la propiedad de cada forma de dicho intervalo.

•	Una propiedad del conjunto que devuelve una constante devuelve el valor de la propiedad de una forma del conjunto si todas las formas de éste tienen el mismo valor para dicha propiedad. Si no todas las formas del conjunto tienen el mismo valor para la propiedad, devuelve la constante "mixed".

•	Una propiedad del conjunto que devuelve un tipo de información simple, como Long, Single o String, devuelve el valor de la propiedad de una forma si todas las formas del conjunto tienen el mismo valor para dicha propiedad.

•	El valor de algunas propiedades puede devolverse o establecerse sólo si hay exactamente una forma en el conjunto. Si hay varias, se producirá un error de tiempo de ejecución. Normalmente ocurre al devolver o establecer propiedades cuando la acción equivalente en la interfaz de usuario sólo puede realizarse con una única forma, es decir, acciones como la modificación del texto de una forma o de los puntos de una forma libre.

Estas instrucciones también se pueden aplicar cuando se establecen propiedades de formas que están agrupadas en objetos secundarios del conjunto ShapeRange, como el objeto FillFormat. Si el objeto secundario representa operaciones que pueden realizarse en una selección de varios objetos en la interfaz de usuario, se podrá devolver el objeto de un conjunto ShapeRange y establecer sus propiedades. Por ejemplo, puede utilizar la propiedad Fill para devolver el objeto FillFormat que representa los rellenos de todas las formas del conjunto ShapeRange. Al establecer las propiedades del objeto FillFormat se establecerán las mismas propiedades de cada una de las formas del conjunto ShapeRange.

Recorrer un conjunto Shapes o ShapeRange

Aunque no se pueda realizar una operación al mismo tiempo con varias formas en la interfaz de usuario, seleccionándolas y utilizando un comando, se puede ejecutar la acción equivalente mediante programación, recorriendo el conjunto Shapes o a través de un conjunto ShapeRange que contenga las formas con las que desee trabajar y aplicando las propiedades y los métodos correspondientes a cada uno de los objetos Shape del conjunto. En el siguiente ejemplo se recorren todas las formas de miDocumento y se agrega texto a cada una que sea autoforma.

Set miDocumento = ActivePresentation.Slides(1)

For Each form In miDocumento.Shapes

    If form.Type = msoAutoShape Then

            form.TextFrame.TextRange.InsertAfter " (versión 1)"

    End If

Next

En el siguiente ejemplo se crea un conjunto ShapeRange que contiene todas las formas actualmente seleccionadas en la ventana activa y se establece el texto de cada forma del conjunto que lo admita.

For Each form in ActiveWindow.Selection.ShapeRange

    If form.HasTextFrame Then

        form.TextFrame.TextRange = "Inicialmente seleccionada"

    End If

Next

Alinear, distribuir y agrupar formas en un intervalo de formas

Utilice los métodos Align y Distribute para ubicar un conjunto de formas tomándolas a ellas mismas como referencia o con respecto al documento que las contiene. Utilice el método Group o Regroup para obtener una única forma agrupada a partir de un conjunto de formas.


Controlar una aplicación de Microsoft Office desde otra

Si desea ejecutar códigos de una aplicación de Microsoft Office que trabaje con los objetos de otra aplicación, siga estos pasos.

1.	Establezca una referencia con la biblioteca de tipos de la otra aplicación en el cuadro de diálogo Referencias (menú Herramientas). A continuación, se mostrarán los objetos, las propiedades y los métodos en el Examinador de objetos y se comprobará la sintaxis en el momento de la compilación. También puede obtener Ayuda sensible al contexto acerca de ellos.

2.	Declare las variables de objeto que harán referencia a los objetos de la otra aplicación como tipos específicos. Asegúrese de que califica cada tipo con el nombre de la aplicación que proporciona el objeto. Por ejemplo, la siguiente instrucción declara una variable que señalará un documento de Word y otra que hará referencia a una hoja de cálculo de Microsoft Excel.

Dim apWD As Word.Application, libXL As Excel.Workbook

Nota   Debe seguir el procedimiento arriba descrito si desea que el código sea un enlace previo.

1.	Utilice la función CreateObject con el identificador programático de OLE del objeto con el que desee trabajar en la otra aplicación, como se muestra en el siguiente ejemplo. Si desea ver la sesión de la otra aplicación, establezca la propiedad Visible como True.

Dim apWD As Word.Application

Set apWD = CreateObject("Application.Word")

apWd.Visible = True

1.	Aplique propiedades y métodos al objeto contenido en la variable. Por ejemplo, con la siguiente instrucción se crea un nuevo documento de Word.

Dim apWD As Word.Application

Set apWD = CreateObject("Application.Word.8")

apWD.Documents.Add

1.	Cuando haya terminado de trabajar con la otra aplicación, utilice el método Quit para cerrarla, como se muestra en el siguiente ejemplo.

apWd.Quit


enlace previo y posterior

Cuando se crea una variable de objeto en una aplicación que hace referencia a un objeto de otra aplicación, Visual Basic debe comprobar si el objeto existe y si las propiedades o los métodos utilizados con el objeto están bien especificados. Este proceso de comprobación se conoce como enlace. El enlace puede producirse en tiempo de ejecución (enlace posterior) o en el momento de la compilación (enlace previo). El código de enlace posterior es más lento que el código de enlace previo. Para que el código sea de enlace previo y, por tanto, más eficaz, debe establecer una referencia con la biblioteca de tipos que contiene los objetos a los que desea hacer referencia y debe declarar las variables de objeto como tipos específicos.


Usar controles ActiveX en diapositivas

Pueden agregarse controles a las diapositivas para proporcionar un medio sofisticado de intercambiar información con el usuario mientras se esté ejecutando una presentación con diapositivas. Por ejemplo, podría utilizar controles en las diapositivas para permitir que los receptores de una presentación diseñada para ejecutarse en una exposición puedan seleccionar opciones y, a continuación, ejecutar una presentación personalizada según las opciones elegidas.

Para obtener información de carácter general acerca de cómo agregar controles y trabajar con ellos, vea Usar controles ActiveX en un documento y Crear un cuadro de diálogo personalizado.

Tenga en cuenta lo siguiente cuando trabaje con controles en las diapositivas.

•	El control de una diapositiva está en modo Diseño excepto cuando se está ejecutando la presentación.

•	Si desea que el control aparezca en todas las diapositivas de la presentación, agréguelo al patrón de diapositivas.

•	La palabra clave Me de un procedimiento de eventos para un control de una diapositiva hace referencia a la diapositiva, no al control.

Escribir códigos de eventos para los controles de las diapositivas es muy similar a escribir códigos de eventos para los controles de los formularios. En el siguiente procedimiento se establece para el fondo de la diapositiva el botón "cambiarColor" para que se active al hacer clic en dicho botón.

Private Sub cambiarColor_Click()

    With Me

        .FollowMasterBackground = Not .FollowMasterBackground

        .Background.Fill.PresetGradient msoGradientHorizontal, 1, msoGradientBrass

    End With

End Sub

También puede utilizar controles para incorporar en la presentación herramientas de desplazamiento más complejas que las integradas en PowerPoint. Por ejemplo, si agrega los botones "cmdAnterior" y "cmdPosterior" al patrón de diapositivas y escribe el siguiente código detrás, todas las diapositivas que se basen en el patrón y que se establezcan de manera que muestren los gráficos de fondo del patrón contarán con estos botones de desplazamiento de aspecto profesional que estarán activos durante una presentación con diapositivas.

Private Sub cmdAnterior_Click()

    Me.Parent.SlideShowWindow.View.Previous

End Sub

Private Sub cmdPosterior_Click()

    Me.Parent.SlideShowWindow.View.Next

End Sub

Para trabajar con todos los controles ActiveX de una diapositiva sin que se vean afectadas las otras formas de la diapositiva, puede crear un conjunto ShapeRange que sólo contenga controles. Después podrá aplicar propiedades y métodos a todo el conjunto o recorrer el conjunto para trabajar con cada control de forma individual. En el siguiente ejemplo se alinean todos los controles de la diapositiva uno de la presentación activa y se distribuyen en sentido vertical.

With ActivePresentation.Slides(1).Shapes

    númFormas = .Count

    If númFormas > 1 Then

        númControles = 0

        ReDim OrgCtrl(1 To númFormas)

        For i = 1 To númFormas

            If .Item(i).Type = msoOLEControlObject Then

                númControles = númControles + 1

                OrgCtrl(númControles) = .Item(i).Name

            End If

        Next

        If númControles > 1 Then

            ReDim Preserve OrgCtrl(1 To númControles)

            Set intervCtrl = .Range(OrgCtrl)

            intervCtrl.Distribute msoDistributeVertically, True

            intervCtrl.Align msoAlignLefts, True

        End If

    End If

End With


Usar controles ActiveX en un documento

De la misma manera que pueden agregarse controles ActiveX a cuadros de diálogo personalizados, también pueden agregarse controles a un documento si se desea proporcionar al usuario una manera compleja de interactuar directamente con la macro sin la distracción de los cuadros de diálogo. Utilice el siguiente procedimiento para agregar controles ActiveX al documento. Para obtener más información específica acerca de la utilización de controles ActiveX en PowerPoint, vea Usar controles ActiveX en diapositivas.

1.	Agregar controles a un documento

Abra la Cuadro de controles, haga clic en el control que desee agregar y, a continuación, en el documento.

1.	Establecer las propiedades de los controles

Haga clic con el botón secundario del mouse (ratón) en un control en modo Diseño y haga clic en Propiedades para abrir la ventana Propiedades.

1.	Inicializar los controles

Puede inicializar los controles de un procedimiento.

1.	Escribir los procedimientos de los eventos

Todos los controles tienen una serie de eventos definidos de antemano. Por ejemplo, un botón de comandos tiene un evento Click que se ejecuta cuando el usuario hace clic en él. Puede escribir procedimientos de eventos que se ejecuten cuando se produzcan los eventos.

1.	Usar los valores de los controles mientras se ejecuta el código

Algunas propiedades pueden establecerse en tiempo de ejecución.


Crear un cuadro de diálogo personalizado

Realice este procedimiento para crear un cuadro de diálogo personalizado:

1	Crear un UserForm

En el menú Insertar del Editor de Visual Basic, haga clic en UserForm.

2	Agregar controles a un UserForm

Busque el control que desee agregar en el Cuadro de controles y arrástrelo hacia el formulario.

3	Establecer las propiedades de los controles

Haga clic con el botón secundario del mouse (ratón) en un control en modo Diseño y haga clic en el comando Propiedades para abrir la ventana Propiedades.

4	Inicializar los controles

Puede inicializar los controles de un procedimiento antes de presentar un formulario o puede agregar códigos al evento Initialize del formulario.

5	Escribir los procedimientos de los eventos

Todos los controles tienen una serie de eventos definidos de antemano. Por ejemplo, un botón de comandos tiene un evento Click que se ejecuta cuando el usuario hace clic en él. Puede escribir procedimientos de eventos que se ejecuten cuando los eventos se produzcan.

6	Mostrar el cuadro de diálogo

Utilice el método Show para mostrar un UserForm.

7	Usar los valores de los controles mientras se ejecuta el código

Algunas propiedades pueden establecerse en tiempo de ejecución. Los cambios que el usuario realice en el cuadro de diálogo se perderán al cerrarlo.


Crear un UserForm

Para crear un cuadro de diálogo personalizado, debe crear un UserForm.. Para ello, haga clic en el comando UserForm del menú Insertar del Editor de Visual Basic.

Utilice la ventana Propiedades para cambiar el nombre, el comportamiento y el aspecto del formulario. Por ejemplo, para cambiar el título de un formulario, establezca la propiedad Caption.


Agregar controles a un UserForm

Para agregar controles a un formulario de usuario, busque el control que desee agregar en el Cuadro de controles, arrástrelo hacia el formulario y, a continuación, arrastre uno de los controladores de ajuste del control hasta que el esquema tenga el tamaño y la forma que desee.

Nota   Si se vuelve a arrastrar el control, o varios controles "agrupados", desde el formulario hasta el Cuadro de controles, se crea una plantilla de dicho control que puede volver a utilizarse. Se trata de una función práctica para incorporar "aspecto y sensaciones" estándar a las aplicaciones.

Una vez agregados los controles a los formularios, utilice los comandos del menú Formato del Editor de Visual Basic para ajustar la alineación y el espaciado.


Agregar controles a un documento

Para agregar controles a un documento, abra el Cuadro de controles, haga clic en el control que desee agregar y, a continuación, en el documento. Arrastre uno de los controles de ajuste hasta que el esquema del control tenga el tamaño y la forma que desee.

Nota   Si se vuelve a arrastrar el control, o varios controles "agrupados", desde el formulario hasta el Cuadro de controles, se crea una plantilla de dicho control que puede volver a utilizarse. Se trata de una función práctica para incorporar "aspecto y sensaciones" estándar a las aplicaciones.


controles ActiveX

Para obtener más información acerca de un control, seleccione un objeto de la siguiente lista. Para obtener información acerca de los eventos, seleccione un control y haga clic en Eventos en la parte superior del tema.

CheckBox ComboBox CommandButton Frame Image Label ListBox	MultiPage OptionButton ScrollBar SpinButton TabStrip TextBox ToggleButton


Establecer las propiedades de los controles

Algunas propiedades de los controles pueden establecerse en el momento del diseño, antes de que se esté ejecutando ninguna macro. En modo Diseño, haga clic en un control con el botón secundario del mouse (ratón) y haga clic en Propiedades para abrir la ventana Propiedades. Los nombres de las propiedades aparecen en la columna izquierda de la ventana; los valores de las propiedades, en la columna derecha. El valor de una propiedad se establece escribiendo el nuevo valor a la derecha del nombre de la propiedad.


modos de diseño y de ejecución

Microsoft Office y el Editor de Visual Basic disponen de dos modos: modo Diseño y modo Ejecución.

En modo Diseño, pueden diseñarse cuadros de diálogo y controles personalizados y escribirse códigos. Los eventos no se activan ni los procedimientos de los eventos se ejecutan automáticamente en modo Diseño.

En modo Ejecución, puede interactuar con la aplicación igual que lo haría un usuario: se activan los eventos y se ejecutan los procedimientos de los eventos. No es posible modificar códigos en modo Ejecución.


Inicializar propiedades de los controles

Los controles pueden inicializarse en tiempo de ejecución utilizando el código de Visual Basic en una macro. Por ejemplo, puede llenar un cuadro de lista, establecer valores de texto o botones de opciones.

En el siguiente ejemplo se utiliza el método AddItem para agregar información a un cuadro de lista. A continuación, se establece el valor de un cuadro de texto y se muestra el formulario.

Private Sub GetUserName()

    With UserForm1

        .lstRegions.AddItem "Norte"

        .lstRegions.AddItem "Sur"

        .lstRegions.AddItem "Este"

        .lstRegions.AddItem "Oeste"

        .txtSalesPersonID.Text = "00000"

        .Show

        ' ...

    End With

End Sub

También puede utilizar códigos en el evento Initialize de un formulario para establecer los valores iniciales de los controles del formulario. Una de las ventajas de establecer valores de control iniciales en el evento Initialize es que el código de inicio se mantiene con el formulario. Puede copiar el formulario en otro proyecto y, al ejecutar el método Show para mostrar el cuadro de diálogo, se inicializarán los controles.

Private Sub UserForm_Initialize()

    With UserForm1

        With .lstRegions

           .AddItem "Norte"

            .AddItem "Sur"

            .AddItem "Este"

            .AddItem "Oeste"

        End With

        .txtSalesPersonID.Text = "00000"

    End With

End Sub


Eventos de cuadro de diálogo y de control

Después de haber agregado controles al cuadro de diálogo o al documento, se agregarán procedimientos de eventos para determinar cómo responden los controles a las acciones del usuario.

Los formularios de usuario y los controles tienen una serie de eventos definidos de antemano. Por ejemplo, un botón de comando tiene un evento Click que se ejecuta cuando el usuario hace clic en él y los formularios de usuario tienen un evento Initialize que se ejecuta cuando se carga el formulario.

Para escribir un procedimiento de eventos de un control o de un formulario, abra un módulo haciendo doble clic en el formulario o en el control y seleccione el evento del cuadro de lista desplegable Procedure.

Los procedimientos de eventos contienen el nombre del control. Por ejemplo, el nombre del procedimiento del evento Click del botón de comandos denominado Comando1 es Comando1_Click.

Si agrega códigos a un procedimiento de eventos y, a continuación, cambia el nombre del control, el código permanecerá en los procedimientos que tengan el nombre anterior.

Por ejemplo, supongamos que agrega códigos al evento Click de Comando1 y, a continuación, cambia el nombre del control a Comando2. Cuando haga doble clic en Comando2, no verá ningún código en el procedimiento del evento Click. Deberá mover el código de Comando1_Click a Comando2_Click.

Para simplificar el proceso, lo mejor es habituarse a dar el nombre correcto a los controles antes de escribir el código.


Mostrar un cuadro de diálogo personalizado

Para probar el cuadro de diálogo en el Editor de Visual Basic, haga clic en Ejecutar Sub/UserForm en el menú Ejecutar del Editor.

Para abrir un cuadro de diálogo de Visual Basic, utilice el método Show. En el siguiente ejemplo se abre el cuadro de diálogo denominado UserForm1.

Private Sub nombreDeUsuario()

UserForm1.Show

End Sub


Usar los valores de los controles mientras se ejecuta el código

Algunas propiedades de los controles pueden establecerse y devolverse mientras se ejecuta el código de Visual Basic. En el siguiente ejemplo se establece la propiedad Text de un cuadro de texto como "Hola".

TextBox1.Text = "Hola"

Los datos que el usuario escribe en el formulario se pierden al cerrarlo. Si devuelve los valores de los controles de un formulario después de descargarlo, obtendrá los valores iniciales de los controles en lugar de los valores que escribió el usuario.

Si desea guardar la información de un formulario, puede hacerlo en variables a nivel de módulo mientras el formulario todavía esté ejecutándose. En el siguiente ejemplo se abre un formulario y se guarda su información.

'Código en el módulo que declara variables públicas

Public Región As String

Public idVendedorInt As Integer

Public blnCancelado As Boolean

'Código en el formulario

Private Sub cmdCancelar_Click()

    Module1.blnCancelado = True

    Unload Me

End Sub

Private Sub cmdAceptar_Click()

    'Guarda información

    idVendedorInt = txtIdVendedor.Text

    Región = lstRegiones.List(lstRegiones.ListIndex)

    Module1.blnCancelado = False

    Unload Me

End Sub

Private Sub UserForm_Initialize()

    Module1.blnCancelado = True

End Sub

'Código del módulo que abre el formulario

Sub LaunchSalesPersonForm()

    frmVentas.Show

    If blnCancelado = True Then

        MsgBox "Operación cancelada", vbExclamation

    Else

        MsgBox "La Id. del vendedor es: " &

            idVendedorInt & _

            "La región es: " & Región

    End If

End Sub


Objetos de Microsoft PowerPoint


Objetos de Microsoft PowerPoint (Presentation)


Objetos de Microsoft PowerPoint (Shape)


Identificadores programáticos de OLE (Microsoft PowerPoint)

Los identificadores programáticos de OLE, a veces denominados ProgID, se utilizan para crear un objeto Automation. Utilice el identificador programático de OLE "PowerPoint.Application.8" para crear un objeto PowerPoint 97. Utilice "PowerPoint.Application" sin número de versión para crear un objeto en la versión de PowerPoint más reciente que esté disponible en el equipo donde se está ejecutando la macro.


No hay Ayuda disponible para este tema

No se puede mostrar el tema de Ayuda porque no se ha encontrado o no se ha instalado la Ayuda de Visual Basic para aplicaciones.

Para instalar la Ayuda de Visual Basic para aplicaciones

1.	Ejecute el programa de instalación de Microsoft Office 97 y haga clic en Agregar o quitar.

2.	Haga clic en Microsoft PowerPoint y, a continuación, en Modificar opción.

3.	Haga clic en Ayuda y, a continuación, en Modificar opción.

4.	Asegúrese de que esté activada la casilla de verificación Ayuda en pantalla de Visual Basic.

5.	Continúe con la instalación.


No hay Ayuda disponible para este tema

No se puede mostrar el tema de Ayuda porque no se ha encontrado o no se ha instalado la Ayuda de Microsoft Office Visual Basic.

Para instalar la Ayuda de Visual Basic de Microsoft Office

1.	Ejecute el programa de instalación de Microsoft Office 97 y haga clic en Agregar o quitar.

2.	Haga clic en Microsoft PowerPoint y, a continuación, en Modificar opción.

3.	Haga clic en Ayuda y, a continuación, en Modificar opción.

4.	Asegúrese de que está activada la casilla de verificación Ayuda en pantalla para Visual Basic.

5.	Continúe con la instalación.


No hay Ayuda disponible para este tema

No se puede mostrar el tema de Ayuda porque no se ha encontrado o no se ha instalado la Ayuda de Microsoft PowerPoint.

Para instalar la Ayuda de Microsoft PowerPoint

1.	Ejecute el programa de instalación de Microsoft Office 97 y haga clic en Agregar o quitar.

2.	Haga clic en Microsoft PowerPoint y, a continuación, en Modificar opción.

3.	Haga clic en Ayuda y, a continuación, en Modificar opción.

4.	Asegúrese de que está activada la casilla de verificación Ayuda de Microsoft PowerPoint.

5.	Continúe con la instalación.


Método AddTitleMaster

Agrega un patrón de título a la presentación especificada. Devuelve un objeto Master que representa el patrón de título. Si la presentación ya tiene un patrón de título, se producirá un error.

Sintaxis

expression.AddTitleMaster

expresión   Requerido. Una expresión que devuelve un objeto Presentation.


Ejemplo del método AddTitleMaster

Este ejemplo agrega un patrón de título a la presentación activa si aún no lo tiene.

With Application.ActivePresentation

    If Not .HasTitleMaster Then .AddTitleMaster

End With


Método AddToFavorites

Objeto Presentation: Agrega un acceso directo a la selección actual de la presentación especificada en la carpeta Favoritos de la carpeta de programas de Windows.

Objeto Hyperlink: Agrega un acceso directo a la selección actual del documento de destino del hipervínculo especificado en la carpeta Favoritos de la carpeta de programas de Windows.

Sintaxis

expresión.AddToFavorites

expresión   Requerido. Una expresión que devuelve un objeto Presentation o Hyperlink.

Comentarios

El nombre del acceso directo es el alias del documento, si es que está disponible; de lo contrario, el nombre del acceso directo es el que aparece en HLINK.DLL.


Ejemplo del método AddToFavorites

Este ejemplo agrega un hipervínculo a la presentación activa de la carpeta Favoritos de la carpeta de programas de Windows.

Application.ActivePresentation.AddToFavorites


Método ApplyTemplate

Aplica una plantilla de diseño a la presentación especificada.

Sintaxis

expresión.ApplyTemplate(NombreDeArchivo)

expresión   Requerido. Una expresión que devuelve un objeto Presentation.

NombreDeArchivo   String requerido. Especifica el nombre de la plantilla de diseño.


Ejemplo del método ApplyTemplate

Este ejemplo aplica la plantilla de diseño "Chispa" a la presentación activa.

Application.ActivePresentation.ApplyTemplate _

    "c:\microsoft office\plantillas\diseños de presentaciones\chispa.pot"


Propiedad BuiltInDocumentProperties

Devuelve un conjunto DocumentProperties que representa todas las propiedades integradas del documento para la presentación especificada. Es de sólo lectura.

Para más información acerca de cómo obtener un único componente de un conjunto, vea Devolver un objeto de un conjunto.

Comentarios

Utilice la propiedad CustomDocumentProperties para devolver el conjunto de las propiedades de documento personalizadas.


Ejemplo de la propiedad BuiltInDocumentProperties

Este ejemplo muestra los nombres de todas las propiedades integradas del documento para la presentación activa.

For Each p In Application.ActivePresentation.BuiltInDocumentProperties

    propiedad = propiedad & p.Name & Chr$(13)

Next

MsgBox propiedad

Este ejemplo establece la propiedad integrada "Category" para la presentación activa si el autor de la presentación es Carlos Saavedra.

With Application.ActivePresentation.BuiltInDocumentProperties

    If .Item("author").Value = "Carlos Saavedra" Then

        .Item("category").Value = "Escritura creativa"

    End If

End With


Propiedad ColorSchemes

Devuelve un conjunto ColorSchemes que representa las combinaciones de colores de la presentación especificada. Es de sólo lectura.


Ejemplo de la propiedad ColorSchemes

Este ejemplo establece el color de fondo de la tercera combinación de colores de la presentación activa y aplica la combinación de colores a todas las diapositivas de la presentación creadas a partir del patrón de diapositivas.

With ActivePresentation

    Set cc1 = .ColorSchemes(3)

    cc1.Colors(ppBackground).RGB = RGB(128, 128, 0)

    .SlideMaster.ColorScheme = cc1

End With


Propiedad Container

Devuelve el objeto que contiene la presentación incrustada especificada. Object de sólo lectura.

Nota   Si el contenedor no admite Automatización, o si la presentación especificada no está incrustada, esta propiedad fallará.


Ejemplo de la propiedad Container

Este ejemplo oculta la segunda sección del cuaderno que contiene la presentación activa (suponiendo que la presentación activa está incrustada en un cuaderno de Office). La propiedad Container de la presentación devuelve un objeto Section, y la propiedad Parent del objeto Section devuelve un objeto Binder.

Application.ActivePresentation.Container.Parent.Sections(2) _

    .Visible = False


Propiedad CustomDocumentProperties

Devuelve un conjunto DocumentProperties que representa todas las propiedades del documento personalizadas para la presentación especificada. Es de sólo lectura.

Para más información acerca de cómo obtener un único componente de un conjunto, vea Devolver un objeto de un conjunto.

Comentarios

Utilice la propiedad BuiltInDocumentProperties para devolver el conjunto de propiedades de documento integradas.


Ejemplo de la propiedad CustomDocumentProperties

Este ejemplo agrega una propiedad estática personalizada denominada "Completa" para la presentación activa.

Application.ActivePresentation.CustomDocumentProperties _

    .Add Name:="Completa", LinkToContent:=False, _

    Type:=msoPropertyTypeBoolean, Value:=False

Este ejemplo imprime la presentación activa si el valor de la propiedad personalizada "Completa" es True.

With Application.ActivePresentation

    If .CustomDocumentProperties("completa") Then .PrintOut

End With


Propiedad DefaultShape

Devuelve un objeto Shape que representa la forma predeterminada de la presentación. Es de sólo lectura.


Ejemplo de la propiedad DefaultShape

Este ejemplo agrega una forma a la diapositiva número uno de la presentación activa, establece en rojo el color de relleno predeterminado para las formas de la presentación y después agrega otra forma. A esta segunda forma se le aplicará automáticamente el nuevo color de relleno predeterminado.

With Application.ActivePresentation

    Set formasDiap1 = .Slides(1).Shapes

    formasDiap1.AddShape msoShape16pointStar, 20, 20, 100, 100

    .DefaultShape.Fill.ForeColor.RGB = RGB(255, 0, 0)

    formasDiap1.AddShape msoShape16pointStar, 150, 20, 100, 100

End With


Propiedad ExtraColors

Devuelve un objeto ExtraColors que representa los colores extra disponibles en la presentación especificada. Es de sólo lectura.


Ejemplo de la propiedad ExtraColors

Este ejemplo agrega un color extra a la presentación activa (si el color no se ha agregado todavía) y convierte ese color en el color de fondo de la combinación de colores estándar.

With Application.ActivePresentation

    idx = .ExtraColors.Add(RGB(255, 0, 0))

    .ColorSchemes(1).Item(ppBackColor) = .ExtraColors(idx)

End With


Método FollowHyperlink

Muestra un documento en caché, si ya se ha transferido. En caso contrario, este método resuelve el hipervínculo, transfiere el documento de destino y lo muestra en la aplicación apropiada.

Sintaxis

expresion.FollowHyperlink(Address, SubAddress, NewWindow, AddHistory, ExtraInfo, Method)

expresión   Requerido. Una expresión que devuelve un objeto Presentation.

Address   String requerido. La dirección del documento de destino.

SubAddress   String opcional. La ubicación en el documento de destino. De forma predeterminada, este argumento es una cadena vacía.

NewWindow   Long opcional. True para tener la aplicación de destino abierta en una ventana nueva. El valor predeterminado es False.

AddHistory   Long opcional. No se usa. Reservado para un uso futuro.

ExtraInfo   String opcional. Cadena o matriz de bytes que especifica información para HTTP. Este argumento puede utilizarse, por ejemplo, para especificar las coordenadas de un mapa de imágenes o el contenido de un formulario. También puede indicar el nombre de un archivo FAT. El argumento Method determina la forma en que se trata esta información extra.

Method   Long opcional. Especifica la forma en que se trata la información adicional para HTTP especificada por el argumento ExtraInfo. Puede ser una de las siguientes constantes MsoFollowMethod:

Constante	Descripción
msoGet	ExtraInfo es un tipo de dato String que se agrega a la dirección. Es el valor predeterminado.
msoPost	ExtraInfo se envía como String o matriz de bytes.
msoPostFile	ExtraInfo especifica un nombre de archivo FAT; el contenido del archivo se envía.


Ejemplo del método FollowHyperlink

Este ejemplo carga el documento en www.visitame.com en una ventana nueva y lo agrega a la carpeta historial

Application.ActivePresentation.FollowHyperlink _

    Address:="http://www.visitame.com", NewWindow:=True, AddToHistory:=True


Propiedad FullName

Devuelve el nombre del complemento especificado o de la presentación guardada, incluidos la ruta, el separador del sistema del archivo actual y la extensión del nombre del archivo. String de sólo lectura.

Comentarios

Esta propiedad es equivalente a Path, seguida del separador de sistema del archivo actual y de la propiedad Name.


Ejemplo de la propiedad FullName

Este ejemplo muestra la ruta de acceso y el nombre de archivo de todos los complementos disponibles.

For Each a In Application.AddIns

MsgBox a.FullName

Next a

Este ejemplo muestra la ruta de acceso y el nombre de archivo de la presentación activa (suponiendo que se haya guardado).

MsgBox Application.ActivePresentation.FullName


Propiedad HandoutMaster

Devuelve un objeto Master que representa el patrón de documentos. Es de sólo lectura.


Ejemplo de la propiedad HandoutMaster

Este ejemplo establece la trama de fondo del patrón de documentos de la presentación activa.

Application.ActivePresentation.HandoutMaster.Background.Fill _

    .Patterned msoPatternDarkHorizontal


Propiedad HasTitleMaster

True si la presentación especificada tiene un patrón de título. Long de sólo lectura.


Ejemplo de la propiedad HasTitleMaster

Este ejemplo agrega un patrón de título a la presentación activa si aún no lo tiene.

With Application.ActivePresentation

    If Not .HasTitleMaster Then .AddTitleMaster

End With


Propiedad LayoutDirection

Sólo para las versiones de PowerPoint de Oriente Medio. Devuelve o establece la dirección del diseño para la interfaz de usuario. Puede ser una de las siguientes constantes PpDirection: ppDirectionLeftToRight, ppDirectionMixed o ppDirectionRightToLeft. Long de Lectura/Escritura.


Ejemplo de la propiedad LayoutDirection

Este ejemplo establece la dirección del diseño como de derecha a izquierda. Para utilizar esta propiedad, debe tener una versión de PowerPoint de Oriente Medio.

Application.ActivePresentation.LayoutDirection = ppDirectionRightToLeft


Propiedad NotesMaster

Devuelve un objeto Master que representa el patrón de notas. Es de sólo lectura.


Ejemplo de la propiedad NotesMaster

Este ejemplo establece el texto del encabezado y del pie de página del patrón de notas de la presentación activa.

With Application.ActivePresentation.NotesMaster.HeadersFooters

    .Header.Text = "Principios del empleado"

    .Footer.Text = "Volcano Coffee"

End With


Propiedad PageSetup

Devuelve un objeto PageSetup cuyas propiedades controlan los atributos de configuración de las diapositivas de la presentación especificada. Es de sólo lectura.


Ejemplo de la propiedad PageSetup

El ejemplo siguiente establece el tamaño y la orientación de las diapositivas de la presentación denominada "Pres1."

With Presentations("pres1").PageSetup

    .SlideSize = ppSlideSize35MM

    .SlideOrientation = msoOrientationHorizontal

End With


Propiedad PrintOptions

Devuelve un objeto PrintOptions que representa las opciones de impresión que se guardan con la presentación especificada. Es de sólo lectura.


Ejemplo de la propiedad PrintOptions

Este ejemplo hace que se impriman las diapositivas ocultas de la presentación activa y ajusta la escala de las diapositivas impresas para adaptar el tamaño del papel.

With Application.ActivePresentation

    With .PrintOptions

        .PrintHiddenSlides = True

        .FitToPage = True

    End With

    .PrintOut

End With


Método PrintOut

Imprime la presentación especificada.

Sintaxis

expresión.PrintOut(From, To, PrintToFile, Copies, Collate)

expresión   Requerido. Una expresión que devuelve un objeto Presentation.

From   Long opcional. El número de la primera página que se va a imprimir. Si se omite este argumento, la impresión se inicia al comienzo de la presentación. Al especificar los argumentos To y From, se establece el contenido del objeto PrintRanges y el valor de la propiedad the RangeType de la presentación.

To   Long opcional. El número de la última página que se va a imprimir. Si se omite este argumento, la impresión continúa hasta el final de la presentación. Al especificar los argumentos To y From, se establece el contenido del objeto PrintRanges y el valor de la propiedad the RangeType de la presentación.

PrintToFile   String opcional. El nombre del archivo en que se va a imprimir. Si especifica este argumento, el archivo se imprime en un archivo en lugar de enviarse a una impresora. Si se omite este argumento, el archivo se envía a una impresora.

Copies   Long opcional. El número de copias que se van a imprimir. Si se omite este argumento, se imprimirá una sola copia. Al especificar este argumento, se establece el valor de la propiedad NumberOfCopies.

Collate   Long opcional. True para imprimir una copia completa de la presentación antes de que se imprima la primera página de la copia siguiente. Si se omite este argumento, se intercalarán varias copias. Al especifiar este argumento, se establece el valor de la propiedad Collate.


Ejemplo del método PrintOut

Este ejemplo imprime dos copias no intercaladas de cada diapositiva, visible u oculta, de la diapositiva dos a la cinco de la presentación activa.

With Application.ActivePresentation

    .PrintOptions.PrintHiddenSlides = True

    .PrintOut From:=2, To:=5, Copies:=2, Collate:=False

End With

Este ejemplo imprime una sola copia de todas las diapositivas de la presentación activa en el archivo ImpPrueb.prn.

Application.ActivePresentation.PrintOut _

    PrintToFile:="ImpPrueb"


Propiedad ReadOnly

True si la presentación especificada es de sólo lectura. Long de sólo lectura.


Ejemplo de la propiedad ReadOnly

Si la presentación activa es de sólo lectura, este ejemplo la guardará como Archivo1.ppt.

With Application.ActivePresentation

    If .ReadOnly Then .SaveAs FileName:="Archivo1"

End With


Método Reload

Carga de nuevo una presentación en caché resolviendo el hipervínculo con el libro y transfiriéndolo. Sólo está disponible con documentos en caché (no puede utilizarse con archivos FAT).

Sintaxis

expresión.Reload

expresión   Requerida. Una expresión que devuelve un objeto Presentation.


Ejemplo del método Reload

Este ejemplo carga de nuevo la presentación PresPrueba.ppt.

Presentations("PresPrueba").Reload


Método Save

Guarda la presentación especificada.

Sintaxis

expresión.Save

expresión   Requerida. Una expresión que devuelve un objeto Presentation.

Comentarios

Utilice el método SaveAs para guardar una presentación que no se ha guardado previamente. Para determinar si una presentación se ha guardado, compruebe que no está vacío el valor de la propiedad FullName o Path. Si ya existe en el disco un documento con el mismo nombre que el de la presentación especificada, ese documento se sobrescribirá. No se mostrará ningún mensaje de advertencia.

Para marcar la presentación como guardada sin escribirla en el disco, establezca la propiedad Saved como True.


Ejemplo del método Save

Este ejemplo guarda la presentación activa si se ha cambiado desde la última vez que se guardó.

With Application.ActivePresentation

    If Not .Saved And .Path <> "" Then .Save

End With


Método SaveAs

Guarda una presentación que nunca se ha guardado, o guarda una presentación previamente guardada con otro nombre.

Sintaxis

expresión.SaveAs(Filename, FileFormat, EmbedFonts)

expresión   Requerida. Una expresión que devuelve un objeto Presentation.

Filename   String requerida. Especifica el nombre con que se va a guardar el archivo. Si no se incluye una ruta completa, PowerPoint guarda el archivo en la carpeta actual.

FileFormat   Long opcional. Especifica el formato del archivo guardado. Puede ser una de las siguientes constantes PpSaveAsFileType: ppSaveAsAddIn, ppSaveAsPowerPoint3, ppSaveAsPowerPoint4, ppSaveAsPowerPoint7, ppSaveAsPresentation, ppSaveAsRTF o ppSaveAsTemplate. Si se omite este argumento, el archivo se guarda en el formato de una presentación de la versión actual de PowerPoint (ppSaveAsPresentation).

EmbedFonts   Long opcional. True para que PowerPoint incruste las fuentes TrueType en la presentación guardada. El valor predeterminado es False.


Ejemplo del método SaveAs

Este ejemplo guarda una copia de la presentación activa con el nombre "Copia del nuevo formato.ppt". De forma predeterminada, esta copia se guarda en el formato de una presentación de la versión actual de PowerPoint. Entonces la presentación se guarda como un archivo PowerPoint 4.0 denominado "Copia del formato anterior".

With Application.ActivePresentation

.SaveCopyAs "Copia del nuevo formato"

.SaveAs "Copia del formato anterior", ppSaveAsPowerPoint4

End With


Método SaveCopyAs

Guarda una copia de la presentación especificada en un archivo sin modificar la original.

Sintaxis

expresión.SaveCopyAs(FileName)

expresión   Requerida. Una expresión que devuelve un objeto Presentation.

Filename   String requerida. Especifica el nombre con que se va a guardar el archivo. Si no se incluye una ruta completa, PowerPoint guarda el archivo en la carpeta actual.


Ejemplo del método SaveCopyAs

Este ejemplo guarda una copia de la presentación activa con el nombre "Copia del nuevo formato.ppt". De forma predeterminada, esta copia se guarda en el formato de una presentación de la versión actual de PowerPoint. Entonces la presentación se guarda como un archivo PowerPoint 4.0 denominado "Copia del formato anterior".

With Application.ActivePresentation

.SaveCopyAs "Copia del nuevo formato"

.SaveAs "Copia del formato anterior", ppSaveAsPowerPoint4

End With


Propiedad Saved

True si no se han efectuado cambios en una presentación desde la última vez que se guardó. Long de Lectura/Escritura.

Comentarios

Si la propiedad Saved de una presentación modificada se establece como True, no se pedirá al usuario que guarde los cambios cuando cierre la presentación, y todos los cambios efectuados en ella desde la última vez que se guardó se perderán.


Ejemplo de la propiedad Saved

Este ejemplo guarda la presentación activa si se ha cambiado desde la última vez que se guardó.

With Application.ActivePresentation

    If Not .Saved And .Path <> "" Then .Save

End With


Propiedad SlideMaster

Devuelve un objeto Master que representa el patrón de diapositivas. Es de sólo lectura.


Ejemplo de la propiedad SlideMaster

Este ejemplo establece el modelo del fondo del patrón de diapositivas de la presentación activa.

Application.ActivePresentation.SlideMaster.Background.Fill _

    .PresetTextured msoTextureGreenMarble


Propiedad Slides

Devuelve un conjunto Slides que representa todas las diapositivas de la presentación especificada. Es de sólo lectura.


Ejemplo de la propiedad Slides

Este ejemplo agrega una diapositiva a la presentación activa.

Application.ActivePresentation.Slides.Add 1, ppLayoutTitle


Propiedad SlideShowSettings

Devuelve un objeto SlideShowSettings que representa la configuración de la presentación con diapositivas de la presentación especificada. Es de sólo lectura.


Ejemplo de la propiedad SlideShowSettings

Este ejemplo inicia una presentación con diapositivas prevista para que la realice un orador. La presentación con diapositivas se ejecutará con la animación y la narración desactivadas.

With Application.ActivePresentation.SlideShowSettings

    .ShowType = ppShowTypeSpeaker

    .ShowWithNarration = False

    .ShowWithAnimation = False

    .Run

End With


Propiedad TemplateName

Devuelve el nombre de la plantilla de diseño asociada con la presentación especificada. String de sólo lectura.

Comentarios

La cadena devuelta incluye la extensión del nombre de archivo MS-DOS (para tipos de archivos que están registrados) pero no incluye la ruta completa.


Ejemplo de la propiedad TemplateName

El ejemplo siguiente aplica la plantilla de diseño Chispa.pot a la presentación Pres1.ppt si aún no se ha aplicado.

With Presentations("pres1.ppt")

    If .TemplateName <> "chispa.pot" Then

        .ApplyTemplate "c:\microsoft office\plantillas" & _

            "\diseños de presentaciones\chispa.pot"

    End If

End With


Propiedad TitleMaster

Devuelve un objeto Master que representa el patrón de título de la presentación especificada. Si la presentación no tiene un patrón de título, se producirá un error. Es de sólo lectura.

Comentarios

Utilice el método AddTitleMaster para agregar un patrón de título a una presentación.


Ejemplo de la propiedad TitleMaster

Si la presentación activa tiene un patrón de título, este ejemplo establece el texto del pie de página del patrón de título.

With Application.ActivePresentation

    If .HasTitleMaster Then

        .TitleMaster.HeadersFooters.Footer.Text = "Introducción"

    End If

End With


Propiedad Fonts

Devuelve un conjunto Fonts que representa todas las fuentes utilizadas en la presentación especificada. Es de sólo lectura.


Ejemplo de la propiedad Fonts

Este ejemplo reemplaza la fuente Times New Roman por la fuente Courier en la presentación activa.

Application.ActivePresentation.Fonts _

    .Replace "Times New Roman", "Courier"


Método Add (conjunto Presentations)

Crea una presentación. Devuelve un objeto Presentation que representa la nueva presentación.

Sintaxis

expresión.Add(WithWindow)

expresión   Requerido. Una expresión que devuelve un conjunto Presentations.

WithWindow   Long opcional. True para crear la presentación en una ventana visible. Si este argumento es False, la nueva presentación no estará visible. El valor predeterminado es True.


Ejemplo del método Add (conjunto Presentations)

Este ejemplo crea una presentación, le agrega una diapositiva y después guarda la presentación.

With Presentations.Add

    .Slides.Add 1, ppLayoutTitle

    .SaveAs "Ejemplo"

End With


Método Open

Conjunto Presentations: Abre la presentación especificada. Devuelve un objeto Presentation que representa la presentación abierta.

Sintaxis 1

expresión.Open(FileName, ReadOnly, Untitled, WithWindow)

expresión   Requerida. Una expresión que devuelve un conjunto Presentations.

FileName   String requerida. El nombre del archivo que se va a abrir

ReadOnly   Long opcional. True para abrir el archivo con el estado de sólo lectura. Si se omite este argumento, el archivo se abrirá con el estado de Lectura/Escritura.

Untitled   Long opcional. True para abrir el archivo sin título. Esto equivale a crear una copia del archivo. Si no se especifica este argumento, el nombre del archivo se convierte automáticamente en el título de la presentación abierta.

WithWindow   Long opcional. True para abrir el archivo en una ventana visible. False para ocultar la presentación abierta. El valor predeterminado es True.


Ejemplo del método Open

Este ejemplo abre una presentación con el estado de sólo lectura.

Presentations.Open FileName:="c:\Mis documentos\pres1.ppt", _

    ReadOnly:=True


Propiedad Collate

True si se imprime una copia completa de la presentación especificada antes de que se imprima la primera página de la siguiente copia. El valor predeterminado es True. Long de Lectura/Escritura.

Comentarios

Al especificar un valor para el argumento Collate del método PrintOut, se establece el valor de esta propiedad.


Ejemplo de la propiedad Collate

Este ejemplo imprime tres copias intercaladas de la presentación activa.

With ActivePresentation.PrintOptions

    .NumberOfCopies = 3

    .Collate = True

    .Parent.PrintOut

End With


Propiedad FitToPage

True si se va a aplicar una escala a las diapositivas especificadas de forma que llenen la página en la que se imprimen, independientemente de los valores de los cuadros Alto y Ancho en el cuadro de diálogo Configurar página (menú Archivo). False si las diapositivas van a tener las dimensiones especificadas en el cuadro de diálogo Configurar página, se ajusten o no a la página en la que se van a imprimir. El valor predeterminado es False. Long de Lectura/Escritura.


Ejemplo de la propiedad FitToPage

Este ejemplo imprime la presentación activa y aplica una escala a cada diapositiva para que se ajuste a la página impresa.

With ActivePresentation

    .PrintOptions.FitToPage = True

    .PrintOut

End With


Propiedad FrameSlides

True si se inserta un marco delgado alrededor del borde de las diapositivas impresas. Se aplica a documentos, diapositivas y páginas de notas impresos. El valor predeterminado es False. Long de Lectura/Escritura.


Ejemplo de la propiedad FrameSlides

Este ejemplo imprime la presentación activa con un marco que rodea cada diapositiva.

With ActivePresentation

    .PrintOptions.FrameSlides = True

    .PrintOut

End With


Propiedad NumberOfCopies

Devuelve o establece el número de copias de la presentación que debe imprimirse. El valor predeterminado es 1. Long de Lectura/Escritura.

Comentarios

Al especificar un valor para el argumento Copies del método PrintOut, se establece el valor de esta propiedad.


Ejemplo de la propiedad NumberOfCopies

Este ejemplo imprime tres copias intercaladas de la presentación activa.

With ActivePresentation.PrintOptions

    .NumberOfCopies = 3

    .Collate = True

    .Parent.PrintOut

End With


Propiedad OutputType

Devuelve o establece un valor que indica el componente de la presentación que debe imprimirse (diapositivas, documentos, páginas de notas o esquema). Puede ser una de las siguientes constantes PpPrintOutputType: ppPrintOutputBuildSlides, ppPrintOutputNotesPages, ppPrintOutputOutline, ppPrintOutputSixSlideHandouts, ppPrintOutputSlides, ppPrintOutputThreeSlideHandouts o ppPrintOutputTwoSlideHandouts. El valor predeterminado es ppPrintOutputSlides. Long de Lectura/Escritura.


Ejemplo de la propiedad OutputType

Este ejemplo imprime en una página documentos de la presentación activa con seis diapositivas.

With ActivePresentation

    .PrintOptions.OutputType = ppPrintOutputSixSlideHandouts

    .PrintOut

End With


Propiedad PrintHiddenSlides

True si van a imprimirse las diapositivas ocultas de la presentación especificada. El valor predeterminado es False. Long de Lectura/Escritura.


Ejemplo de la propiedad PrintHiddenSlides

Este ejemplo imprime todas las diapositivas, visibles u ocultas, de la presentación activa.

With ActivePresentation

    .PrintOptions.PrintHiddenSlides = True

    .PrintOut

End With


Propiedad PrintInBackground

True si la presentación especificada se imprime en segundo plano, lo que significa que puede continuar trabajando mientras se realiza la impresión. El valor predeterminado es True. Long de Lectura/Escritura.


Ejemplo de la propiedad PrintInBackground

Este ejemplo imprime la presentación activa en segundo plano.

With ActivePresentation

    .PrintOptions.PrintInBackground = True

    .PrintOut

End With


Propiedad Ranges

Devuelve el objeto PrintRanges, que representa los intervalos de diapositivas de la presentación que se imprimirán. Es de sólo lectura.

Comentarios

Si no desea imprimir una presentación completa, debe utilizar el método Add con el fin de crear un objeto PrintRange para cada serie consecutiva de diapositivas que desea imprimir. Por ejemplo, si desea imprimir la diapositiva 1, el intervalo de la diapositiva 3 a la 5 y las diapositivas 8 y 9 de la presentación especificada, debe crear tres objetos PrintRange: uno que represente la diapositiva 1; uno que represente el intervalo de la diapositiva 3 a la 5 y uno que represente las diapositivas 8 y 9. Para obtener más información, vea el ejemplo que se ofrece para esta propiedad.

La propiedad RangeType debe establecerse como ppPrintSlideRange para que se apliquen los intervalos del conjunto PrintRanges.

Para borrar todos los intervalos de impresión existentes del conjunto PrintRanges, utilice el método ClearAll.

Al especificar un valor para los argumentos To y From del método PrintOut, se establece el contenido del objeto PrintRanges.


Ejemplo de la propiedad Ranges

Este ejemplo imprime la diapositiva 1, el intervalo de la diapositiva 3 a la 5 y las diapositivas 8 y 9 de la presentación activa.

With ActivePresentation

    With .PrintOptions

        .RangeType = ppPrintSlideRange

        With .Ranges

            .Add 1, 1

            .Add 3, 5

            .Add 8, 9

        End With

    End With

    .PrintOut

End With


Propiedad RangeType

Objeto PrintOptions: Devuelve o establece el tipo de intervalo de impresión para la presentación. Puede ser una de las siguientes constantes PpPrintRangeType: ppPrintAll, ppPrintCurrent, ppPrintNamedSlideShow, ppPrintSelection o ppPrintSlideRange. Long de Lectura/Escritura.

Objeto SlideShowSettings: Devuelve o establece el tipo de presentación con diapositivas que se va a ejecutar. Puede ser una de las siguientes constantes PpSlideShowRangeType: ppShowAll, ppShowNamedSlideShow o ppShowSlideRange. Long de Lectura/Escritura.

Comentarios

Para imprimir los intervalos de diapositivas que ha definido en el conjunto PrintRanges, en primer lugar debe establecer la propiedad RangeType como ppPrintSlideRange. Si establece RangeType con un valor diferente a ppPrintSlideRange, no se aplicarán los intervalos que ha definido en el conjunto PrintRanges. Sin embargo, el contenido del conjunto PrintRanges no se ve afectado de ningún modo. Esto es, si define unos intervalos de impresión, establece la propiedad RangeType con un valor distinto de ppPrintSlideRange y después vuelve a establecer RangeType como ppPrintSlideRange, los intervalos de impresión definidos antes permanecerán invariables.

Al especificar un valor para los argumentos To y From del método PrintOut, se establece el contenido del objeto.


Ejemplo de la propiedad RangeType

Este ejemplo imprime la diapositiva actual de la presentación activa.

With ActivePresentation

    .PrintOptions.RangeType = ppPrintCurrent

    .PrintOut

End With

Este ejemplo ejecuta una presentación con diapositivas denominada "Presentación rápida."

With ActivePresentation.SlideShowSettings

    .RangeType = ppShowNamedSlideShow

    .SlideShowName = "Presentación Rápida"

    .Run

End With


Propiedad End

Devuelve el número de la última diapositiva en el intervalo de impresión especificado. Long de sólo lectura.


Ejemplo de la propiedad End

Este ejemplo muestra un mensaje que indica el primer y el último número de diapositiva del intervalo de impresión número uno de la presentación activa.

With ActivePresentation.PrintOptions.Ranges

    If .Count > 0 Then

        With .Item(1)

            MsgBox "El intervalo de impresión 1 comienza en la diapositiva " & .Start & _

                " y termina en la diapositiva " & .End

        End With

    End If

End With


Propiedad Start

Objeto PrintRange: Devuelve el número de la primera diapositiva del intervalo de diapositivas que debe imprimirse. Long de sólo lectura.

Objeto TextRange: Devuelve la posición del primer carácter en el intervalo de texto especificado con respecto al primer carácter de la forma que contiene el texto. Long de sólo lectura.


Ejemplo de la propiedad Start

Este ejemplo muestra un mensaje que indica el primer y el último número de diapositiva del intervalo de impresión número uno de la presentación activa.

With ActivePresentation.PrintOptions.Ranges

    If .Count > 0 Then

        With .Item(1)

            MsgBox "El intervalo de impresión 1 comienza en la diapositiva " & .Start & _

                " y termina en la diapositiva " & .End

        End With

    End If

End With


Método Add (objeto de conjunto PrintRanges)

Agrega un intervalo de impresión al conjunto PrintRanges. Devuelve un objeto PrintRange que representa una serie consecutiva de diapositivas que debe imprimirse.

Sintaxis

expresión.Add(Start, End)

expresión   Requerida. Expresión que devuelve un objeto PrintRanges.

Start   Long requerido. La primera diapositiva del intervalo de diapositivas que debe imprimirse. Debe ser inferior o igual al valor del argumento End.

End   Long requerido. La última diapositiva del intervalo de diapositivas que debe imprimirse. Debe ser inferior o igual al valor del argumento Start.

Comentarios

La propiedad RangeType del objeto PrintOptions debe establecerse como ppPrintSlideRange para los intervalos del conjunto PrintRanges que deben aplicarse.

Si no desea imprimir una presentación completa, agregue intervalos de impresión para especificar qué diapositivas desea imprimir. Debe agregar un intervalo de impresión para cada serie consecutiva de diapositivas que desea imprimir. Por ejemplo, si desea imprimir la diapositiva 1, el intervalo de la diapositiva 3 a la 5 y las diapositivas 8 y 9, debe agregar tres objetos de intervalo de impresión. Para obtener más información, vea el ejemplo que se muestra para este método.

Utilice el método ClearAll para borrar los intervalos de impresión previamente definidos.


Ejemplo del método Add (objeto de conjunto PrintRanges)

Este ejemplo borra los intervalos de impresión previamente definidos y, a continuación, imprime la diapositiva 1, el intervalo de la diapositiva 3 a la 5 y las diapositivas 8 y 9 de la presentación activa.

With ActivePresentation.PrintOptions

    .RangeType = ppPrintSlideRange

    With .Ranges

        .ClearAll

        .Add 1, 1

        .Add 3, 5

        .Add 8, 9

    End With

End With

ActivePresentation.PrintOut


Método ClearAll

Borra todos los intervalos de impresión del conjunto PrintRanges. Utilice el método Add del conjunto PrintRanges para agregar intervalos de impresión al conjunto.

Sintaxis

expresión.ClearAll

expresión   Requerida. Expresión que devuelve un objeto PrintRanges.


Ejemplo del método ClearAll

Este ejemplo borra los intervalos de impresión previamente definidos en la presentación activa; crea nuevos intervalos de impresión que contengan la diapositiva 1, de la diapositiva 3 a la 5 y las diapositivas 8 y 9; imprime los intervalos de impresión que se acaban de definir y, a continuación, los borra.

With ActivePresentation.PrintOptions

    .RangeType = ppPrintSlideRange

    With .Ranges

        .ClearAll

        .Add 1, 1

        .Add 3, 5

        .Add 8, 9

        .Parent.Parent.PrintOut

        .ClearAll

    End With

End With


Propiedad Levels

Objeto Ruler: Devuelve un objeto RulerLevels que representa formato de sangría de esquema. Es de sólo lectura.

Objeto TextStyle: Devuelve un objeto TextStyleLevels que representa formato de texto de esquema. Es de sólo lectura.


Ejemplo de la propiedad Levels

Este ejemplo establece la sangría de la primera línea y la sangría francesa al nivel uno del esquema del texto principal en el patrón de diapositivas de la presentación activa, y después establece el nombre y el tamaño de la fuente del texto en ese nivel.

With Application.ActivePresentation.SlideMaster.TextStyles(ppBodyStyle)

    With .Ruler.Levels(1) ' establece la sangría en el nivel 1

        .FirstMargin = 9

        .LeftMargin = 54

    End With

    With .Levels(1).Font  ' establece el formato de texto del nivel 1

        .Name = "arial"

        .Size = 36

    End With

End With


Propiedad TabStops

Devuelve un conjunto TabStops que representa las tabulaciones del texto especificado. Es de sólo lectura.


Ejemplo de la propiedad TabStops

Este ejemplo agrega una diapositiva con dos columnas de texto a la presentación activa, establece una tabulación alineada a la izquierda para el título de la nueva diapositiva y asigna texto que incluye una marca de tabulación en el título.

With Application.ActivePresentation.Slides _

    .Add(2, ppLayoutTwoColumnText).Shapes

    With .Title.TextFrame

        With .Ruler

            .Levels(1).FirstMargin = 0

            .TabStops.Add ppTabStopLeft, 50

        End With

        .TextRange = "primera columna" + Chr(9) + "segunda columna"

    End With

End With


Propiedad FirstMargin

Devuelve o establece la sangría de la primera línea del nivel de esquema especificado, en puntos. Single de Lectura/Escritura.

Comentarios

Si un párrafo comienza con una viñeta, la posición de la viñeta se determina mediante la propiedad FirstMargin y la posición del primer carácter de texto del párrafo se determina mediante la propiedad LeftMargin.


Ejemplo de la propiedad FirstMargin

Este ejemplo establece la sangría de la primera línea y la sangría francesa del nivel uno del esquema del texto principal en el patrón de diapositivas de la presentación activa.

With Application.ActivePresentation.SlideMaster.TextStyles(ppBodyStyle)

    With .Ruler.Levels(1)

        .FirstMargin = 9

        .LeftMargin = 54

    End With

End With


Propiedad LeftMargin

Devuelve o establece la sangría izquierda del nivel de esquema especificado, en puntos. Single de Lectura/Escritura.

Comentarios

Si un párrafo comienza con una viñeta, la posición de la viñeta se determina mediante la propiedad FirstMargin y la posición del primer carácter de texto del párrafo se determina mediante la propiedad LeftMargin.


Ejemplo de la propiedad LeftMargin

Este ejemplo establece la sangría de la primera línea y la sangría francesa del nivel uno del esquema del texto principal en el patrón de diapositivas de la presentación activa.

With Application.ActivePresentation.SlideMaster.TextStyles(ppBodyStyle)

    With .Ruler.Levels(1)

        .FirstMargin = 9

        .LeftMargin = 54

    End With

End With


Propiedad ShapeRange

Devuelve un objeto ShapeRange que representa todos los objetos de diapositivas que se han seleccionado en la diapositiva especificada. En este intervalo pueden incluirse los dibujos, formas, objetos OLE, imágenes, objetos de texto, títulos, encabezados, pies de página, el marcador de posición del número y los objetos de hora y fecha de una diapositiva. Es de sólo lectura.

Comentarios

Puede devolver un intervalo de formas a partir de una selección sólo cuando la presentación se encuentra en la vista Diapositivas.


Ejemplo de la propiedad ShapeRange

Este ejemplo establece el color de primer plano del relleno para todas las formas seleccionadas en la ventana número uno.

Windows(1).Selection.ShapeRange.Fill.ForeColor.RGB = RGB(255, 0, 255)


Propiedad SlideRange

Devuelve un objeto SlideRange que representa un intervalo de diapositivas seleccionadas. Es de sólo lectura.

Comentarios

Un intervalo de diapositivas puede crearse en la vista Diapositivas, Clasificador de diapositivas o Esquema. En la vista Diapositivas, SlideRange devuelve la diapositiva actual que se muestra.


Ejemplo de la propiedad SlideRange

Este ejemplo establece la combinación de colores del fondo para todas las formas seleccionadas en la ventana número uno.

Windows(1).Selection.SlideRange.ColorScheme.Colors(ppBackground).RGB = RGB(0, 0, 255)


Propiedad TextRange

Objeto Selection: Devuelve un objeto TextRange que representa el texto seleccionado. Es de sólo lectura.

Objeto TextFrame: Devuelve un objeto TextRange que representa el texto en el marco de texto especificado. Es de sólo lectura.

Comentarios

Puede crear un intervalo de texto a partir de una selección sólo cuando la presentación se encuentra en la vista Diapositivas o Esquema.


Ejemplo de la propiedad TextRange

Este ejemplo pone en negrita el texto seleccionado en la ventana número uno.

Windows(1).Selection.TextRange.Font.Bold = True


Método Unselect

Cancela la selección actual.

Sintaxis

expresión.Unselect

expresión   Requerida. Expresión que devuelve un objeto Selection.


Ejemplo del método Unselect

Este ejemplo cancela la selección actual en la ventana número uno.

Windows(1).Selection.Unselect


Método IncrementOffsetX

Cambia el desplazamiento horizontal de la sombra según el número de puntos especificado. Utilice la propiedad OffsetX para establecer el desplazamiento absoluto de la sombra horizontal.

Sintaxis

expresión.IncrementOffsetX(Increment)

expresión   Requerida. Expresión que devuelve un objeto ShadowFormat.

Increment   Single requerido. Especifica la distancia que debe desplazarse la sombra en sentido horizontal, en puntos. Con un valor positivo, la sombra se desplaza hacia la derecha; con un valor negativo, hacia la izquierda.


Ejemplo del método IncrementOffsetX

Este ejemplo desplaza la sombra de la forma tres en miDocumento 3 puntos hacia la izquierda.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes(3).Shadow.IncrementOffsetX -3


Método IncrementOffsetY

Cambia el desplazamiento vertical de la sombra según el número de puntos especificado. Utilice la propiedad OffsetY para establecer el desplazamiento absoluto de la sombra vertical.

Sintaxis

expresión.IncrementOffsetY(Increment)

expresión   Requerida. Expresión que devuelve un objeto ShadowFormat.

Increment   Single requerido. Especifica la distancia que debe desplazarse la sombra en sentido vertical, en puntos. Con un valor positivo, la sombra se desplaza hacia abajo; con un valor negativo, hacia arriba.


Ejemplo del método IncrementOffsetY

Este ejemplo desplaza la sombra de la forma tres en miDocumento 3 puntos hacia arriba.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes(3).Shadow.IncrementOffsetY -3


Propiedad Obscured

True si la sombra de la forma especificada se muestra con relleno y oscurecida por la forma, aunque la forma no tenga relleno. False si la sombra no tiene relleno y el esquema se ve a través de la forma, si esta última carece de relleno. Long de Lectura/Escritura.


Ejemplo de la propiedad Obscured

Este ejemplo establece el desplazamiento horizontal y vertical para la sombra de la forma tres en miDocumento. La sombra está desplazada 5 puntos a la derecha y 3 puntos por encima de la forma. Si la forma todavía no tiene sombra, este ejemplo agrega una. La forma llenará y oscurecerá la sombra, aunque ésta carezca de relleno.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(3).Shadow

    .Visible = True

    .OffsetX = 5

    .OffsetY = -3

    .Obscured = True

End With


Propiedad OffsetX

Devuelve o establece el desplazamiento horizontal de la sombra de la forma especificada, en puntos. Con un valor positivo, el desplazamiento de la sombra se produce hacia la derecha de la forma; con un valor negativo, se produce hacia la izquierda. Single de Lectura/Escritura.

Comentarios

Si desea empujar la sombra en sentido horizontal o vertical a partir de la posición que ocupa actualmente sin tener que especificar una posición absoluta, utilice el método IncrementOffsetX o el método IncrementOffsetY.


Ejemplo de la propiedad OffsetX

Este ejemplo establece el desplazamiento horizontal y vertical para la sombra de la forma tres en miDocumento. La sombra está desplazada 5 puntos a la derecha y 3 puntos por encima de la forma. Si la forma todavía no tiene sombra, este ejemplo agrega una.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(3).Shadow

    .Visible = True

    .OffsetX = 5

    .OffsetY = -3

End With


Propiedad OffsetY

Devuelve o establece el desplazamiento vertical de la sombra de la forma especificada, en puntos. Con un valor positivo, el desplazamiento de la sombra se produce hacia la derecha de la forma; con un valor negativo, se produce hacia la izquierda. Single de Lectura/Escritura.

Comentarios

Si desea empujar la sombra en sentido horizontal o vertical a partir de la posición que ocupa actualmente sin tener que especificar una posición absoluta, utilice el método IncrementOffsetX o el método IncrementOffsetY.


Ejemplo de la propiedad OffsetY

Este ejemplo establece el desplazamiento horizontal y vertical para la sombra de la forma tres en miDocumento. La sombra está desplazada 5 puntos a la derecha y 3 puntos por encima de la forma. Si la forma todavía no tiene sombra, este ejemplo agrega una.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(3).Shadow

    .Visible = True

    .OffsetX = 5

    .OffsetY = -3

End With


Propiedad Transparency

Devuelve o establece el grado de transparencia de la sombra, relleno o línea especificados como valor entre 0.0 (opaco) y 1.0 (transparente). Single de Lectura/Escritura.

Comentarios

El valor de esta propiedad afecta solamente la apariencia de los rellenos y líneas sólidos; no tiene efecto en líneas de entramado o en imágenes, degradados entramados o rellenos con textura.


Ejemplo de la propiedad Transparency

Este ejemplo establece la sombra de la forma tres en miDocumento como rojo semitransparente. Si la forma todavía no tiene sombra, este ejemplo agrega una.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(3).Shadow

    .Visible = True

    .ForeColor.RGB = RGB(255, 0, 0)

    .Transparency = 0.5

End With


Propiedad ActionSettings

Devuelve un objeto ActionSettings que contiene información acerca de la acción que se producirá cuando el usuario haga clic en la forma o intervalo de texto especificados o mueva el mouse (ratón) por encima de ellos durante una presentación con diapositivas. Es de sólo lectura.


Ejemplo de la propiedad ActionSettings

El siguiente ejemplo establece las acciones resultantes de hacer clic en la forma uno en la diapositiva dos de la presentación activa o de pasar el mouse (ratón) por encima de ella.

Set miForma = ActivePresentation.Slides(2).Shapes(1)

miForma.ActionSettings(ppMouseClick).Action = ppActionLastSlide

miForma.ActionSettings(ppMouseOver).SoundEffect.Name = "aplauso.wav"


Propiedad Adjustments

Devuelve un objeto Adjustments que contiene valores para todos los ajustes de la forma especificada. Se aplica a cualquier objeto Shape o ShapeRange que represente a una autoforma, WordArt o conector. Es de sólo lectura.


Ejemplo de la propiedad Adjustments

Este ejemplo establece en 0.25 el valor del ajuste uno en la forma tres en miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes(3).Adjustments(1) = 0.25


Método Align

Alinea las formas del intervalo especificado.

Sintaxis

expresión.Align(AlignCmd, RelativeTo)

expresión   Requerida. Expresión que devuelve un objeto ShapeRange.

AlignCmd   Long  requerido. Especifica la manera en que deben alinearse las formas del intervalo especificado. Puede ser una de las siguientes constantes MsoAlignCmd: msoAlignBottoms, msoAlignCenters, msoAlignLefts, msoAlignMiddles, msoAlignRights o msoAlignTops.

RelativeTo   Long  requerido. True para alinear formas tomando como referencia el borde del documento. False para alinear una forma tomando como referencia otra.


Ejemplo del método Align

Este ejemplo alinea los bordes izquierdos de todas las formas del intervalo especificado en miDocumento tomando como referencia el borde izquierdo de la forma que está más a la izquierda del intervalo.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes.Range.Align msoAlignLefts, False


Propiedad AnimationSettings

Devuelve un objeto AnimationSettings que representa todos los efectos especiales que pueden aplicarse a la animación de la forma especificada. Es de sólo lectura.


Ejemplo de la propiedad AnimationSettings

Este ejemplo establece que la forma uno en la diapositiva dos de la presentación activa vuele desde la izquierda cuando se cree la diapositiva.

With ActivePresentation.Slides(2).Shapes(1).AnimationSettings

    .EntryEffect = ppEffectFlyFromLeft

    .TextLevelEffect = ppAnimateByAllLevels

End With


Método Apply

Se aplica al formato de la forma especificada que se ha copiado utilizando el método PickUp.

Sintaxis

expresión.Apply

expresión   Requerida. Expresión que devuelve un objeto Shape o ShapeRange.


Ejemplo del método Apply

Este ejemplo copia el formato de la forma uno en miDocumento y, a continuación, aplica el formato copiado a la forma dos.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento

    .Shapes(1).PickUp

    .Shapes(2).Apply

End With


Propiedad AutoShapeType

Devuelve o establece el tipo de forma para el objeto Shape o ShapeRange especificado, que debe representar una autoforma que no sea una línea, un dibujo de forma libre ni un conector. Long de Lectura/Escritura.

Nota   Al cambiar un tipo de forma, la forma conserva el tamaño, el color y otros atributos.

Puede ser una de las siguientes constantes MsoAutoShapeType:

msoShape16pointStar msoShape24pointStar msoShape32pointStar msoShape4pointStar msoShape5pointStar msoShape8pointStar msoShapeActionButtonBackorPrevious msoShapeActionButtonBeginning msoShapeActionButtonCustom msoShapeActionButtonDocument msoShapeActionButtonEnd msoShapeActionButtonForwardorNext msoShapeActionButtonHelp msoShapeActionButtonHome msoShapeActionButtonInformation msoShapeActionButtonMovie msoShapeActionButtonReturn msoShapeActionButtonSound msoShapeArc msoShapeBalloon msoShapeBentArrow msoShapeBentUpArrow msoShapeBevel msoShapeBlockArc msoShapeCan msoShapeChevron msoShapeCircularArrow msoShapeCloudCallout msoShapeCross msoShapeCube msoShapeCurvedDownArrow msoShapeCurvedDownRibbon msoShapeCurvedLeftArrow msoShapeCurvedRightArrow msoShapeCurvedUpArrow msoShapeCurvedUpRibbon msoShapeDiamond msoShapeDonut msoShapeDoubleBrace msoShapeDoubleBracket msoShapeDoubleWave msoShapeDownArrow msoShapeDownArrowCallout msoShapeDownRibbon msoShapeExplosion1 msoShapeExplosion2 msoShapeFlowchartAlternateProcess msoShapeFlowchartCard msoShapeFlowchartCollate msoShapeFlowchartConnector msoShapeFlowchartData msoShapeFlowchartDecision msoShapeFlowchartDelay msoShapeFlowchartDirectAccessStorage msoShapeFlowchartDisplay msoShapeFlowchartDocument msoShapeFlowchartExtract msoShapeFlowchartInternalStorage msoShapeFlowchartMagneticDisk msoShapeFlowchartManualInput msoShapeFlowchartManualOperation msoShapeFlowchartMerge msoShapeFlowchartMultidocument msoShapeFlowchartOffpageConnector msoShapeFlowchartOr msoShapeFlowchartPredefinedProcess msoShapeFlowchartPreparation msoShapeFlowchartProcess msoShapeFlowchartPunchedTape msoShapeFlowchartSequentialAccessStorage	msoShapeFlowchartSort msoShapeFlowchartStoredData msoShapeFlowchartSummingJunction msoShapeFlowchartTerminator msoShapeFoldedCorner msoShapeHeart msoShapeHexagon msoShapeHorizontalScroll msoShapeIsoscelesTriangle msoShapeLeftArrow msoShapeLeftArrowCallout msoShapeLeftBrace msoShapeLeftBracket msoShapeLeftRightArrow msoShapeLeftRightArrowCallout msoShapeLeftRightUpArrow msoShapeLeftUpArrow msoShapeLightningBolt msoShapeLineCallout1 msoShapeLineCallout1AccentBar msoShapeLineCallout1BorderandAccentBar msoShapeLineCallout1NoBorder msoShapeLineCallout2 msoShapeLineCallout2AccentBar msoShapeLineCallout2BorderandAccentBar msoShapeLineCallout2NoBorder msoShapeLineCallout3 msoShapeLineCallout3AccentBar msoShapeLineCallout3BorderandAccentBar msoShapeLineCallout3NoBorder msoShapeLineCallout4 msoShapeLineCallout4AccentBar msoShapeLineCallout4BorderandAccentBar msoShapeLineCallout4NoBorder msoShapeMixed msoShapeMoon msoShapeNoSymbol msoShapeNotchedRightArrow msoShapeNotPrimitive msoShapeOctagon msoShapeOval msoShapeOvalCallout msoShapeParallelogram msoShapePentagon msoShapePlaque msoShapeQuadArrow msoShapeQuadArrowCallout msoShapeRectangle msoShapeRectangularCallout msoShapeRegularPentagon msoShapeRightArrow msoShapeRightArrowCallout msoShapeRightBrace msoShapeRightBracket msoShapeRightTriangle msoShapeRoundedRectangle msoShapeRoundedRectangularCallout msoShapeSmileyFace msoShapeStripedRightArrow msoShapeSun msoShapeTrapezoid msoShapeUpArrow msoShapeUpArrowCallout msoShapeUpDownArrow msoShapeUpDownArrowCallout msoShapeUpRibbon msoShapeUTurnArrow msoShapeVerticalScroll msoShapeWave
Comentarios

Utilice la propiedad Type del objeto ConnectorFormat para establecer o devolver el tipo de conector.


Ejemplo de la propiedad AutoShapeType

Este ejemplo sustituye todas las estrellas de 16 puntos por estrellas de 32 puntos en miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

For Each f In miDocumento.Shapes

    If f.AutoShapeType = msoShape16pointStar Then

        f.AutoShapeType = msoShape32pointStar

    End If

Next


Propiedad BlackWhiteMode

Devuelve o establece un valor que indica cómo se muestra la forma especificada cuando el documento se ve en modo blanco y negro. Puede ser una de las siguientes constantes MsoBlackWhiteMode: msoBlackWhiteAutomatic, msoBlackWhiteBlack, msoBlackWhiteBlackTextAndLine, msoBlackWhiteDontShow, msoBlackWhiteGrayOutline, msoBlackWhiteGrayScale, msoBlackWhiteHighContrast, msoBlackWhiteInverseGrayScale, msoBlackWhiteLightGrayScale, msoBlackWhiteMixed o msoBlackWhiteWhite. Long de Lectura/Escritura.


Ejemplo de la propiedad BlackWhiteMode

Este ejemplo establece que la forma uno de miDocumento se muestre en modo blanco y negro. Al ver el documento en modo blanco y negro, la forma uno se mostrará negra, independientemente de cómo sea en modo de color.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes(1).BlackWhiteMode = msoBlackWhiteBlack


Propiedad Callout

Devuelve un objeto CalloutFormat que contiene propiedades de formato de llamada para la forma especificada. Se aplica a objetos Shape o ShapeRange que representan llamadas con línea. Es de sólo lectura.


Ejemplo de la propiedad Callout

Este ejemplo agrega a miDocumento una elipse y una llamada que hace referencia a ésta. El texto de la llamada no tendrá borde, pero tendrá una barra de énfasis vertical que separará el texto de la línea de la llamada.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    .AddShape msoShapeOval, 180, 200, 280, 130

    With .AddCallout(msoCalloutTwo, 420, 170, 170, 40)

        .TextFrame.TextRange.Text = "Mi elipse"

        With .Callout

            .Accent = True

            .Border = False

        End With

    End With

End With


Propiedad ConnectionSiteCount

Devuelve el número de puntos de conexión en la forma especificada. Long de sólo lectura.


Ejemplo de la propiedad ConnectionSiteCount

Este ejemplo agrega dos rectángulos a miDocumento y los une mediante dos conectores. El comienzo de ambos conectores se une al punto de conexión número uno en el primer rectángulo; el final de los conectores se une al primer y último punto de conexión del segundo rectángulo.

Set miDocumento = ActivePresentation.Slides(1)

Set f = miDocumento.Shapes

Set Rect1 = f.AddShape(msoShapeRectangle, 100, 50, 200, 100)

Set Rect2 = f.AddShape(msoShapeRectangle, 300, 300, 200, 100)

final = Rect2.ConnectionSiteCount

With f.AddConnector(msoConnectorCurve, 0, 0, 100, 100).ConnectorFormat

    .BeginConnect ConnectedShape:=Rect1, ConnectionSite:=1

    .EndConnect ConnectedShape:=Rect2, ConnectionSite:=1

End With

With f.AddConnector(msoConnectorCurve, 0, 0, 100, 100).ConnectorFormat

    .BeginConnect ConnectedShape:=Rect1, ConnectionSite:=1

    .EndConnect ConnectedShape:=Rect2, ConnectionSite:=final

End With


Propiedad Connector

True si la forma especificada es un conector. Long de sólo lectura.


Ejemplo de la propiedad Connector

Este ejemplo elimina todos los conectores en miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    For i = .Count To 1 Step -1

        With .Item(i)

            If .Connector Then .Delete

        End With

    Next

End With


Propiedad ConnectorFormat

Devuelve un objeto ConnectorFormat que contiene propiedades de formato de conector. Se aplica a objetos Shape o ShapeRange que representan conectores. Es de sólo lectura.


Ejemplo de la propiedad ConnectorFormat

Este ejemplo agrega dos rectángulos a miDocumento, los une mediante un conector, redistribuye automáticamente el conector a lo largo de la ruta más corta y, a continuación, separa el conector de los rectángulos.

Set miDocumento = ActivePresentation.Slides(1)

Set f = miDocumento.Shapes

Set Rect1 = f.AddShape(msoShapeRectangle, 100, 50, 200, 100)

Set Rect2 = f.AddShape(msoShapeRectangle, 300, 300, 200, 100)

With f.AddConnector(msoConnectorCurve, 0, 0, 0, 0).ConnectorFormat

    .BeginConnect Rect1, 1

    .EndConnect Rect2, 1

    .Parent.RerouteConnections

    .BeginDisconnect

    .EndDisconnect

End With


Propiedad Fill

Devuelve un objeto FillFormat que contiene propiedades de formato de relleno para la forma especificada. Es de sólo lectura.


Ejemplo de la propiedad Fill

Este ejemplo agrega un rectángulo a miDocumento y después establece el color de primer plano, el color de fondo y el degradado para el relleno del rectángulo.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddShape(msoShapeRectangle, 90, 90, 90, 50).Fill

    .ForeColor.RGB = RGB(128, 0, 0)

    .BackColor.RGB = RGB(170, 170, 170)

    .TwoColorGradient msoGradientHorizontal, 1

End With


Método Flip

Voltea la forma especificada alrededor del eje horizontal o vertical.

Sintaxis

expresión.Flip(FlipCmd)

expresión   Requerida. Expresión que devuelve un objeto Shape o ShapeRange.

FlipCmd   Long  requerido. Especifica si la forma debe voltearse en sentido horizontal o vertical. Puede ser una de las siguientes constantes MsoFlipCmd: msoFlipHorizontal o msoFlipVertical.


Ejemplo del método Flip

Este ejemplo agrega un triángulo a miDocumento, crea una copia del mismo y, a continuación, voltea la copia en sentido vertical y le aplica el color rojo.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddShape(msoShapeRightTriangle, 10, 10, 50, 50).Duplicate

    .Fill.ForeColor.RGB = RGB(255, 0, 0)

    .Flip msoFlipVertical

End With


Método Group

Agrupa las formas del intervalo especificado. Devuelve las formas agrupadas como un único objeto Shape.

Sintaxis

expresión.Group

expresión   Requerida. Expresión que devuelve un objeto ShapeRange.

Comentarios

Ya que un grupo de formas se considera una sola forma, al agruparlas y desagruparlas se cambia el número de elementos del conjunto Shapes y se cambian los números de índice de los elementos que siguen a los que se han visto afectados del conjunto.


Ejemplo del método Group

Este ejemplo agrega dos formas a miDocumento, las agrupa, establece el relleno para el grupo, lo gira y lo envía al fondo de la capa del dibujo.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    .AddShape(msoShapeCan, 50, 10, 100, 200).Name = "formUno"

    .AddShape(msoShapeCube, 150, 250, 100, 200).Name = "formDos"

    With .Range(Array("formUno", "formDos")).Group

        .Fill.PresetTextured msoTextureBlueTissuePaper

        .Rotation = 45

        .ZOrder msoSendToBack

    End With

End With


Propiedad GroupItems

Devuelve un objeto GroupShapes que representa cada una de las formas del grupo especificado. Utilice el método Item del objeto GroupShapes para devolver una única forma del grupo. Se aplica a objetos Shape o ShapeRange que representan formas agrupadas. Es de sólo lectura.


Ejemplo de la propiedad GroupItems

Este ejemplo agrega tres triángulos a miDocumento, los agrupa, establece un color para todo el grupo y, a continuación, cambia sólo el color del segundo triángulo.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    .AddShape(msoShapeIsoscelesTriangle, 10, 10, 100, 100).Name = "formUno"

    .AddShape(msoShapeIsoscelesTriangle, 150, 10, 100, 100).Name = "formDos"

    .AddShape(msoShapeIsoscelesTriangle, 300, 10, 100, 100).Name = "formTres"

    With .Range(Array("formUno", "formDos", "formTres")).Group

        .Fill.PresetTextured msoTextureBlueTissuePaper

        .GroupItems(2).Fill.PresetTextured msoTextureGreenMarble

    End With

End With


Propiedad HorizontalFlip

True si la forma especificada se voltea alrededor del eje horizontal. Long de sólo lectura.


Ejemplo de la propiedad HorizontalFlip

Este ejemplo devuelve cada forma de miDocumento a su estado original si ha sido volteada en sentido horizontal o vertical.

Set miDocumento = ActivePresentation.Slides(1)

For Each f In miDocumento.Shapes

    If f.HorizontalFlip Then f.Flip msoFlipHorizontal

    If f.VerticalFlip Then f.Flip msoFlipVertical

Next


Método IncrementLeft

Desplaza la forma especificada en sentido horizontal según los puntos definidos.

Sintaxis

expresión.IncrementLeft(Increment)

expresión   Requerida. Expresión que devuelve un objeto Shape.

Increment   Single  requerido. Especifica la distancia que debe desplazarse la forma en sentido horizontal, en puntos. Con un valor positivo, la forma se desplaza hacia la derecha; con un valor negativo, hacia la izquierda.


Ejemplo del método IncrementLeft

Este ejemplo crea una copia de la forma uno en miDocumento, establece el relleno de la copia, la desplaza 70 puntos hacia la derecha y 50 puntos hacia arriba, y la gira 30 grados en el sentido de las agujas del reloj.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(1).Duplicate

    .Fill.PresetTextured msoTextureGranite

    .IncrementLeft 70

    .IncrementTop -50

    .IncrementRotation 30

End With


Método IncrementRotation

Cambia el giro de la forma especificada alrededor del eje Z según los grados definidos. Utilice la propiedad Rotation para establecer el giro absoluto de la forma.

Sintaxis

expresión.IncrementRotation(Increment)

expresión   Requerida. Expresión que devuelve un objeto Shape.

Increment   Single  requerido. Especifica en grados la distancia que debe girarse la forma en sentido horizontal. Con un valor positivo se gira la forma en el sentido de las agujas del reloj; con un valor negativo, se gira en sentido contrario a las agujas del reloj.

Comentarios

Para girar una forma tridimensional alrededor del eje X o del eje Y, utilice el método IncrementRotationX o el método IncrementRotationY.


Ejemplo del método IncrementRotation

Este ejemplo crea una copia de la forma uno en miDocumento, establece el relleno de la copia, la desplaza 70 puntos hacia la derecha y 50 puntos hacia arriba, y la gira 30 grados en el sentido de las agujas del reloj.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(1).Duplicate

    .Fill.PresetTextured msoTextureGranite

    .IncrementLeft 70

    .IncrementTop -50

    .IncrementRotation 30

End With


Método IncrementTop

Desplaza la forma especificada en sentido vertical según los puntos definidos.

Sintaxis

expresión.IncrementTop(Increment)

expresión   Requerida. Expresión que devuelve un objeto Shape.

Increment   Single  requerido. Especifica la distancia que debe desplazarse el objeto de la forma en sentido vertical, en puntos. Con un valor positivo, la forma se desplaza hacia abajo; con un valor negativo, hacia arriba.


Ejemplo del método IncrementTop

Este ejemplo crea una copia de la forma uno en miDocumento, establece el relleno de la copia, la desplaza 70 puntos hacia la derecha y 50 puntos hacia arriba, y la gira 30 grados en el sentido de las agujas del reloj.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(1).Duplicate

    .Fill.PresetTextured msoTextureGranite

    .IncrementLeft 70

    .IncrementTop -50

    .IncrementRotation 30

End With


Propiedad Item

Devuelve o establece el valor de ajuste especificado por el argumento Index. Para los ajustes lineales, un valor de 0.0 generalmente corresponde al borde izquierdo o superior de la forma y un valor de 1.0 al borde derecho o inferior. Sin embargo, para algunas formas, los ajustes pueden sobrepasar los límites. Para ajustes radiales, un valor de 1.0 corresponde al ancho de la forma. Para ajustes angulares, el valor se especifica en grados. La propiedad Item sólo se aplica a formas que tienen ajustes. Single de Lectura/Escritura.

Sintaxis

expresión.Item(Index)

expresión   Requerida. Expresión que devuelve un objeto Adjustments.

Index   Long  requerido. Número de índice del ajuste.

Comentarios

Los objetos de autoformas, conectores y WordArt pueden tener un máximo de ocho ajustes.


Ejemplo de la propiedad Item

Este ejemplo agrega dos cruces a miDocumento y, a continuación, establece el valor del ajuste uno (el único en este tipo de autoforma) en cada cruz.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    .AddShape(msoShapeCross, 10, 10, 100, 100).Adjustments.Item(1) = 0.4

    .AddShape(msoShapeCross, 150, 10, 100, 100).Adjustments.Item(1) = 0.2

End With

Este ejemplo tiene la misma finalidad que el ejemplo anterior aunque no utilice explícitamente la propiedad Item.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    .AddShape(msoShapeCross, 10, 10, 100, 100).Adjustments(1) = 0.4

    .AddShape(msoShapeCross, 150, 10, 100, 100).Adjustments(1) = 0.2

End With


Propiedad Line

Devuelve un objeto LineFormat que contiene propiedades de formato de línea para la forma especificada. Para una línea, el objeto LineFormat representa la línea en sí; para una forma con borde, el objeto LineFormat representa el borde. Es de sólo lectura.


Ejemplo de la propiedad Line

Este ejemplo agrega una línea discontinua azul a miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddLine(10, 10, 250, 250).Line

    .DashStyle = msoLineDashDotDot

    .ForeColor.RGB = RGB(50, 0, 128)

End With

Este ejemplo agrega una cruz a miDocumento y, a continuación, establece que el borde tenga un grosor de 8 puntos y que sea de color rojo.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddShape(msoShapeCross, 10, 10, 50, 70).Line

    .Weight = 8

    .ForeColor.RGB = RGB(255, 0, 0)

End With


Propiedad LinkFormat

Devuelve un objeto LinkFormat que contiene las propiedades que son exclusivas para objetos OLE vinculados. Es de sólo lectura.


Ejemplo de la propiedad LinkFormat

Este ejemplo actualiza y deshace los vínculos entre los objetos OLE en la diapositiva uno de la presentación activa y los archivos de origen.

For Each f In ActivePresentation.Slides(1).Shapes

    If f.Type = msoLinkedOLEObject Then

        With f.LinkFormat

            .Update

            .BreakLink

        End With

    End If

Next


Propiedad LockAspectRatio

True si la forma especificada mantiene las proporciones originales cuando se cambia el tamaño. False si puede cambiar el alto y ancho de la forma de manera independiente cuando se cambia su tamaño. Long de Lectura/Escritura.


Ejemplo de la propiedad LockAspectRatio

Este ejemplo agrega un cubo a miDocumento. El cubo puede moverse y cambiarse de tamaño, pero no se pueden volver a definir sus proporciones originales.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes.AddShape(msoShapeCube, 50, 50, 100, 200).LockAspectRatio = True


Propiedad Nodes

Devuelve un conjunto ShapeNodes que representa la descripción geométrica de la forma especificada. Se aplica a objetos Shape o ShapeRange que representan dibujos de forma libre.


Ejemplo de la propiedad Nodes

Este ejemplo agrega un nodo suave mediante un segmento curvo después del nodo cuatro de la forma tres en miDocumento. La forma tres debe ser un dibujo de forma libre con un mínimo de cuatro nodos.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(3).Nodes

    .Insert 4, msoSegmentCurve, msoEditingSmooth, 210, 100

End With


Propiedad OLEFormat

Devuelve un objeto OLEFormat que contiene propiedades de formato OLE para la forma especificada. Se aplica a objetos Shape o ShapeRange que representan objetos OLE. Es de sólo lectura


Ejemplo de la propiedad OLEFormat

Este ejemplo recorre todos los objetos de las diapositivas de la presentación activa y establece que todos los documentos de Microsoft Word 97 vinculados se actualicen manualmente.

For Each diap In ActivePresentation.Slides

    For Each f In diap.Shapes

        If f.Type = msoLinkedOLEObject Then

            If f.OLEFormat.ProgID = "Documento.Word.8" Then

                f.LinkFormat.AutoUpdate = ppUpdateOptionManual

            End If

        End If

    Next

Next


Método PickUp

Copia el formato de la forma especificada. Utilice el método Apply para aplicar el formato copiado a otra forma.

Sintaxis

expresión.PickUp

expresión   Requerida. Expresión que devuelve un objeto Shape o ShapeRange.


Ejemplo del método PickUp

Este ejemplo copia el formato de la forma uno en miDocumento y, a continuación, aplica el formato copiado a la forma dos.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento

    .Shapes(1).PickUp

    .Shapes(2).Apply

End With


Propiedad PictureFormat

Devuelve un objeto PictureFormat que contiene propiedades de formato de imagen para la forma especificada. Se aplica a objetos Shape o ShapeRange que representan imágenes u objetos OLE. Es de sólo lectura.


Ejemplo de la propiedad PictureFormat

Este ejemplo establece el brillo y el contraste para la forma uno en miDocumento. La forma uno debe ser una imagen o un objeto OLE.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(1).PictureFormat

    .Brightness = 0.3

    .Contrast = .75

End With


Método RerouteConnections

Redistribuye los conectores de manera que tomen la ruta más corta posible entre las formas que conectan. Para ello, con el método RerouteConnections pueden separarse los extremos de un conector y volver a unirse a puntos de conexión diferentes en las formas conectadas.

Este método redistribuye todos los conectores unidos a la forma especificada; si la forma especificada es un conector, se redistribuye.

Sintaxis

expresión.RerouteConnections

expresión   Requerida. Expresión que devuelve un objeto Shape o ShapeRange.

Comentarios

Si el método se aplica a un conector, sólo se redistribuirá dicho conector. Si el método se aplica a una forma conectada, se redistribuirán todos los conectores de dicha forma.


Ejemplo del método RerouteConnections

Este ejemplo agrega dos rectángulos a miDocumento, los conecta mediante un conector en curva y, a continuación, redistribuye el conector de manera que tome la ruta más corta posible entre los dos rectángulos. Tenga en cuenta que el método RerouteConnections ajusta el tamaño y la posición del conector y determina a qué puntos de conexión se une, por lo que los valores inicialmente especificados para los argumentos ConnectionSite utilizados con los métodos BeginConnect y EndConnect son irrelevantes.

Set miDocumento = ActivePresentation.Slides(1)

Set f = miDocumento.Shapes

Set Rect1 = f.AddShape(msoShapeRectangle, 100, 50, 200, 100)

Set Rect2 = f.AddShape(msoShapeRectangle, 300, 300, 200, 100)

Set conectorNuevo = f.AddConnector(msoConnectorCurve, 0, 0, 100, 100)

With conectorNuevo.ConnectorFormat

    .BeginConnect Rect1, 1

    .EndConnect Rect2, 1

End With

conectorNuevo.RerouteConnections


Propiedad Rotation

Devuelve o establece los grados que gira la forma especificada alrededor del eje Z. Un valor positivo indica un giro en el sentido de las agujas del reloj; un valor negativo, un giro en el sentido contrario a las agujas del reloj. Single de Lectura/Escritura.

Comentarios

Para establecer el giro de una forma tridimensional alrededor del eje X o el eje Y, utilice la propiedad RotationX o la propiedad RotationY del objeto ThreeDFormat.


Ejemplo de la propiedad Rotation

Este ejemplo hace que coincida el giro de todas las formas de miDocumento con el giro de la forma uno.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    giro = .Item(1).Rotation

    For o = 1 To .Count

        .Item(o).Rotation = giro

    Next

End With


Método ScaleHeight

Aplica una escala al alto de la forma según el factor especificado. Para imágenes y objetos OLE, puede indicar si desea aplicar una escala a la forma tomando como referencia el tamaño original o el tamaño actual. A las formas que no sean imágenes u objetos OLE siempre se les aplica una escala tomando como referencia el alto actual.

Sintaxis

expresión.ScaleHeight(Factor, RelativeToOriginalSize, fScale)

expresión   Requerida. Expresión que devuelve un objeto Shape o ShapeRange.

Factor   Single  requerido. Especifica la relación entre el alto de la forma tras haber cambiado su tamaño y el alto actual u original. Por ejemplo, para obtener un rectángulo un 50 por ciento más grande, especifique 1.5 para este argumento.

RelativeToOriginalSize   Long  requerido. True para aplicar una escala a la forma tomando como referencia el tamaño original. False para aplicar una escala a la forma tomando como referencia el tamaño actual. Puede especificar True para este argumento sólo si la forma especificada es una imagen o un objeto OLE.

fScale   Long opcional . La parte de la forma que mantiene la posición cuando se cambia de escala. Puede ser una de las siguientes constantes MsoScaleFrom: msoScaleFromBottomRight, msoScaleFromMiddle o msoScaleFromTopLeft. El valor predeterminado es msoScaleFromTopLeft.


Ejemplo del método ScaleHeight

Este ejemplo aplica una escala a todas las imágenes y objetos OLE de miDocumento del 175 por ciento del alto y ancho original y aplica una escala al resto de las formas del 175 por ciento del alto y ancho actual.

Set miDocumento = ActivePresentation.Slides(1)

For Each f In miDocumento.Shapes

    Select Case f.Type

    Case msoEmbeddedOLEObject, msoLinkedOLEObject, msoOLEControlObject, _

            msoLinkedPicture, msoPicture

        f.ScaleHeight 1.75, True

        f.ScaleWidth 1.75, True

    Case Else

        f.ScaleHeight 1.75, False

        f.ScaleWidth 1.75, False

    End Select

Next


Método ScaleWidth

Aplica una escala al ancho de la forma según el factor especificado. Para imágenes y objetos OLE, puede indicar si desea aplicar una escala a la forma tomando como referencia el tamaño original o el tamaño actual. A las formas que no sean imágenes u objetos OLE siempre se les aplica una escala tomando como referencia el ancho actual.

Sintaxis

expresión.ScaleWidth(Factor, RelativeToOriginalSize, fScale)

expresión   Requerida. Expresión que devuelve un objeto Shape o ShapeRange.

Factor   Single  requerido. Especifica la relación entre el ancho de la forma tras haber cambiado su tamaño y el ancho actual u original. Por ejemplo, para obtener un rectángulo un 50 por ciento más grande, especifique 1.5 para este argumento.

RelativeToOriginalSize   Long  requerido. True para aplicar una escala a la forma tomando como referencia el tamaño original. False para aplicar una escala a la forma tomando como referencia el tamaño actual. Puede especificar True para este argumento sólo si la forma especificada es una imagen o un objeto OLE.

fScale   Long opcional . La parte de la forma que mantiene la posición cuando se cambia de escala. Puede ser una de las siguientes constantes MsoScaleFrom: msoScaleFromBottomRight, msoScaleFromMiddle o msoScaleFromTopLeft. El valor predeterminado es msoScaleFromTopLeft.


Ejemplo del método ScaleWidth

Este ejemplo aplica una escala a todas las imágenes y objetos OLE de miDocumento del 175 por ciento del alto y ancho original y aplica una escala al resto de las formas del 175 por ciento del alto y ancho actual.

Set miDocumento = ActivePresentation.Slides(1)

For Each f In miDocumento.Shapes

    Select Case f.Type

    Case msoEmbeddedOLEObject, msoLinkedOLEObject, msoOLEControlObject, _

            msoLinkedPicture, msoPicture

        f.ScaleHeight 1.75, True

        f.ScaleWidth 1.75, True

    Case Else

        f.ScaleHeight 1.75, False

        f.ScaleWidth 1.75, False

    End Select

Next


Propiedad TextEffect

Devuelve un objeto TextEffectFormat que contiene propiedades de formato de efecto de texto para la forma especificada. Se aplica a objetos Shape o ShapeRange que representan WordArt. Es de sólo lectura.


Ejemplo de la propiedad TextEffect

Este ejemplo establece el estilo de fuente como negrita para la forma tres en miDocumento si la forma es WordArt.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(3)

    If .Type = msoTextEffect Then

        .TextEffect.FontBold = True

    End If

End With


Propiedad TextFrame

Devuelve un objeto TextFrame que contiene las propiedades de alineación y fijación para la forma o estilo de texto del patrón especificados.

Comentarios

Utilice la propiedad TextRange del objeto TextFrame para devolver el texto del marco de texto.

Utilice la propiedad HasTextFrame para determinar si la forma contiene un marco de texto antes de aplicar la propiedad TextFrame.


Ejemplo de la propiedad TextFrame

Este ejemplo agrega un rectángulo a miDocumento, agrega texto al rectángulo y establece los márgenes del marco de texto.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame

    .TextRange.Text = "Esto es texto de prueba"

    .MarginBottom = 0

    .MarginLeft = 100

    .MarginRight = 0

    .MarginTop = 20

End With


Propiedad ThreeD

Devuelve un objeto ThreeDFormat que contiene propiedades de formato de efectos 3D para la forma especificada. Es de sólo lectura.


Ejemplo de la propiedad ThreeD

Este ejemplo establece la profundidad, el color de la extrusión, la dirección de la extrusión y la dirección de la iluminación para los efectos 3D aplicados a la forma uno de miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(1).ThreeD

    .Visible = True

    .Depth = 50

    .ExtrusionColor.RGB = RGB(255, 100, 255)    ' valor RGB del púrpura

    .SetExtrusionDirection msoExtrusionTop

    .PresetLightingDirection = msoLightingLeft

End With


Método Ungroup

Desagrupa las formas agrupadas en la forma o intervalo de formas especificados. Separa imágenes y objetos OLE dentro de la forma o intervalo de formas especificados. Devuelve las formas desagrupadas como único objeto ShapeRange.

Sintaxis

expresión.Ungroup

expresión   Requerida. Expresión que devuelve un objeto ShapeRange.

Comentarios

Ya que un grupo de formas se considera un solo objeto, al agrupar y desagrupar formas se cambia el número de elementos del conjunto Shapes y se cambian los números de índice de los elementos que siguen a los elementos afectados del conjunto.


Ejemplo del método Ungroup

Este ejemplo desagrupa las formas agrupadas y separa las imágenes u objetos OLE en miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

For Each f In miDocumento.Shapes

    f.Ungroup

Next

Este ejemplo desagrupa las formas agrupadas en miDocumento sin separar las imágenes u objetos OLE del documento.

Set miDocumento = ActivePresentation.Slides(1)

For Each f In miDocumento.Shapes

    If f.Type = msoGroup Then f.Ungroup

Next


Propiedad VerticalFlip

True si la forma especificada se voltea alrededor del eje vertical. Long de sólo lectura.


Ejemplo de la propiedad VerticalFlip

Este ejemplo devuelve cada forma de miDocumento a su estado original si ha sido volteada en sentido horizontal o vertical.

Set miDocumento = ActivePresentation.Slides(1)

For Each f In miDocumento.Shapes

    If f.HorizontalFlip Then f.Flip msoFlipHorizontal

    If f.VerticalFlip Then f.Flip msoFlipVertical

Next


Propiedad Vertices

Devuelve las coordenadas de los vértices de los dibujos de forma libre especificados (y los puntos de control para curvas Bézier) como una serie de pares de coordenadas. Puede usar la matriz devuelta por esta propiedad como argumento de los métodos AddCurve y AddPolyline. Variant de sólo lectura.

La siguiente tabla muestra la forma en que la propiedad Vertices asocia los valores de la matriz matrizVert () a las coordenadas de los vértices de un triángulo.

Elemento vertArray	Contiene
matrizVert(1, 1)	La distancia horizontal desde el primer vértice hasta el extremo izquierdo del documento
matrizVert(1, 2)	La distancia vertical desde el primer vértice hasta el extremo superior del documento
matrizVert(2, 1)	La distancia horizontal desde el segundo vértice hasta el extremo izquierdo del documento
matrizVert(2, 2)	La distancia vertical desde el segundo vértice hasta el extremo superior del documento
matrizVert(3, 1)	La distancia horizontal desde el tercer vértice hasta el extremo izquierdo del documento
matrizVert(3, 2)	La distancia vertical desde el tercer vértice hasta el extremo superior del documento


Ejemplo de la propiedad Vertices

Este ejemplo asigna las coordenadas de vértice para la forma uno de miDocumento a la variable de matriz vertArray() y muestra las coordenadas del primer vértice.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(1)

    matrizVert = .Vertices

    x1 = matrizVert(1, 1)

    y1 = matrizVert(1, 2)

    MsgBox "Coordenadas del primer vértice: " & x1 & ", " & y1

End With

Este ejemplo crea una curva con la misma descripción geométrica de la primera forma de miDocumento. Para que pueda ejecutar el ejemplo, la primera forma debe contener 3n+1 vértices.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    .AddCurve .Item(1).Vertices

End With


Método ZOrder

Desplaza la forma especificada delante o detrás de otras formas del conjunto (es decir, cambia la posición de la forma en el orden Z).

Sintaxis

expresión.ZOrder(ZOrderCmd)

expresión   Requerida. Expresión que devuelve un objeto Shape.

ZOrderCmd   Long  requerido. Especifica dónde debe moverse la forma especificada con respecto al resto de las formas. Puede ser una de las siguientes constantes MsoZOrderCmd: msoBringForward, msoBringToFront, msoSendBackward o msoSendToBack. Las constantes msoBringInFrontOfText y msoSendBehindText sólo se utilizan en Microsoft Word.

Comentarios

Utilice la propiedad ZOrderPosition para determinar la posición actual de una forma en el orden Z.


Ejemplo del método ZOrder

Este ejemplo agrega una elipse a miDocumento y, a continuación, la sitúa en segundo lugar desde el fondo en el orden Z, si existe al menos otra forma en el documento.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddShape(msoShapeOval, 100, 100, 100, 300)

    While .ZOrderPosition > 2

        .ZOrder msoSendBackward

    Wend

End With


Propiedad ZOrderPosition

Devuelve la posición de la forma especificada en el orden Z. Shapes(1) devuelve la última forma del orden Z y Shapes(Shapes.Count) devuelve la primera forma del orden Z. Long de sólo lectura.

La propiedad es de sólo lectura. Para establecer la posición de la forma en el orden Z, utilice el método ZOrder.

Comentarios

La posición de una forma en el orden Z equivale al número de índice de la forma en el conjunto Shapes. Por ejemplo, si existen cuatro formas en miDocumento, la expresión miDocumento.Shapes(1) devuelve la última forma del orden Z y la expresión miDocumento.Shapes(4) devuelve la primera forma del orden Z.

Siempre que se agrega una forma nueva a un conjunto, se agrega al principio del orden Z de manera predeterminada.


Ejemplo de la propiedad ZOrderPosition

Este ejemplo agrega una elipse a miDocumento y, a continuación, la sitúa en segundo lugar desde el fondo en el orden Z, si existe al menos otra forma en el documento.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddShape(msoShapeOval, 100, 100, 100, 300)

    While .ZOrderPosition > 2

        .ZOrder msoSendBackward

    Wend

End With


Método AddCallout

Crea una llamada de línea sin borde. Devuelve un objeto Shape que representa la nueva llamada.

Sintaxis

expresión.AddCallout(Type, Left, Top, Width, Height)

expresión   Requerida. Expresión que devuelve un objeto Shapes.

Type   Long requerido. Tipo de línea de la llamada. Puede ser una de las siguientes constantes MsoCalloutType: msoCalloutOne (línea de llamada de un solo segmento que puede ser horizontal o vertical), msoCalloutTwo (línea de llamada de un solo segmento que gira libremente), msoCalloutThree (línea de dos segmentos) o msoCalloutFour (línea de tres segmentos).

Left, Top   Single requerido. Posición (en puntos) de la esquina superior izquierda del cuadro de límite de la llamada con respecto a la esquina superior izquierda del documento.

Width, Height   Single requerido. El ancho y el alto del cuadro de límite de la llamada, en puntos.

Comentarios

Puede insertar una mayor variedad de llamadas utilizando el método AddShape.


Ejemplo del método AddCallout

Este ejemplo agrega a miDocumento una llamada sin borde con una línea de llamada de un solo segmento que gira libremente y, a continuación, establece el ángulo de la llamada en 30 grados.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes.AddCallout(msoCalloutTwo, 50, 50, 200, 100).Callout.Angle = msoCalloutAngle30


Método AddComment

Agrega un comentario. Devuelve un objeto Shape que representa el nuevo comentario.

Sintaxis

expresión.AddComment(Left, Top, Width, Height)

expresión   Requerida. Expresión que devuelve un objeto Shapes.

Left, Top   Single opcional. Posición (en puntos) de la esquina superior izquierda del cuadro de límite del comentario con respecto a la esquina superior izquierda del documento. El comentario se sitúa en la esquina superior izquierda del documento de forma predeterminada.

Width, Height   Single opcional. Ancho y alto del comentario, en puntos. El comentario tiene 100 puntos de alto y 100 puntos de ancho de forma predeterminada.


Ejemplo del método AddComment

Este ejemplo agrega un comentario que contiene el texto "Comentario de prueba" a miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddComment(100, 100, 150, 150)

    .TextFrame.TextRange.Text = .TextFrame.TextRange.Text + "Comentario de prueba"

End With


Método AddConnector

Crea un conector. Devuelve un objeto Shape que representa el nuevo conector. Cuando se agrega un conector, no está conectado a nada. Utilice los métodos BeginConnect y EndConnect para unir el comienzo y el final del conector a otras formas del documento.

Sintaxis

expresión.AddConnector(Type, BeginX, BeginY, EndX, EndY)

expresión   Requerida. Expresión que devuelve un objeto Shapes.

Type   Long requerido. Tipo de conector. Puede ser una de las siguientes constantes MsoConnectorType: msoConnectorCurve, msoConnectorElbow o msoConnectorStraight.

BeginX, BeginY   Single requerido. Posición (en puntos) del punto inicial del conector con respecto a la esquina superior izquierda del documento.

EndX, EndY   Single requerido. Posición (en puntos) del punto final del conector con respecto a la esquina superior izquierda del documento.

Comentarios

Cuando se une un conector a una forma, el tamaño y la posición del conector se ajustan automáticamente, si es necesario. Por lo tanto, si va a unir el conector a otras formas, la posición y las dimensiones que especifique al agregar el conector son irrelevantes.


Ejemplo del método AddConnector

Este ejemplo agrega dos rectángulos a miDocumento y los conecta mediante un conector en curva. Tenga en cuenta que cuando una el conector a los rectángulos, el tamaño y la posición del conector se ajustarán automáticamente; por lo tanto, la posición y las dimensiones que especifique al agregar la llamada son irrelevantes (las dimensiones deben ser distintas de cero).

Set miDocumento = ActivePresentation.Slides(1)

Set f = miDocumento.Shapes

Set primerRect = f.AddShape(msoShapeRectangle, 100, 50, 200, 100)

Set segundoRect = f.AddShape(msoShapeRectangle, 300, 300, 200, 100)

With f.AddConnector(msoConnectorCurve, 0, 0, 100, 100).ConnectorFormat

    .BeginConnect ConnectedShape:=primerRect, ConnectionSite:=1

    .EndConnect ConnectedShape:=segundoRect, ConnectionSite:=1

    .Parent.RerouteConnections

End With


Método AddCurve

Crea una curva Bézier. Devuelve un objeto Shape que representa la nueva curva.

Sintaxis

expresión.AddCurve(SafeArrayOfPoints)

expresión   Requerida. Expresión que devuelve un objeto Shapes.

SafeArrayOfPoints   Variant requerido. Matriz de pares de coordenadas que especifica los vértices y los puntos de control de la curva. El primer punto que se especifica es el vértice inicial y los dos puntos siguientes son puntos de control para el primer segmento Bézier. Después, para cada segmento adicional de la curva, se especifica un vértice y dos puntos de control. El último punto que se especifica es el vértice final para la curva. Tenga en cuenta que siempre deben especificarse 3n + 1 puntos, siendo n el número de segmentos de la curva.


Ejemplo del método AddCurve

El siguiente ejemplo agrega una curva Bézier de dos segmentos a miDocumento.

Dim pts(1 To 7, 1 To 2) As Single

pts(1, 1) = 0

pts(1, 2) = 0

pts(2, 1) = 72

pts(2, 2) = 72

pts(3, 1) = 100

pts(3, 2) = 40

pts(4, 1) = 20

pts(4, 2) = 50

pts(5, 1) = 90

pts(5, 2) = 120

pts(6, 1) = 60

pts(6, 2) = 30

pts(7, 1) = 150

pts(7, 2) = 90

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes.AddCurve pts


Método AddLabel

Crea un rótulo. Devuelve un objeto Shape que representa el nuevo rótulo.

Sintaxis

expresión.AddLabel(Orientation, Left, Top, Width, Height)

expresión   Requerida. Expresión que devuelve un objeto Shapes.

Orientation   Long requerido. Orientación del texto en el rótulo.Puede ser una de las siguientes constantes MsoTextOrientation: msoTextOrientationHorizontal o msoTextOrientationVerticalFarEast. No utilice otras constantes MsoTextOrientation en versiones inglesas (EE.UU.) de PowerPoint.

Left, Top   Single requerido. Posición (en puntos) de la esquina superior izquierda del rótulo con respecto a la esquina superior izquierda del documento.

Width, Height   Single requerido. Ancho y alto del rótulo, en puntos.


Ejemplo del método AddLabel

Este ejemplo agrega un rótulo vertical que contiene el texto "Rótulo de prueba" a miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes.AddLabel(msoTextOrientationVerticalFarEast, 100, 100, 60, 150) _

    .TextFrame.TextRange.Text = "Rótulo de prueba"


Método AddLine

Crea una línea. Devuelve un objeto Shape que representa la nueva línea.

Sintaxis

expresión.AddLine(BeginX, Beginy, EndX, EndY)

expresión   Requerida. Expresión que devuelve un objeto Shapes.

BeginX, BeginY   Single requerido. Posición (en puntos) del punto inicial de la línea con respecto a la esquina superior izquierda del documento.

EndX, EndY   Single requerido. Posición (en puntos) del punto final de la línea con respecto a la esquina superior izquierda del documento.


Ejemplo del método AddLine

Este ejemplo agrega una línea discontinua azul a miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddLine(10, 10, 250, 250).Line

    .DashStyle = msoLineDashDotDot

    .ForeColor.RGB = RGB(50, 0, 128)

End With


Método AddOLEObject

Crea un objeto OLE. Devuelve un objeto Shape que representa el nuevo objeto OLE.

Sintaxis

expresión.AddOLEObject(Left, Top, Width, Height, ClassName, FileName, DisplayAsIcon, IconFileName, IconIndex, IconLabel, Link)

expresión   Requerida. Expresión que devuelve un objeto Shapes.

Left, Top   Single opcional. Posición (en puntos) de la esquina superior izquierda del nuevo objeto con respecto a la esquina superior izquierda de la diapositiva. El valor predeterminado es 0 (cero).

Width, Height   Single opcional. Dimensiones iniciales del objeto OLE, en puntos.

ClassName   String opcional. Nombre OLE largo o ProgID para el objeto que debe crearse. Debe especificarse el argumento ClassName o FileName para el objeto, pero no los dos. Para más información acerca de los identificadores de programación, véase Identificadores programáticos OLE.

FileName   String opcional. Archivo a partir del cual debe crearse el objeto. Si no se especifica la ruta de acceso, se utilizará la carpeta de trabajo actual. Debe especificarse el argumento ClassName o FileName para el objeto, pero no los dos.

DisplayAsIcon   Long opcional. True para que el objeto OLE se muestre como icono. El valor predeterminado es False.

IconFileName   String opcional. Archivo que contiene el icono que debe mostrarse.

IconIndex   Long opcional. Índice del icono en IconFileName. El orden de los iconos en el archivo especificado es el mismo orden en que están dispuestos en el cuadro de diálogo Cambiar icono (al que se tiene acceso desde el cuadro de diálogo Insertar objeto cuando se activa la casilla de verificación Mostrar como icono). El primer icono del archivo tiene el número de índice 0 (cero). Si el icono con el número de índice dado no existe en IconFileName, se utilizará el icono con número de índice 1 (el segundo icono del archivo). El valor predeterminado es 0 (cero).

IconLabel   String opcional. Rótulo (título) que se mostrará debajo del icono.

Link   Long opcional. True para vincular el objeto OLE al archivo a partir del cual fue creado. False para convertir el objeto OLE en copia independiente del archivo. Si se especificó un valor para ClassName, el argumento debe ser False. El valor predeterminado es False.


Ejemplo del método AddOLEObject

Este ejemplo agrega a miDocumento un documento de Word vinculado.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes.AddOLEObject Left:=100, Top:=100, Width:=200, Height:=300, _

    FileName:="c:\mis documentos\prueba.doc", link:=True

Este ejemplo agrega una nueva hoja de cálculo de Microsoft Excel a miDocumento. La hoja de cálculo se mostrará como icono.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes.AddOLEObject Left:=100, Top:=100, Width:=200, Height:=300, _

    ClassName:="Excel.Hoja.8", DisplayAsIcon:=True

Este ejemplo agrega un botón a miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes.AddOLEObject Left:=100, Top:=100, Width:=150, Height:=50, _

    ClassName:="Forms.CommandButton.1"


Método AddPicture

Crea una imagen a partir de un archivo existente. Devuelve un objeto Shape que representa la nueva imagen.

Sintaxis

expresión.AddPicture(FileName, LinkToFile, SaveWithDocument, Left, Top, Width, Height)

expresión   Requerida. Expresión que devuelve un objeto Shapes.

FileName   String requerido. Archivo a partir del cual debe crearse el objeto OLE.

LinkToFile   Long requerido. True para vincular la imagen al archivo a partir del cual fue creado. False para convertir la imagen en copia independiente del archivo.

SaveWithDocument   Long requerido. True para guardar la imagen vinculada con el documento en la que se insertó. False para almacenar sólo la información del vínculo en el documento. El argumento debe ser True si LinkToFile es False.

Left, Top   Single requerido. Posición (en puntos) de la esquina superior izquierda de la imagen con respecto a la esquina superior izquierda del documento.

Width, Height   Single requerido. Ancho y alto de la imagen, en puntos.


Ejemplo del método AddPicture

Este ejemplo agrega una imagen creada a partir del archivo Music.bmp a miDocumento. La imagen insertada está vinculada al archivo a partir del que fue creada y se guarda con miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes.AddPicture "c:\microsoft office\clipart\music.bmp", _

    True, True, 100, 100, 70, 70


Método AddPolyline

Crea un dibujo de una polilínea abierta o un polígono cerrado. Devuelve un objeto Shape que representa la polilínea o polígono nuevos.

Sintaxis

expresión.AddPolyline(SafeArrayOfPoints)

expresión   Requerida. Expresión que devuelve un objeto Shapes.

SafeArrayOfPoints   Variant requerido. Matriz de pares de coordenadas que especifica los vértices del dibujo de la polilínea.

Comentarios

Para obtener un polígono cerrado, asigne las mismas coordenadas al primer y último vértice en el dibujo de la polilínea.


Ejemplo del método AddPolyline

Este ejemplo agrega un triángulo a miDocumento. Debido a que el primer y el último punto tienen las mismas coordenadas, el polígono es cerrado y tiene relleno. El color del interior del triángulo es el mismo que el color del relleno de la forma predeterminado.

Dim matriz(1 To 4, 1 To 2) As Single

matriz(1, 1) = 25

matriz(1, 2) = 100

matriz(2, 1) = 100

matriz(2, 2) = 150

matriz(3, 1) = 150

matriz(3, 2) = 50

matriz(4, 1) = 25     ' El último punto tiene las mismas coordenadas que el primero

matriz(4, 2) = 100

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes.AddPolyline matriz


Método AddShape

Crea una autoforma. Devuelve un objeto Shape que representa la nueva autoforma.

Sintaxis

expresión.AddShape(Type, Left, Top, Width, Height)

expresión   Requerida. Expresión que devuelve un objeto Shapes.

Type   Long requerido. Especifica el tipo de autoforma que debe crearse. Puede ser cualquiera de las constantes MsoAutoShapeType.

Left, Top   Single requerido. Posición (en puntos) de la esquina superior izquierda del cuadro de límite de la autoforma con respecto a la esquina superior izquierda del documento.

Width, Height   Single requerido. Ancho y alto del cuadro de límite de la autoforma, en puntos.

Comentarios

Para cambiar el tipo de la autoforma agregada, establezca la propiedad AutoShapeType.


Ejemplo del método AddShape

Este ejemplo agrega un rectángulo a miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes.AddShape msoShapeRectangle, 50, 50, 100, 200


Método AddTextbox

Crea un cuadro de texto. Devuelve un objeto Shape que representa el nuevo cuadro de texto.

Sintaxis

expresión.AddTextbox(Orientation, Left, Top, Width, Height)

expresión   Requerida. Expresión que devuelve un objeto Shapes.

Orientation   Long requerido. Orientación del texto en el rótulo.Puede ser una de las siguientes constantes MsoTextOrientation: msoTextOrientationHorizontal o msoTextOrientationVerticalFarEast. No utilice otras constantes MsoTextOrientation en versiones inglesas (EE.UU.) de PowerPoint.

Left, Top   Single requerido. Posición (en puntos) de la esquina superior izquierda del cuadro de texto con respecto a la esquina superior izquierda del documento.

Width, Height   Single requerido. Ancho y alto del cuadro de texto, en puntos.


Ejemplo del método AddTextbox

Este ejemplo agrega un cuadro de texto que contiene el texto "Cuadro de prueba" a miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes.AddTextbox(msoTextOrientationHorizontal, 100, 100, 200, 50) _

    .TextFrame.TextRange.Text = "Cuadro de prueba"


Método AddTextEffect

Crea un objeto de WordArt. Devuelve un objeto Shape que representa el nuevo objeto de WordArt.

Sintaxis

expresión.AddTextEffect(PresetTextEffect, Text, FontName, FontSize, FontBold, FontItalic, Left, Top)

expresión   Requerida. Expresión que devuelve un objeto Shapes.

PresetTextEffect   Long requerido. Efecto de texto previamente establecido. Puede ser una de las siguientes constantes MsoPresetTextEffect:

msoTextEffect1 msoTextEffect10 msoTextEffect11 msoTextEffect12 msoTextEffect13 msoTextEffect14 msoTextEffect15 msoTextEffect16 msoTextEffect17 msoTextEffect18 msoTextEffect19 msoTextEffect2 msoTextEffect20 msoTextEffect21 msoTextEffect22	msoTextEffect23 msoTextEffect24 msoTextEffect25 msoTextEffect26 msoTextEffect27 msoTextEffect28 msoTextEffect29 msoTextEffect3 msoTextEffect30 msoTextEffect4 msoTextEffect5 msoTextEffect6 msoTextEffect7 msoTextEffect8 msoTextEffect9
Text   String requerido. Texto en el WordArt.

FontName   String requerido. Nombre de la fuente utilizada en el WordArt.

FontSize   Single requerido. Tamaño (en puntos) de la fuente utilizada en el WordArt.

FontBold   Long requerido. True para establecer la fuente utilizada en el WordArt como negrita.

FontItalic   Long requerido. True para establecer la fuente utilizada en el WordArt como cursiva.

Left, Top   Single requerido. Posición (en puntos) de la esquina superior izquierda del cuadro de límite de WordArt con respecto a la esquina superior izquierda del documento.

Comentarios

Cuando se agrega un WordArt a un documento, el alto y ancho del WordArt se establecen automáticamente en función del tamaño y de la cantidad de texto que se especifique.


Ejemplo del método AddTextEffect

Este ejemplo agrega un WordArt que contiene el texto "Prueba" a miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

Set WordArtNuevo = miDocumento.Shapes.AddTextEffect(PresetTextEffect:=msoTextEffect1, Text:="Prueba", _

    FontName:="Arial negrita", FontSize:=36, FontBold:=False, FontItalic:=False, Left:=10, Top:=10)


Método AddTitle

Restaura un marcador de posición de título previamente eliminado en una diapositiva. Devuelve un objeto Shape que representa el título restaurado.

Nota   Este método producirá un error si no se ha eliminado antes el marcador de posición de título de la diapositiva especificada. Utilice la propiedad HasTitle para determinar si el marcador de posición de título se ha eliminado.

Sintaxis

expresión.AddTitle

expresión   Requerida. Expresión que devuelve un objeto Shapes.


Ejemplo del método AddTitle

Este ejemplo restaura el marcador de posición de título en la diapositiva uno de la presentación activa si dicho marcador de posición se ha eliminado. El texto del título restaurado es "Título restaurado".

With ActivePresentation.Slides(1)

    If .Layout <> ppLayoutBlank Then

        With .Shapes

            If Not .HasTitle Then

                .AddTitle.TextFrame.TextRange.Text = "Título restaurado"

            End If

        End With

    End If

End With


Método BuildFreeform

Crea un objeto de forma libre. Devuelve un objeto FreeformBuilder que representa la forma libre tal como está siendo creada. Utilice el método AddNodes para agregar segmentos a la forma libre. Después de haber agregado al menos un segmento a la forma libre, puede utilizar el método ConvertToShape para convertir el objeto FreeformBuilder en un objeto Shape que tenga la descripción geométrica definida para el objeto FreeformBuilder.

Sintaxis

expresión.BuildFreeform(EditingType, X1, Y1)

expresión   Requerida. Expresión que devuelve un objeto Shapes.

EditingType   Long requerido. Propiedad de modificación del primer nodo. Puede ser una de las siguientes constantes MsoEditingType: msoEditingAuto o msoEditingCorner (no puede ser msoEditingSmooth ni msoEditingSymmetric).

X1, Y1   Single requerido. Posición (en puntos) del primer nodo del dibujo de forma libre con respecto a la esquina superior izquierda del documento.


Ejemplo del método BuildFreeform

Este ejemplo agrega una forma libre de cuatro segmentos a miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.BuildFreeform(msoEditingCorner, 360, 200)

    .AddNodes msoSegmentCurve, msoEditingCorner, 380, 230, 400, 250, 450, 300

    .AddNodes msoSegmentCurve, msoEditingAuto, 480, 200

    .AddNodes msoSegmentLine, msoEditingAuto, 480, 400

    .AddNodes msoSegmentLine, msoEditingAuto, 360, 200

    .ConvertToShape

End With


forma predeterminada

Forma virtual que contiene propiedades de formato predeterminadas para formas nuevas. Existe una forma predeterminada para cada presentación.


Propiedad HasTitle

True si el conjunto de objetos en la diapositiva especificada contiene un marcador de posición de título. Long de sólo lectura.


Ejemplo de la propiedad HasTitle

Este ejemplo restaura el marcador de posición de título en la diapositiva uno de la presentación activa si dicho marcador de posición se ha eliminado. El texto del título restaurado es "Título restaurado".

With ActivePresentation.Slides(1)

    If .Layout <> ppLayoutBlank Then

        With .Shapes

            If Not .HasTitle Then

                .AddTitle.TextFrame.TextRange.Text = "Título restaurado"

            End If

        End With

    End If

End With


Propiedad Placeholders

Devuelve un conjunto Placeholders que representa el conjunto de todos los marcadores de posición en una diapositiva. Cada marcador de posición del conjunto puede contener texto, un gráfico, una tabla, un organigrama u otro objeto. Es de sólo lectura.


Ejemplo de la propiedad Placeholders

Este ejemplo agrega una diapositiva a la presentación activa y, a continuación, agrega texto tanto al título (que es el primer marcador de posición de la diapositiva) como al subtítulo.

Set miDocumento = ActivePresentation.Slides(1)

With ActivePresentation.Slides.Add(1, ppLayoutTitle).Shapes.Placeholders

    .Item(1).TextFrame.TextRange.Text = "Éste es el texto del título"

    .Item(2).TextFrame.TextRange.Text = "Éste es el texto del subtítulo"

End With


Método Range

Objeto Shapes: Devuelve un objeto ShapeRange que representa el subconjunto de las formas en un conjunto Shapes.

Objeto Slides: Devuelve un objeto SlideRange que representa el subconjunto de las diapositivas en un conjunto Slides.

Sintaxis

expresión.Range(Index)

expresión   Requerida. Expresión que devuelve un objeto Shapes o Slides.

Index   Variant opcional. Cada una de las formas o diapositivas que deben incluirse en el intervalo. Puede ser un entero que especifique el número de índice de la forma o diapositiva, una cadena que especifique el nombre de la forma o diapositiva o una matriz que contenga números enteros o cadenas. Si se omite este argumento, el método Range devuelve todos los objetos del conjunto especificado.

Comentarios

Aunque puede utilizar el método Range para devolver cualquier número de formas o diapositivas, es más fácil utilizar el método Item si sólo desea devolver un único elemento del conjunto. Por ejemplo, Shapes(1) es más fácil que Shapes.Range(1) y Slides(2) es más fácil que Slides.Range(2).

Si desea especificar una matriz de enteros o cadenas para Index, puede utilizar la función Array. Por ejemplo, la siguiente instrucción devuelve dos formas especificadas por nombre.

Set miIntervalo = miDocumento.Shapes.Range(Array("Óvalo 4", "Rectángulo 5"))


Ejemplo del método Range

Este ejemplo establece el diseño del relleno para las formas uno y tres de miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes.Range(Array(1, 3)).Fill.Patterned msoPatternHorizontalBrick

Este ejemplo establece el diseño del relleno para las formas denominadas "¨´Ovalo 4" y "Rectángulo 5" de miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

Set miIntervalo = miDocumento.Shapes.Range(Array("Óvalo 4", "Rectángulo 5"))

miIntervalo.Fill.Patterned msoPatternHorizontalBrick

Este ejemplo establece el diseño del relleno para todas las formas de miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes.Range.Fill.Patterned msoPatternHorizontalBrick

Este ejemplo establece el diseño del relleno para la forma uno de miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

Set miIntervalo = miDocumento.Shapes.Range(1)

miIntervalo.Fill.Patterned msoPatternHorizontalBrick

Este ejemplo crea una matriz que contiene todas las autoformas de miDocumento, la utiliza para definir un intervalo de formas y, a continuación, distribuye todas las formas de dicho intervalo en sentido horizontal.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    numFormas = .Count

    If numFormas > 1 Then

        numAutoformas = 0

        ReDim matrizAutoformas(1 To numFormas)

        For i = 1 To numFormas

            If .Item(i).Type = msoAutoShape Then

                numAutoformas = numAutoformas + 1

                matrizAutoformas(numAutoformas) = .Item(i).Name

            End If

        Next

        If numAutoformas > 1 Then

            ReDim Preserve matrizAutoformas(1 To numAutoformas)

            Set intervalo = .Range(matrizAutoformas)

            intervalo.Distribute msoDistributeHorizontally, False

        End If

    End If

End With

Este ejemplo establece el color del título para las diapositivas uno y tres de miDocumento.

Set misDiapositivas = ActivePresentation.Slides.Range(Array(1, 3))

misDiapositivas .ColorScheme.Colors(ppTitle).RGB = RGB(0, 255, 0)

Este ejemplo establece el color del título para las diapositivas denominadas "Diapositiva6" y "Diapositiva8" de miDocumento.

Set misDiapositivas = ActivePresentation.Slides.Range(Array("Diapositiva6", "Diapositiva8"))

misDiapositivas .ColorScheme.Colors(ppTitle).RGB = RGB(0, 255, 0)

Este ejemplo establece el color del título para todas las diapositivas de la presentación activa.

Set misDiapositivas = ActivePresentation.Slides.Range

misDiapositivas.ColorScheme.Colors(ppTitle).RGB = RGB(255, 0, 0)

Este ejemplo crea una matriz que contiene todas las diapositivas con título de la presentación activa, utiliza la matriz para definir un intervalo de diapositivas y, a continuación, establece el color del título para todas las diapositivas del intervalo.

Dim matrizTitulos() As Long

Set diapositivas = ActivePresentation.Slides

ReDim matrizTitulos(1 To diapositivas.Count)

For Each diapo In diapositivas

    If diapo.Layout = ppLayoutTitle Then

        contador = contador + 1

        matrizTitulos(contador) = diapo.SlideIndex

    End If

Next diapo

ReDim Preserve matrizTitulos(1 To contador)

Set intervaloDiapositivas = ActivePresentation.Slides.Range(matrizTitulos)

intervaloDiapositivas.ColorScheme.Colors(ppTitle).RGB = RGB(255, 123, 99)


Método SelectAll

Selecciona todas las formas del conjunto Shapes especificado.

Sintaxis

expresión.SelectAll

expresión   Requerida. Expresión que devuelve un objeto Shapes.


Ejemplo del método SelectAll

Este ejemplo selecciona todas las formas de miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes.SelectAll


Propiedad Title

Devuelve un objeto Shape que representa el título de la diapositiva. Es de sólo lectura.

Comentarios

También puede utilizar el método Item del conjunto Shapes o Placeholders para devolver el título de la diapositiva.


Ejemplo de la propiedad Title

Este ejemplo establece el texto del título en la diapositiva uno de miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes.Title.TextFrame.TextRange.Text = "Bienvenido"


Propiedad EditingType

Si el nodo especificado es un vértice, la propiedad devuelve un valor que indica cómo afectan los cambios realizados en el nodo a los dos segmentos conectados con él. Puede ser una de las siguientes constantes MsoEditingType: msoEditingAuto, msoEditingCorner, msoEditingSmooth o msoEditingSymmetric. Si el nodo es un punto de control para un segmento curvo, la propiedad devuelve el tipo de modificación del vértice adyacente. Long de sólo lectura.

Comentarios

Esta propiedad es de sólo lectura. Utilice el método SetEditingType para establecer el valor de esta propiedad.


Ejemplo de la propiedad EditingType

Este ejemplo convierte los nodos de las esquinas en nodos suaves en la forma tres de miDocumento. La forma tres debe ser un dibujo de forma libre.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(3).Nodes

    For n = 1 to .Count

        If .Item(n).EditingType = msoEditingCorner Then

            .SetEditingType n, msoEditingSmooth

        End If

    Next

End With


Propiedad Points

Devuelve la posición del nodo especificado como par de coordenadas. Cada coordenada se expresa en puntos. Variant de sólo lectura.

Comentarios

Esta propiedad es de sólo lectura. Utilice el método SetPosition para establecer el valor de esta propiedad.


par de coordenadas

Par de valores que representan las coordenadas X e Y de un punto que se almacenan en una matriz de dos dimensiones con base 1 que puede contener coordenadas para muchos puntos.

El siguiente ejemplo crea una matriz de base 1 que contiene los pares de coordenadas 50, 150 y 100, 200. Tenga en cuenta que cuando define las dimensiones de la matriz, el tamaño de la primera dimensión es el número de puntos que desea incluir y el tamaño de la segunda dimensión es dos (la primera posición de la dimensión pertenece a la coordenada X, la segunda a la coordenada Y).

Dim matriz(1 To 2, 1 To 2)

matriz(1, 1) = 50	' La coordenada X del primer punto

matriz(1, 2) = 150	' La coordenada Y del primer punto

matriz(2, 1) = 100	' La coordenada X del segundo punto

matriz(2, 2) = 200	' La coordenada Y del segundo punto


Ejemplo de la propiedad Points

Este ejemplo desplaza el nodo dos de la forma tres de miDocumento 200 puntos hacia la derecha y 300 puntos hacia abajo. La forma tres debe ser un dibujo de forma libre.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(3).Nodes

    matrizPuntos = .Item(2).Points

    xActual = matrizPuntos(1, 1)

    yActual = matrizPuntos(1, 2)

    .SetPosition 2, xActual + 200, yActual + 300

End With


Propiedad SegmentType

Devuelve un valor que indica si el segmento asociado al nodo especificado es recto o curvo. Puede ser una de las siguientes constantes MsoSegmentType: msoSegmentCurve o msoSegmentLine. Si el nodo especificado es un punto de control para un segmento curvo, esta propiedad devuelve msoSegmentCurve. Long de sólo lectura.

Comentarios

Esta propiedad es de sólo lectura. Utilice el método SetSegmentType para establecer el valor de la propiedad.


Ejemplo de la propiedad SegmentType

Este ejemplo convierte todos los segmentos rectos en segmentos curvos en la forma tres de miDocumento. La forma tres debe ser un dibujo de forma libre.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(3).Nodes

    n = 1

    While n <= .Count

        If .Item(n).SegmentType = msoSegmentLine Then

            .SetSegmentType n, msoSegmentCurve

        End If

        n = n + 1

    Wend

End With


Método Insert

Inserta un nuevo segmento después del nodo especificado de la forma libre.

Sintaxis

expresión.Insert(Index, SegmentType, EditingType, X1, Y1, X2, Y2, X3, Y3)

expresión   Requerida. Expresión que devuelve un objeto ShapeNodes.

Index   Long  requerido. Nodo tras el que se insertará el nuevo nodo.

SegmentType   Long  requerido. Tipo de segmento que debe agregarse. Puede ser una de las siguientes constantes MsoSegmentType: msoSegmentCurve o msoSegmentLine.

EditingType   Long  requerido. Propiedad de modificación del vértice. Puede ser una de las siguientes constantes MsoEditingType: msoEditingAuto o msoEditingCorner (no puede ser msoEditingSmooth ni msoEditingSymmetric).

X1   Single  requerido. Si el EditingType del nuevo segmento es msoEditingAuto, el argumento especifica la distancia horizontal (en puntos) desde la esquina superior izquierda del documento hasta el punto final del nuevo segmento. Si el EditingType del nuevo nodo es msoEditingCorner, el argumento especifica la distancia horizontal (en puntos) desde la esquina superior izquierda del documento hasta el primer punto de control del nuevo segmento.

Y1   Single  requerido. Si el EditingType del nuevo segmento es msoEditingAuto, el argumento especifica la distancia vertical (en puntos) desde la esquina superior izquierda del documento hasta el punto final del nuevo segmento. Si el EditingType del nuevo nodo es msoEditingCorner, el argumento especifica la distancia vertical (en puntos) desde la esquina superior izquierda del documento hasta el primer punto de control del nuevo segmento.

X2   Single opcional. Si el EditingType del nuevo segmento es msoEditingCorner, el argumento especifica la distancia horizontal (en puntos) desde la esquina superior izquierda del documento hasta el segundo punto de control del nuevo segmento. Si el EditingType del nuevo segmento es msoEditingAuto, no especifique ningún valor para este argumento.

Y2   Single opcional. Si el EditingType del nuevo segmento es msoEditingCorner, el argumento especifica la distancia vertical (en puntos) desde la esquina superior izquierda del documento hasta el segundo punto de control del nuevo segmento. Si el EditingType del nuevo segmento es msoEditingAuto, no especifique ningún valor para este argumento.

X3   Single opcional. Si el EditingType del nuevo segmento es msoEditingCorner, el argumento especifica la distancia horizontal (en puntos) desde la esquina superior izquierda del documento hasta el punto final del nuevo segmento. Si el EditingType del nuevo segmento es msoEditingAuto, no especifique ningún valor para este argumento.

Y3   Single opcional. Si el EditingType del nuevo segmento es msoEditingCorner, el argumento especifica la distancia vertical (en puntos) desde la esquina superior izquierda del documento hasta el punto final del nuevo segmento. Si el EditingType del nuevo segmento es msoEditingAuto, no especifique ningún valor para este argumento.


Ejemplo del método Insert

Este ejemplo agrega un nodo suave con un segmento curvo después del nodo cuatro de la forma tres de miDocumento. La forma tres debe ser un dibujo de forma libre con un mínimo de cuatro nodos.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(3).Nodes

    .Insert 4, msoSegmentCurve, msoEditingSmooth, 210, 100

End With


Método SetEditingType

Establece el tipo de modificación del nodo especificado por Index. Si el nodo es un punto de control de un segmento curvo, el método establece el tipo de modificación del nodo adyacente a él que une dos segmentos. Tenga en cuenta que, dependiendo del tipo de modificación, este método puede afectar a la posición de los nodos adyacentes.

Sintaxis

expresión.SetEditingType(Index, EditingType)

expresión   Requerida. Expresión que devuelve un objeto ShapeNodes.

Index   Long  requerido. Nodo cuyo tipo de modificación debe establecerse.

EditingType   Long  requerido. Propiedad de modificación del vértice. Puede ser una de las siguientes constantes MsoEditingType: msoEditingAuto, msoEditingCorner, msoEditingSmooth o msoEditingSymmetric.


Ejemplo del método SetEditingType

Este ejemplo convierte los nodos de las esquinas en nodos suaves en la forma tres de miDocumento. La forma tres debe ser un dibujo de forma libre.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(3).Nodes

    For n = 1 to .Count

        If .Item(n).EditingType = msoEditingCorner Then

            .SetEditingType n, msoEditingSmooth

        End If

    Next

End With


Método SetPosition

Establece la ubicación del nodo especificado por Index. Tenga en cuenta que, dependiendo del tipo de modificación del nodo, el método puede afectar a la posición de los nodos adyacentes.

Sintaxis

expresión.SetPosition(Index, X1, Y1)

expresión   Requerida. Expresión que devuelve un objeto ShapeNodes.

Index   Long  requerido. Nodo cuya posición debe establecerse.

X1, Y1   Single  requerido. Posición (en puntos) del nuevo nodo con respecto a la esquina superior izquierda del documento.


Ejemplo del método SetPosition

Este ejemplo desplaza el nodo dos de la forma tres de miDocumento 200 puntos hacia la derecha y 300 puntos hacia abajo. La forma tres debe ser un dibujo de forma libre.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(3).Nodes

    matrizPuntos = .Item(2).Points

    xActual = matrizPuntos(0, 0)

    yActual = matrizPuntos(0, 1)

    .SetPosition 2, xActual + 200, yActual + 300

End With


Método SetSegmentType

Establece el tipo del segmento que sigue al nodo especificado por Index. Si el nodo es un punto de control de un segmento curvo, el método establece el tipo de segmento para la curva. Tenga en cuenta que esto puede afectar al número total de nodos al insertar o eliminar nodos adyacentes.

Sintaxis

expresión.SetSegmentType(Index, SegmentType)

expresión   Requerida. Expresión que devuelve un objeto ShapeNodes.

Index   Long  requerido. Nodo cuyo tipo de segmento debe establecerse.

SegmentType   Long  requerido. Especifica si el segmento es recto o curvo. Puede ser una de las siguientes constantes MsoSegmentType: msoSegmentCurve o msoSegmentLine.


Ejemplo del método SetSegmentType

Este ejemplo convierte todos los segmentos rectos en segmentos curvos en la forma tres de miDocumento. La forma tres debe ser un dibujo de forma libre.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(3).Nodes

    n = 1

    While n <= .Count

        If .Item(n).SegmentType = msoSegmentLine Then

            .SetSegmentType n, msoSegmentCurve

        End If

        n = n + 1

    Wend

End With


Propiedad Background

Objetos Master, Slide y SlideRange: Devuelve un objeto ShapeRange que representa el fondo de la diapositiva. Es de sólo lectura.

Comentarios

Si desea usar la propiedad Background para establecer el fondo de una diapositiva en particular sin cambiar el patrón de título, la propiedad FollowMasterBackground de la diapositiva debe ser False.


Ejemplo de la propiedad Background

Este ejemplo establece en una sombra preestablecida el fondo del patrón de diapositivas de la presentación activa.

ActivePresentation.SlideMaster.Background.Fill.PresetGradient _

    msoGradientHorizontal, 1, msoGradientLateSunset

Este ejemplo establece en una sombra preestablecida el fondo del patrón de la diapositiva uno de la presentación activa.

With ActivePresentation.Slides(1)

    .FollowMasterBackground = False

    .Background.Fill.PresetGradient msoGradientHorizontal, 1, msoGradientLateSunset

End With


Propiedad FollowMasterBackground

True si la diapositiva o el intervalo de diapositivas especificados sigue el fondo del patrón de diapositivas. False si la diapositiva o el intervalo de diapositivas especificados tiene un fondo personalizado. Long de Lectura/Escritura.

Comentarios

Al crear una diapositiva nueva, el valor predeterminado de esta propiedad es True. Si se copia una diapositiva desde otra presentación, mantiene la configuración que tenía en la presentación original. Es decir, si la diapositiva seguía el fondo del patrón de diapositivas en la presentación original, seguirá el fondo del patrón de diapositivas automáticamente en la presentación nueva. En cambio, si la diapositiva tenía un fondo personalizado, mantendrá ese fondo personalizado.

Tenga en cuenta que la apariencia del fondo de la diapositiva depende, no sólo del fondo, sino también de la combinación de colores y de los objetos de fondo. Si sólo con el valor de la propiedad FollowMasterBackground no se obtienen los resultados deseados, cambie además el valor de las propiedades ColorScheme y DisplayMasterShapes.


Ejemplo de la propiedad FollowMasterBackground

Este ejemplo copia la diapositiva uno de la segunda presentación, pega la diapositiva al final de la primera presentación e iguala el fondo de la diapositiva, la combinación de colores y los objetos de fondo del resto de la primera presentación.

Presentations(2).Slides(1).Copy

With Presentations(1).Slides.Paste

    .FollowMasterBackground = True

    .ColorScheme = Presentations(1).SlideMaster.ColorScheme

    .DisplayMasterShapes = True

End With


Propiedad DisplayMasterShapes

True si la diapositiva o el intervalo de diapositivas especificados muestran los objetos de fondo en el fondo del patrón de diapositivas. Estos objetos de fondo pueden incluir texto, dibujos, objetos OLE e imágenes prediseñadas agregados al patrón de diapositivas. No se incluyen los encabezados ni los pies de página. Long de Lectura/Escritura.

Comentarios

Al crear una diapositiva nueva, el valor predeterminado de esta propiedad es True. Si se copia una diapositiva desde otra presentación, mantiene la configuración que tenía en la presentación original. Es decir, si se omitieron los objetos de fondo del patrón de diapositivas en la presentación original, se omitirán también en la nueva presentación.

Tenga en cuenta que la apariencia del fondo de la diapositiva depende, no sólo del fondo, sino también de la combinación de colores y de los objetos de fondo. Si sólo con el valor de la propiedad DisplayMasterShapes no se obtienen los resultados deseados, cambie además el valor de las propiedades FollowMasterBackground y ColorScheme.


Ejemplo de la propiedad DisplayMasterShapes

Este ejemplo copia la diapositiva uno de la segunda presentación, pega la diapositiva al final de la primera presentación e iguala el fondo de la diapositiva, la combinación de colores y los objetos de fondo del resto de la primera presentación.

Presentations(2).Slides(1).Copy

With Presentations(1).Slides.Paste

    .FollowMasterBackground = True

    .ColorScheme = Presentations(1).SlideMaster.ColorScheme

    .DisplayMasterShapes = True

End With


Propiedad HeadersFooters

Devuelve un conjunto HeadersFooters que representa el encabezado, el pie de página, la fecha y hora y el número de diapositiva asociados con la diapositiva, patrón de diapositivas o intervalo de diapositivas. Es de sólo lectura.

Para obtener información acerca de cómo devolver un único componente de un conjunto, vea Devolver un objeto de un conjunto.


Ejemplo de la propiedad HeadersFooters

Este ejemplo establece el formato de texto del pie de página y de la fecha y hora del patrón de notas en la presentación activa y establece que la fecha y la hora se actualicen automáticamente.

With ActivePresentation.NotesMaster.HeadersFooters

    .Footer.Text = "Ventas"

    With .DateAndTime

        .UseFormat = True

        .Format = ppDateTimeHmmss

    End With

End With


Propiedad Hyperlinks

Devuelve un conjunto Hyperlinks que representa todos los hipervínculos de la diapositiva especificada. Es de sólo lectura.

Para obtener información acerca de cómo devolver un único componente de un conjunto, vea Devolver un objeto de un conjunto.


Ejemplo de la propiedad Hyperlinks

Este ejemplo permite al usuario actualizar una dirección Internet antigua en todos los hipervínculos de la presentación activa.

dirAntigua = InputBox("Dirección de Internet antigua")

dirNueva = InputBox("Dirección de Internet nueva")

For Each d In ActivePresentation.Slides

    For Each h In d.Hyperlinks

        If LCase(h.Address) = dirAntigua Then h.Address = dirNueva

    Next

Next


Propiedad Layout

Devuelve o establece el diseño de la diapositiva. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes PpSlideLayout:

ppLayoutBlank ppLayoutChart ppLayoutChartAndText ppLayoutClipartAndText ppLayoutClipArtAndVerticalText ppLayoutFourObjects ppLayoutLargeObject ppLayoutMediaClipAndText ppLayoutMixed ppLayoutObject ppLayoutObjectAndText ppLayoutObjectOverText ppLayoutOrgchart ppLayoutTable ppLayoutText	ppLayoutTextAndChart ppLayoutTextAndClipart ppLayoutTextAndMediaClip ppLayoutTextAndObject ppLayoutTextAndTwoObjects ppLayoutTextOverObject ppLayoutTitle ppLayoutTitleOnly ppLayoutTwoColumnText ppLayoutTwoObjectsAndText ppLayoutTwoObjectsOverText ppLayoutVerticalText ppLayoutVerticalTitleAndText ppLayoutVerticalTitleAndTextOverChart


Ejemplo de la propiedad Layout

Este ejemplo cambia el diseño de la diapositiva uno de la presentación activa para que incluya un título y un subtítulo si inicialmente tenía solamente un título.

With ActivePresentation.Slides(1)

    If .Layout = ppLayoutTitleOnly Then

        .Layout = ppLayoutTitle

    End If

End With


Propiedad Master

Devuelve un objeto Master que representa el patrón de diapositivas. Es de sólo lectura.


Ejemplo de la propiedad Master

Este ejemplo establece el relleno del fondo del patrón de diapositivas de la diapositiva uno de la presentación activa.

ActivePresentation.Slides(1).Master.Background.Fill _

    .PresetGradient msoGradientDiagonalUp, 1, msoGradientDaybreak


Propiedad NotesPage

Devuelve un objeto SlideRange que representa las página de notas de la diapositiva o intervalo de diapositivas especificados. Es de sólo lectura.

Nota   No es posible aplicar los siguientes métodos y propiedades a un objeto SlideRange que representa una página de notas: método Copy, método Cut, método Delete, método Duplicate, propiedad HeadersFooters, propiedad Hyperlinks, propiedad Layout, propiedad PrintSteps, propiedad SlideShowTransition.

Comentarios

La propiedad NotesPage devuelve la página de notas de una diapositiva o un intervalo de diapositivas y únicamente permite hacer cambios en estas páginas de notas. Si desea hacer cambios que afecten a todas las páginas de notas, use la propiedad NotesMaster para obtener el objeto Slide que representa el patrón de notas.


Ejemplo de la propiedad NotesPage

Este ejemplo establece el relleno del fondo de la página de notas de la diapositiva uno de la presentación activa.

With ActivePresentation.Slides(1).NotesPage

    .FollowMasterBackground = False

    .Background.Fill.PresetGradient msoGradientHorizontal, 1, msoGradientLateSunset

End With


Propiedad PrintSteps

Devuelve el número de diapositivas que se deben imprimir para simular las animaciones en la diapositiva, patrón de diapositivas o intervalo de diapositivas especificados. Long de sólo lectura.


Ejemplo de la propiedad PrintSteps

Este ejemplo establece una variable en el número de diapositivas que se deben imprimir para simular las animaciones en la diapositiva uno de la presentación activa. Después muestra el valor de dicha variable.

pasos1 = ActivePresentation.Slides(1).PrintSteps

MsgBox pasos1


Método Select

Selecciona el objeto especificado.

Sintaxis 1

expresión.Select

expresión   Requerida. Una expresión que devuelve un objeto Slide, SlideRange o TextRange.

Sintaxis 2

expresión.Select(Replace)

expresión   Requerida. Expresión que devuelve un objeto Shape o ShapeRange.

Replace   Long opcional. True si la selección reemplaza a la selección previa. False si la selección se agrega a la selección previa. El valor predeterminado es False.

Comentarios

El código no funcionará si se intenta hacer una selección que no es apropiada para la vista actual. Por ejemplo, puede seleccionar una diapositiva en la vista Clasificador de diapositivas, pero no en la vista Diapositivas.


Ejemplo del método Select

Este ejemplo selecciona la primera y tercera formas de la diapositiva número uno de la presentación activa.

ActivePresentation.Slides(1).Shapes.Range(Array(1, 3)).Select

Este ejemplo agrega la segunda y cuarta formas de la diapositiva número uno de la presentación activa a la selección previa.

ActivePresentation.Slides(1).Shapes.Range(Array(2, 4)).Select False

Este ejemplo selecciona los primeros cinco caracteres del título de la diapositiva de la presentación activa.

ActivePresentation.Slides(1).Shapes.Title.TextFrame.TextRange.Characters(1, 5).Select

Este ejemplo selecciona la primera diapositiva de la presentación activa.

ActivePresentation.Slides(1).Select


Propiedad Shapes

Devuelve un conjunto Shapes que representa todos los elementos colocados o insertados en la diapositiva, patrón de diapositivas o intervalo de diapositivas especificados. Este conjunto puede contener dibujos, formas, objetos OLE, imágenes, objetos de texto, títulos, encabezados, pies de página, números de diapositiva y objetos de fecha y hora de una diapositiva o de la imagen de diapositiva de la página de notas. Es de sólo lectura.

Para obtener información acerca de cómo devolver un único componente de un conjunto, vea Devolver un objeto de un conjunto.


Ejemplo de la propiedad Shapes

Este ejemplo agrega un rectángulo de 100 puntos de ancho y 50 puntos de alto, cuyo vértice izquierdo está a 5 puntos del borde izquierdo de la primera diapositiva en la presentación activa y a 25 puntos de la parte superior de la diapositiva.

Set diapositiva1 = ActivePresentation.Slides(1)

diapositiva1.Shapes.AddShape msoShapeRectangle, 5, 25, 100, 50

Este ejemplo establece la textura del texto en la forma número tres de la primera diapositiva de la presentación activa.

Set rectNuevo = ActivePresentation.Slides(1).Shapes(3)

rectNuevo.Fill.PresetTextured msoTextureOak

Suponiendo que la primera diapositiva de la presentación tenga un título, la tercera y cuarta líneas de código del siguiente ejemplo establecen el texto del título de la primera diapositiva.

Set diapositiva1 = ActivePresentation.Slides(1)

diapositiva1.Shapes.Title.TextFrame.TextRange.Text = "Texto en el título"

diapositiva1.Shapes(1).TextFrame.TextRange.Text = "Otro texto en el título"

Suponiendo que la segunda forma de la diapositiva número dos de la presentación activa contenga un marco de texto, el siguiente ejemplo agrega una serie de párrafos a la diapositiva. Observe que se usa Chr(13) para insertar marcas de párrafos dentro del texto.

Set forma = ActivePresentation.Slides(2).Shapes(2)

forma.TextFrame.TextRange.Text = "Primer elemento" & Chr(13) & _

    "Segundo elemento" & Chr(13) & "Tercer elemento"

Para la mayor parte de los diseños, las primeras formas de las diapositivas son marcadores de posición. El ejemplo siguiente realiza la misma función que el ejemplo anterior.

Set forma = ActivePresentation.Slides(2).Shapes.Placeholders(2)

forma.TextFrame.TextRange.Text = "Primer elemento" & _

    Chr(13) & "Segundo elemento" & Chr(13) & "Tercer elemento"


Propiedad SlideID

Devuelve un número de Id. exclusivo para la diapositiva especificada. Long de sólo lectura.

Comentarios

Al contrario que la propiedad SlideIndex, la propiedad SlideID de un objeto Slide no cambia al agregar diapositivas a la presentación o al ordenar las diapositivas de la presentación. Por tanto, para obtener un objeto Slide específico de un conjunto Slides, es más fiable usar el método FindBySlideID con el número de Id. de la diapositiva que usar el método Item con el índice de la diapositiva.


Ejemplo de la propiedad SlideID

Este ejemplo demuestra cómo obtener el número de Id. exclusivo de un objeto Slide. Después utiliza dicho número para obtener ese objeto Slide de un conjunto Slides.

Set diapositivas = ActivePresentation.Slides

IdDiap = diapositivas.Add(2, ppLayoutChart).SlideID    'Obtener Id. de diapositiva

diapositivas.FindBySlideID(IdDiap).SlideShowTransition.EntryEffect = _

    ppEffectCoverLeft      'Usar el Id. para obtener la diapositiva


Propiedad SlideIndex

Devuelve el número de índice de la diapositiva especificada del conjunto Slides. Long de sólo lectura.

Comentarios

Al contrario que la propiedad SlideID, la propiedad SlideIndex de un objeto Slide puede cambiar al agregar diapositivas a la presentación o al ordenar las diapositivas de la presentación. Por tanto, para obtener un objeto Slide específico de un conjunto Slides, es más fiable usar el método FindBySlideID con el número de Id. de la diapositiva que usar el método Item con el índice de la diapositiva.


Ejemplo de la propiedad SlideIndex

Este ejemplo muestra el índice de la diapositiva mostrada actualmente en la primera ventana de la presentación de diapositivas.

MsgBox SlideShowWindows(1).View.Slide.SlideIndex


Propiedad SlideShowTransition

Devuelve un objeto SlideShowTransition que representa el efecto especial de la transición de la diapositiva especificada. Es de sólo lectura.


Ejemplo de la propiedad SlideShowTransition

Este ejemplo establece la segunda diapositiva de la presentación activa para que avance automáticamente al cabo de 5 segundos durante de la presentación con diapositivas y que, además, se reproduzca un sonido en la transición de la diapositiva.

With ActivePresentation.Slides(2).SlideShowTransition

    .AdvanceOnTime = True

    .AdvanceTime = 5

    .SoundEffect.ImportFromFile "c:\windows\media\tada.wav"

End With

ActivePresentation.SlideShowSettings.AdvanceMode = _

    ppSlideShowUseSlideTimings


Método Add (objeto de conjunto Slides)

Crea una diapositiva nueva y la agrega al conjunto de diapositivas de la presentación especificada. Devuelve un objeto Slide que representa la nueva diapositiva.

Sintaxis

expresión.Add(Index, Layout)

expresión   Requerida. Una expresión que devuelve un conjunto Slides.

Index   Long requerido. Especifica el índice que tendrá la diapositiva nueva en el conjunto Slides. El valor no puede exceder el número de diapositivas +1.

Layout   Long requerido. Puede ser una de las siguientes constantes PpSlideLayout:

ppLayoutBlank ppLayoutChart ppLayoutChartAndText ppLayoutClipartAndText ppLayoutClipArtAndVerticalText ppLayoutFourObjects ppLayoutLargeObject ppLayoutMediaClipAndText ppLayoutObject ppLayoutObjectAndText ppLayoutObjectOverText ppLayoutOrgchart ppLayoutTable ppLayoutText	ppLayoutTextAndChart ppLayoutTextAndClipart ppLayoutTextAndMediaClip ppLayoutTextAndObject ppLayoutTextAndTwoObjects ppLayoutTextOverObject ppLayoutTitle ppLayoutTitleOnly ppLayoutTwoColumnText ppLayoutTwoObjectsAndText ppLayoutTwoObjectsOverText ppLayoutVerticalText ppLayoutVerticalTitleAndText ppLayoutVerticalTitleAndTextOverChart
Comentarios

Para cambiar el diseño de una diapositiva existente, use la propiedad Layout.


Ejemplo del método Add (objeto de conjunto Slides)

Este ejemplo agrega una diapositiva que contiene un marcador de posición de título al principio de la presentación activa.

ActivePresentation.Slides.Add 1, ppLayoutTitleOnly

Este ejemplo agrega una diapositiva en blanco al final de la presentación activa.

With ActivePresentation.Slides

    .Add .Count + 1, ppLayoutBlank

End With


Método FindBySlideID

Devuelve un objeto Slide que representa la diapositiva con el número de Id. especificado. Automáticamente se asigna un número de Id. a cada diapositiva creada. Use la propiedad SlideID para obtener el número de Id. de la diapositiva.

Sintaxis

expresión.FindBySlideID(SlideID)

expresión   Requerida. Una expresión que devuelve un conjunto Slides.

SlideID   Long requerido. Especifica el número de Id. de la diapositiva que desea obtener. PowerPoint asigna dicho número al crear la diapositiva.

Comentarios

Al contrario que la propiedad SlideIndex, la propiedad SlideID de un objeto Slide no cambia al agregar diapositivas a la presentación o al ordenar las diapositivas de la presentación. Por tanto, para obtener un objeto Slide específico de un conjunto Slides, es más fiable usar el FindBySlideID con el número de Id. de la diapositiva que usar el método Item con el índice de la diapositiva.


Ejemplo del método FindBySlideID

Este ejemplo demuestra cómo obtener el número de Id. exclusivo de un objeto Slide. Después utiliza dicho número para obtener ese objeto Slide del conjunto Slides.

Set diapositivas = ActivePresentation.Slides

IdDiap = diapositivas.Add(2, ppLayoutChart).SlideID    ''Obtener Id. de diapositiva

diapositivas.FindBySlideID(IdDiap).SlideShowTransition.EntryEffect = _

    ppEffectCoverLeft      'Usar el Id. para obtener la diapositiva


Método InsertFromFile

Inserta una diapositiva desde un archivo en la presentación y en la ubicación especificada. Devuelve un entero que representa el número de diapositivas insertadas.

Sintaxis

expresión.InsertFromFile(FileName, Index, SlideStart, SlideEnd)

expresión   Requerida. Una expresión que devuelve un conjunto Slides.

FileName   String requerida. El nombre del archivo que contiene las diapositivas que desea insertar.

Index   Long requerido. El índice del objeto Slide del conjunto Slides especificado a partir del que se van a insertar diapositivas nuevas.

SlideStart   Long opcional. El índice del primer objeto Slide del conjunto Slides indicado en el archivo FileName.

SlideStart   Long opcional. El índice del último objeto Slide del conjunto Slides indicado en el archivo FileName.


Ejemplo del método InsertFromFile

Este ejemplo inserta después de la diapositiva número dos de la presentación activa las diapositivas desde la tercera hasta la sexta de C:\Ppt\Ventas.ppt.

ActivePresentation.Slides.InsertFromFile "c:\ppt\ventas.ppt", 2, 3, 6


Propiedad TextStyles

Devuelve un conjunto TextStyles que representa tres estilos de texto (texto de título, texto principal y texto predeterminado) del patrón de diapositivas especificado. Es de sólo lectura.

Para obtener información acerca de cómo devolver un único componente de un conjunto, vea Devolver un objeto de un conjunto.


Ejemplo de la propiedad TextStyles

Este ejemplo establece el nombre y el tamaño de la fuente del texto principal del nivel uno de las diapositivas en la presentación activa.

With ActivePresentation.SlideMaster.TextStyles(ppBodyStyle).Levels(1)

    With .Font

        .Name = "arial"

        .Size = 36

    End With

End With


Propiedad EndingSlide

Devuelve o establece la última diapositiva que debe mostrarse en la presentación con diapositivas especificada. Long de Lectura/Escritura.


Ejemplo de la propiedad EndingSlide

Este ejemplo ejecuta una presentación con diapositivas de la presentación activa, empezando con la diapositiva dos y terminando con la diapositiva cuatro.

With ActivePresentation.SlideShowSettings

    .StartingSlide = 2

    .EndingSlide = 4

    .Run

End With


Propiedad NamedSlideShows

Devuelve un conjunto NamedSlideShows que representa todas las presentaciones con diapositivas con nombre (presentaciones con diapositivas personalizadas) de la presentación especificada. Cada presentación con diapositivas con nombre, o presentación con diapositivas personalizada, es un subconjunto de la presentación especificada seleccionada por el usuario. Es de sólo lectura.

Comentarios

Utilice el método Add del objeto NamedSlideShows para crear una presentación con diapositivas con nombre.


Ejemplo de la propiedad NamedSlideShows

Este ejemplo agrega a la presentación activa una presentación con diapositivas con el nombre "Presentación rápida", que contiene las diapositivas 2, 7 y 9. Después, el ejemplo ejecutará la presentación con diapositivas.

Dim diapRapidas(1 To 3) As Long

With ActivePresentation

    With .Slides

        diapRapidas(1) = .Item(2).SlideID

        diapRapidas(2) = .Item(7).SlideID

        diapRapidas(3) = .Item(9).SlideID

    End With

    With .SlideShowSettings

        .RangeType = ppShowNamedSlideShow

        .NamedSlideShows.Add "Presentación rápida", qSlides

        .SlideShowName "Presentación rápida"

        Run

    End With

End With


Propiedad PointerColor

Objeto SlideShowSettings: Devuelve el color del puntero para la presentación especificada como objeto ColorFormat. El color se guarda con la presentación y será el color predeterminado de la pluma cada vez que se muestre. Es de sólo lectura.

Objeto SlideShowView: Devuelve un objeto ColorFormat que representa el color del puntero para la presentación especificada durante una presentación con diapositivas. Tan pronto como termine la presentación con diapositivas, el color vuelve a ser el predeterminado para la presentación. Es de sólo lectura.

Comentarios

Para convertir el puntero en pluma, establezca la propiedad PointerType como ppSlideShowPointerPen.


Ejemplo de la propiedad PointerColor

Este ejemplo establece el azul como color predeterminado de la pluma para la presentación activa, inicia la presentación con diapositivas, cambia el puntero a pluma y, a continuación, establece el rojo como color de la pluma sólo para esta presentación con diapositivas.

With ActivePresentation.SlideShowSettings

    .PointerColor.RGB = RGB(0, 0, 255)          'azul

    With .Run.View

        .PointerColor.RGB = RGB(255, 0, 0)      'rojo

        .PointerType = ppSlideShowPointerPen

    End With

End With


Método Run

Objeto Application: Ejecuta un procedimiento de Visual Basic.

Objeto SlideShowSettings: Ejecuta una presentación con diapositivas de la presentación especificada. Devuelve un objeto SlideShowWindow.

Sintaxis 1

expresión.Run(MacroName, safeArrayOfParams)

Sintaxis 2

expresión.Run

expresión   Requerida. Expresión que devuelve un objeto Application (Sintaxis 1) o un objeto SlideShowSettings (Sintaxis 2).

MacroName   String requerido. Nombre del procedimiento que se ejecutará. La cadena puede contener lo siguiente: una presentación cargada o un nombre de archivo de complementos seguidos de un signo de exclamación (!), un nombre de módulo válido seguido de un punto (.) y el nombre del procedimiento. Por ejemplo, el siguiente es un valor MacroName válido: "MiPres.ppt!Modulo1.Prueba".

safeArrayOfParams   Variant requerido. Argumento que debe pasarse al procedimiento. No se puede especificar un objeto para el argumento ni tampoco utilizar argumentos con nombre con este método. Los argumentos deben pasarse por posición.

Comentarios

Para ejecutar una presentación con diapositivas personalizada, establezca la propiedad RangeType en ppShowNamedSlideShow, y la propiedad SlideShowName en el nombre de la presentación con diapositivas personalizada que desea ejecutar.


Ejemplo del método Run

Este ejemplo inicia una presentación con diapositivas en pantalla completa de la presentación activa, con las teclas de método abreviado desactivadas.

With ActivePresentation.SlideShowSettings

    .ShowType = ppShowSpeaker

    .Run.View.AcceleratorsEnabled = False

End With

Este ejemplo ejecuta la presentación con diapositivas denominada "Presentación rápida".

With ActivePresentation.SlideShowSettings

    .RangeType = ppShowNamedSlideShow

    .SlideShowName = "Presentación rápida"

    .Run

End With

En este ejemplo, el procedimiento Principal define una matriz y después ejecuta la macro PasaPrueba, pasando la matriz como argumento.

Sub Principal()

    Dim x(1 To 2)

    x(1) = "hola"

    x(2) = 7

    Application.Run "PasaPrueba", x

End Sub

Sub PasaPrueba(x)

    MsgBox x(1)

    MsgBox x(2)

End Sub


Propiedad ShowType

Devuelve o establece el tipo de presentación para la presentación con diapositivas especificada. Puede ser una de las siguientes constantes PpSlideShowType: ppShowTypeKiosk, ppShowTypeSpeaker o ppShowTypeWindow. Long de Lectura/Escritura.


Ejemplo de la propiedad ShowType

Este ejemplo ejecuta una presentación con diapositivas de la presentación activa en una ventana, empezando con la diapositiva dos y terminando con la diapositiva cuatro. La nueva ventana de la presentación con diapositivas se sitúa en la esquina superior izquierda de la pantalla y tiene 300 puntos tanto de alto como de ancho.

With ActivePresentation.SlideShowSettings

    .StartingSlide = 2

    .EndingSlide = 4

    .ShowType = ppShowTypeWindow

    With .Run

        .Left = 0

        .Top = 0

        .Width = 300

        .Height = 300

    End With

End With


Propiedad ShowWithAnimation

True si la presentación con diapositivas especificada muestra formas con configuraciones de animación asignadas. Long de Lectura/Escritura.


Ejemplo de la propiedad ShowWithAnimation

Este ejemplo ejecuta una presentación con diapositivas de la presentación activa con la animación y la narración desactivadas.

With ActivePresentation.SlideShowSettings

    .ShowWithAnimation = False

    .ShowWithNarration = False

    .Run

End With


Propiedad ShowWithNarration

True si la presentación con diapositivas especificada se muestra con narración. Long de Lectura/Escritura.


Ejemplo de la propiedad ShowWithNarration

Este ejemplo ejecuta una presentación con diapositivas de la presentación activa con la animación y la narración desactivadas.

With ActivePresentation.SlideShowSettings

    .ShowWithAnimation = False

    .ShowWithNarration = False

    .Run

End With


Propiedad StartingSlide

Devuelve o establece la primera diapositiva que debe mostrarse en la presentación con diapositivas especificada. Long de Lectura/Escritura.


Ejemplo de la propiedad StartingSlide

Este ejemplo ejecuta una presentación con diapositivas de la presentación activa, empezando con la diapositiva dos y terminando con la diapositiva cuatro.

With ActivePresentation.SlideShowSettings

    .StartingSlide = 2

    .EndingSlide = 4

    .Run

End With


Propiedad AdvanceOnClick

True si la diapositiva especificada avanza al hacer clic durante una presentación con diapositivas. Long de Lectura/Escritura.

Comentarios

Para establecer el avance automático de la diapositiva al cabo de un tiempo determinado, establezca la propiedad AdvanceOnTime en True y la propiedad AdvanceTime en el tiempo durante el que desee mostrar la diapositiva. Si establece las propiedades AdvanceOnClick y AdvanceOnTime en True, el avance de la diapositiva se producirá al hacer clic en ella o cuando transcurra el tiempo especificado.


Ejemplo de la propiedad AdvanceOnClick

Este ejemplo establece que la primera diapositiva avance al cabo de cinco segundos o al hacer clic con el mouse (ratón).

With ActivePresentation.Slides(1).SlideShowTransition

    .AdvanceOnClick = True

    .AdvanceOnTime = True

    .AdvanceTime = 5

End With


Propiedad AdvanceOnTime

True si la diapositiva especificada avanza automáticamente al cabo de un tiempo determinado. Use la propiedad AdvanceTime para especificar el número de segundos que deben transcurrir antes de que la diapositiva avance automáticamente. Long de Lectura/Escritura.

Comentarios

Establecer la propiedad AdvanceMode del objeto SlideShowSettings en ppSlideShowUseSlideTimings para que la configuración de intervalos de la diapositiva se aplique a toda la presentación.


Ejemplo de la propiedad AdvanceOnTime

Este ejemplo establece que la primera diapositiva avance al cabo de cinco segundos o al hacer clic con el mouse (ratón).

With ActivePresentation.Slides(1).SlideShowTransition

    .AdvanceOnClick = True

    .AdvanceOnTime = True

    .AdvanceTime = 5

End With


Propiedad Hidden

True si la diapositiva especificada está oculta durante una presentación con diapositivas. Long de Lectura/Escritura.


Ejemplo de la propiedad Hidden

Este ejemplo oculta la segunda diapositiva de la presentación activa.

ActivePresentation.Slides(2).SlideShowTransition.Hidden = True


Propiedad LoopSoundUntilNext

True si el sonido establecido para la transición de diapositiva especificada se repite hasta que empiece el próximo sonido. Long de Lectura/Escritura.


Ejemplo de la propiedad LoopSoundUntilNext

Este ejemplo especifica que se reproduzca el archivo de sonido Dudududu.wav en la transición de la segunda diapositiva de la presentación activa y que siga reproduciéndose hasta que se inicie el sonido siguiente.

With ActivePresentation.Slides(2).SlideShowTransition

    .SoundEffect.ImportFromFile "c:\sndsys\dudududu.wav"

    .LoopSoundUntilNext = True

End With


Propiedad Speed

Establece o devuelve la velocidad de transición de la diapositiva especificada. Puede ser una de las siguientes constantes PpTransitionSpeed: ppTransitionSpeedFast, ppTransitionSpeedMedium, ppTransitionSpeedMixed o ppTransitionSpeedSlow. Long de Lectura/Escritura.


Ejemplo de la propiedad Speed

Este ejemplo establece el efecto especial de Descubrir hacia abajo e izquierda para la transición de la primera diapositiva en la presentación activa y especifica que la transición sea rápida.

With ActivePresentation.Slides(1).SlideShowTransition

    .EntryEffect = ppEffectStripsDownLeft

    .Speed = ppTransitionSpeedFast

End With


Método ImportFromFile

Especifica el sonido que se reproducirá siempre que se haga clic en la forma especificada, siempre que la misma resulte animada y al producirse la transición de diapositiva especificada.

Sintaxis

expresión.ImportFromFile(FullName)

expresión   Requerida. Una expresión que devuelve un objeto SoundEffect.

FullName   String requerido. El nombre del archivo de sonido especificado.


Ejemplo del método ImportFromFile

Este ejemplo especifica que se reproduzca el archivo de sonido Dudududu.wav en la transición de la segunda diapositiva de la presentación activa y que siga reproduciéndose hasta que se inicie el sonido siguiente.

With ActivePresentation.Slides(2).SlideShowTransition

    .SoundEffect.ImportFromFile "c:\sndsys\dudududu.wav"

    .LoopUntilNextSound = True

End With


Método Play

Reproduce el efecto de sonido especificado.

Sintaxis

expresión.Play

expresión   Requerida. Una expresión que devuelve un objeto SoundEffect.


Ejemplo del método Play

Este ejemplo reproduce el efecto de sonido establecido para la transición de la segunda diapositiva en la presentación activa.

ActivePresentation.Slides(2).SlideShowTransition.SoundEffect.Play


Método Clear

Borra la tabulación especificada de la regla y la elimina del conjunto TabStops.


Ejemplo del método Clear

Este ejemplo borra todas las tabulaciones del texto de la forma número dos de la diapositiva número uno de la presentación activa.

With Application.ActivePresentation.Slides(1).Shapes(2).TextFrame _

    .Ruler.TabStops

    For i = .Count To 1 Step -1

        .Item(i).Clear

    Next

End With


Propiedad Position

Devuelve o establece la posición de la tabulación especificada, en puntos. Single de Lectura/Escritura.


Ejemplo de la propiedad Position

Este ejemplo elimina todas las tabulaciones superiores a una pulgada (72 puntos) del texto de la forma número dos de la diapositiva número uno de la presentación activa.

With Application.ActivePresentation.Slides(1).Shapes(2).TextFrame _

    .Ruler.TabStops

    For i = .Count To 1 Step -1

        With .Item(i)

            If .Position > 72 Then .Clear

        End With

    Next

End With


Método Add (objeto de conjunto TabStops)

Agrega una tabulación a la regla del texto especificado. Devuelve un objeto TabStop que representa la nueva tabulación.

Sintaxis

expresión.Add(Type, Position)

expresión   Requerida. Una expresión que devuelve un conjunto TabStops.

Type   Long requerido. Especifica la forma en que se alineará el texto con la nueva tabulación. Puede ser una de las siguientes constantes PpTabStopType: ppTabStopCenter, ppTabStopDecimal, ppTabStopLeft o ppTabStopRight.

Position   Single requerido. La posición de la nueva tabulación, en puntos.


Ejemplo del método Add (objeto de conjunto TabStops)

Este ejemplo establece una tabulación alineada a la izquierda a dos pulgadas (144 puntos) para el texto de la forma número dos de la diapositiva número uno de la presentación activa.

Application.ActivePresentation.Slides(1).Shapes(2).TextFrame _

    .Ruler.TabStops.Add ppTabStopLeft, 144


Propiedad DefaultSpacing

Devuelve o establece el espaciado de tabulación predeterminado del texto especificado, en puntos. Single de Lectura/Escritura.


Ejemplo de la propiedad DefaultSpacing

Este ejemplo establece el espaciado de tabulación predeterminado en 0.5 pulgadas (36 puntos) para el texto de la forma número dos de la diapositiva número uno de la presentación activa.

Application.ActivePresentation.Slides(1).Shapes(2).TextFrame _

    .Ruler.TabStops.DefaultSpacing = 36


Método Name

Devuelve el nombre de la etiqueta especificada como String.

Sintaxis

expresión.Name(Index)

expresión   requerida. Una expresión que devuelve un conjunto Tags.

Index   Long requerido. El número de etiqueta.


Ejemplo del método Name

Este ejemplo muestra el nombre y el valor de cada etiqueta asociada con la diapositiva número uno de la presentación activa.

With Application.ActivePresentation.Slides(1).Tags

    For i = 1 To .Count

        MsgBox "Etiqueta número" & i & ": Nombre = " & .Name(i)

        MsgBox "Etiqueta número" & i & ": Valor = " & .Value(i)

    Next

End With

Este ejemplo busca en las etiquetas de cada diapositiva de la presentación activa. Si hay una etiqueta denominada "PRIORIDAD", un cuadro de mensaje mostrará el valor de la etiqueta. Si no hay una etiqueta denominada "PRIORIDAD", el ejemplo agregará esta etiqueta con el valor "Desconocida".

For Each d In Application.ActivePresentation.Slides

    With d.Tags

        encontrado = False

        For i = 1 To .Count

            If .Name(i) = "PRIORIDAD" Then

                encontrado = True

                NumDiap = .Parent.SlideIndex

                MsgBox "Diapositiva " & NumDiap & " prioridad: " & .Value(i)

            End If

        Next

        If Not encontrado Then

            NumDiap = .Parent.SlideIndex

            .Add "Nombre", "Ilustración nueva"

            .Add "Prioridad", "Desconocida"

            MsgBox "Diapositiva " & NumDiap & " etiqueta prioridad agregada: Desconocida"

        End If

    End With

Next


Método Value

Devuelve el valor de la etiqueta especificada como String.

Sintaxis

expresión.Value(Index)

expresión   Requerida. Una expresión que devuelve un conjunto Tags.

Index   Long requerido. El número de etiqueta.


Ejemplo del método Value

Este ejemplo muestra el nombre y el valor de cada etiqueta asociada con la diapositiva número uno de la presentación activa.

With Application.ActivePresentation.Slides(1).Tags

    For i = 1 To .Count

        MsgBox "Etiqueta número" & i & ": Nombre = " & .Name(i)

        MsgBox "Etiqueta número" & i & ": Valor = " & .Value(i)

    Next

End With

Este ejemplo busca en las etiquetas de cada diapositiva de la presentación activa. Si hay una etiqueta denominada "PRIORIDAD", un cuadro de mensaje mostrará el valor de la etiqueta. Si no hay una etiqueta denominada "PRIORIDAD", el ejemplo agregará esta etiqueta con el valor "Desconocida".

For Each d In Application.ActivePresentation.Slides

    With d.Tags

        encontrado = False

        For i = 1 To .Count

            If .Name(i) = "PRIORIDAD" Then

                encontrado = True

                NumDiap = .Parent.SlideIndex

                MsgBox "Diapositiva " & NumDiap & " prioridad: " & .Value(i)

            End If

        Next

        If Not encontrado Then

            NumDiap = .Parent.SlideIndex

            .Add "Nombre", "Ilustración nueva"

            .Add "Prioridad", "Desconocida"

            MsgBox "Diapositiva " & NumDiap & " etiqueta prioridad agregada: Desconocida"

        End If

    End With

Next


Propiedad FontBold

True si la fuente del elemento de WordArt especificado es negrita. Long de Lectura/Escritura.


Ejemplo de la propiedad FontBold

Este ejemplo establece la fuente como negrita para la forma tres de miDocumento si la forma es de WordArt.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(3)

    If .Type = msoTextEffect Then

        .TextEffect.FontBold = True

    End If

End With


Propiedad FontItalic

True si la fuente del elemento de WordArt especificado es cursiva. Long de Lectura/Escritura.


Ejemplo de la propiedad FontItalic

Este ejemplo establece la fuente como cursiva para la forma denominada "WordArt 4" de miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes("WordArt 4").TextEffect.FontItalic = True


Propiedad FontName

Devuelve o establece el nombre de la fuente del elemento de WordArt especificado. String de Lectura/Escritura.


Ejemplo de la propiedad FontName

Este ejemplo establece la fuente como "Courier New" para la forma tres de miDocumento si la forma es de WordArt.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(3)

    If .Type = msoTextEffect Then

        .TextEffect.FontName = "Courier New"

    End If

End With


Propiedad FontSize

Devuelve o establece el tamaño de fuente del elemento de WordArt especificado, en puntos. Single de Lectura/Escritura.


Ejemplo de la propiedad FontSize

Este ejemplo establece el tamaño de fuente en 16 puntos para la forma denominada "WordArt 4" de miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes("WordArt 4").TextEffect.FontSize = 16


Propiedad KernedPairs

True si las parejas de caracteres del elemento de WordArt especificado tienen ajuste de espacio. Long de Lectura/Escritura.


Ejemplo de la propiedad KernedPairs

Este ejemplo activa el ajuste de espacio para la forma tres de miDocumento si la forma es de WordArt.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(3)

    If .Type = msoTextEffect Then

        .TextEffect.KernedPairs = True

    End If

End With


Propiedad NormalizedHeight

True si todos los caracteres (mayúsculas y minúsculas) del elemento de WordArt especificado tienen el mismo alto. Long de Lectura/Escritura.


Ejemplo de la propiedad NormalizedHeight

Este ejemplo agrega un elemento de WordArt que contiene el texto "Efecto de prueba" a miDocumento y da al elemento de WordArt nuevo el nombre de "eftexto1". Después establece el mismo alto para todos los caracteres de la forma "eftexto1".

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes.AddTextEffect(PresetTextEffect:=msoTextEffect1, _

    Text:="Efecto de prueba", FontName:="Courier New", FontSize:=44, FontBold:=True, _

    FontItalic:=False, Left:=10, Top:=10).Name = "eftexto1"

miDocumento.Shapes("eftexto1").TextEffect.NormalizedHeight = True


Propiedad PresetShape

Devuelve o establece la forma del elemento de WordArt especificado. Long de Lectura/Escritura.

Puede ser una de las siguientes constantes MsoPresetTextEffectShape:

msoTextEffectShapeArchDownCurve msoTextEffectShapeArchDownPour msoTextEffectShapeArchUpCurve msoTextEffectShapeArchUpPour msoTextEffectShapeButtonCurve msoTextEffectShapeButtonPour msoTextEffectShapeCanDown msoTextEffectShapeCanUp msoTextEffectShapeCascadeDown msoTextEffectShapeCascadeUp msoTextEffectShapeChevronDown msoTextEffectShapeChevronUp msoTextEffectShapeCircleCurve msoTextEffectShapeCirclePour msoTextEffectShapeCurveDown msoTextEffectShapeCurveUp msoTextEffectShapeDeflate msoTextEffectShapeDeflateBottom msoTextEffectShapeDeflateInflate msoTextEffectShapeDeflateInflateDeflate msoTextEffectShapeDeflateTop	msoTextEffectShapeDoubleWave1 msoTextEffectShapeDoubleWave2 msoTextEffectShapeFadeDown msoTextEffectShapeFadeLeft msoTextEffectShapeFadeRight msoTextEffectShapeFadeUp msoTextEffectShapeInflate msoTextEffectShapeInflateBottom msoTextEffectShapeInflateTop msoTextEffectShapeMixed msoTextEffectShapePlainText msoTextEffectShapeRingInside msoTextEffectShapeRingOutside msoTextEffectShapeSlantDown msoTextEffectShapeSlantUp msoTextEffectShapeStop msoTextEffectShapeTriangleDown msoTextEffectShapeTriangleUp msoTextEffectShapeWave1 msoTextEffectShapeWave2
Comentarios

Al establecer la propiedad PresetTextEffect se establece automáticamente la propiedad PresetShape.


Ejemplo de la propiedad PresetShape

Este ejemplo establece la forma de todos los elementos de WordArt de miDocumento como cheurón cuyo centro apunta hacia abajo.

Set miDocumento = ActivePresentation.Slides(1)

For Each f In miDocumento.Shapes

    If f.Type = msoTextEffect Then

        f.TextEffect.PresetShape = msoTextEffectShapeChevronDown

    End If

Next


Propiedad PresetTextEffect

Devuelve o establece el estilo del elemento de WordArt especificado. El valor de esta propiedad se corresponde con los formatos del cuadro de diálogo Galería de WordArt (numerados de izquierda a derecha y de arriba abajo). Long de Lectura/Escritura.

Puede ser una de las siguientes constantes MsoPresetTextEffect:

msoTextEffect1 msoTextEffect2 msoTextEffect3 msoTextEffect4 msoTextEffect5 msoTextEffect6 msoTextEffect7 msoTextEffect8 msoTextEffect9 msoTextEffect10 msoTextEffect11 msoTextEffect12 msoTextEffect13 msoTextEffect14 msoTextEffect15 msoTextEffect16	msoTextEffect17 msoTextEffect18 msoTextEffect19 msoTextEffect20 msoTextEffect21 msoTextEffect22 msoTextEffect23 msoTextEffect24 msoTextEffect25 msoTextEffect26 msoTextEffect27 msoTextEffect28 msoTextEffect29 msoTextEffect30 msoTextEffectMixed
Comentarios

Al establecer la propiedad PresetTextEffect se establecen automáticamente otras muchas propiedades de formato para la forma especificada.


Ejemplo de la propiedad PresetTextEffect

Este ejemplo establece el estilo de todos los elementos de WordArt de miDocumento en el primer estilo en la lista del cuadro de diálogo Galería de WordArt.

Set miDocumento = ActivePresentation.Slides(1)

For Each f In miDocumento.Shapes

    If f.Type = msoTextEffect Then

        f.TextEffect.PresetTextEffect = msoTextEffect1

    End If

Next


Propiedad RotatedChars

True si los caracteres del elemento de WordArt especificado están girados 90 grados respecto al contorno del elemento de WordArt False si los caracteres del elemento de WordArt especificado mantienen la orientación original respecto al contorno. Long de Lectura/Escritura.

Comentarios

Si el elemento de WordArt tiene texto en horizontal, al establecer la propiedad RotatedChars en True gira los caracteres 90 grados en sentido contrario a las agujas del reloj. Si el elemento de WordArt tiene texto en vertical, al establecer la propiedad RotatedChars en False gira los caracteres 90 grados en el sentido de las agujas del reloj. Use el método ToggleVerticalText para alternar el flujo de texto entre horizontal y vertical.

El método Flip y la propiedad Rotation del objeto Shape, y la propiedad RotatedChars y el método ToggleVerticalText del objeto TextEffectFormat afectan a la orientación de los caracteres y al flujo de texto en un objeto Shape que representa el elemento de WordArt. Es posible que tenga que probar diversas combinaciones de efectos de estas propiedades y métodos para obtener el resultado deseado.


Ejemplo de la propiedad RotatedChars

Este ejemplo agrega un elemento de WordArt que contiene el texto "Prueba" a miDocumento y gira el elemento de WordArt 90 grados en sentido contrario a las agujas del reloj.

Set miDocumento = ActivePresentation.Slides(1)

Set WordArtNuevo = miDocumento.Shapes.AddTextEffect(PresetTextEffect:=msoTextEffect1, Text:="Prueba", _

    FontName:="Arial Black", FontSize:=36, FontBold:=False, FontItalic:=False, Left:=10, Top:=10)

WordArtNuevo.TextEffect.RotatedChars = True


Método ToggleVerticalText

Cambia el flujo de texto del elemento de WordArt especificado de horizontal a vertical, o viceversa.

Sintaxis

expresión.ToggleVerticalText

expresión   Requerida. Expresión que devuelve un objeto TextEffectFormat.

Comentarios

Al usar el método ToggleVerticalText se intercambian los valores de las propiedades Width y Height del objeto Shape que representa el elemento de WordArt, y deja sin cambios las propiedades Left y Top.

El método Flip y la propiedad Rotation del objeto Shape, y la propiedad RotatedChars y el método ToggleVerticalText del objeto TextEffectFormat afectan la orientación de los caracteres y el flujo de texto en un objeto Shape que representa el elemento de WordArt. Es posible que tenga que probar diversas combinaciones de efectos de estas propiedades y métodos para obtener el resultado deseado.


Ejemplo del método ToggleVerticalText

Este ejemplo agrega un elemento de WordArt que contiene el texto "Prueba" a miDocumento y cambia el flujo de texto de horizontal (el predeterminado del estilo WordArt especificado, msoTextEffect1) a vertical.

Set miDocumento = ActivePresentation.Slides(1)

Set WordArtNuevo = miDocumento.Shapes.AddTextEffect(PresetTextEffect:=msoTextEffect1, Text:="Prueba", _

    FontName:="Arial Black", FontSize:=36, FontBold:=False, FontItalic:=False, Left:=100, Top:=100)

WordArtNuevo.TextEffect.ToggleVerticalText


Propiedad Tracking

Devuelve o establece la proporción entre el espacio horizontal asignado a cada carácter del elemento de WordArt especificado y el ancho del carácter. Puede ser un valor comprendido entre 0 (cero) y 5. Single de Lectura/Escritura.

La tabla siguiente proporciona los valores de la propiedad Tracking que se corresponden con los valores disponibles en la interfaz de usuario.

Configuración de interfaz de usuario	Valor equivalente de propiedad Tracking
Muy estrecho	0.8
Estrecho	0.9
Normal	1.0
Separado	1.2
Muy separado	1.5


Ejemplo de la propiedad Tracking

Este ejemplo agrega un elemento de WordArt que contiene el texto "Prueba" a miDocumento y especifica que los caracteres estén muy juntos.

Set miDocumento = ActivePresentation.Slides(1)

Set WordArtNuevo = miDocumento.Shapes.AddTextEffect(PresetTextEffect:=msoTextEffect1, Text:="Prueba", _

    FontName:="Arial Black", FontSize:=36, FontBold:=False, FontItalic:=False, Left:=100, Top:=100)

WordArtNuevo.TextEffect.Tracking =0.8


Propiedad AutoSize

Devuelve o establece un valor que indica si el tamaño de la forma especificada se ajusta automáticamente al texto que contiene. Puede ser una de las siguientes constantes PpAutoSize: ppAutoSizeMixed, ppAutoSizeNone o ppAutoSizeShapeToFitText. Long de Lectura/Escritura.


Ejemplo de la propiedad AutoSize

Este ejemplo ajusta automáticamente el tamaño del cuadro de límite del título de la primera diapositiva.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(1)

    If .TextFrame.TextRange.Characters.Count < 50 Then

        .TextFrame.AutoSize = ppAutoSizeShapeToFitText

    End If

End With


Método DeleteText

Elimina el texto asociado a la forma especificada.

Sintaxis

expresión.DeleteText

expresión   Requerida. Una expresión que devuelve un objeto TextFrame.


Ejemplo del método DeleteText

Si la segunda forma de miDocumento contiene texto, este ejemplo elimina el texto.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes(2).TextFrame.DeleteText


Propiedad HasText

True si la forma especificada tiene texto asociado a ella. Long de sólo lectura.


Ejemplo de la propiedad HasText

Si la segunda forma de miDocumento contiene texto, este ejemplo cambia el tamaño de la forma para que se ajuste al texto

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(2).TextFrame

    If .HasText Then .AutoSize = ppAutoSizeShapeToFitText

End With


Propiedad HorizontalAnchor

Devuelve o establece el tipo de marcador horizontal para el texto especificado. Puede ser una de las siguientes constantes MsoHorizontalAnchor: msoAnchorCenter, msoAnchorNone o msoHorizontalAnchorMixed. Long de Lectura/Escritura.


Ejemplo de la propiedad HorizontalAnchor

Este ejemplo establece el tipo de marcador para el texto de la primera forma de miDocumento en la parte superior y centrado.

Set miDocumento = ActivePresentation.SlideMaster

With miDocumento.Shapes(1)

    .TextFrame.HorizontalAnchor = msoAnchorCenter

    .TextFrame.VerticalAnchor = msoAnchorTop

End With


Propiedad MarginBottom

Devuelve o establece la distancia (en puntos) desde la parte inferior del marco de texto hasta la parte inferior del rectángulo inscrito de la forma que contiene el texto. Single de Lectura/Escritura.


Ejemplo de la propiedad MarginBottom

Este ejemplo agrega un rectángulo a miDocumento, agrega texto al rectángulo y establece los márgenes del marco de texto.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame

    .TextRange.Text = "Texto de prueba"

    .MarginBottom = 0

    .MarginLeft = 100

    .MarginRight = 0

    .MarginTop = 20

End With


Propiedad MarginLeft

Devuelve o establece la distancia (en puntos) desde el borde izquierdo del marco de texto hasta el borde izquierdo del rectángulo inscrito de la forma que contiene el texto. Single de Lectura/Escritura.


Ejemplo de la propiedad MarginLeft

Este ejemplo agrega un rectángulo a miDocumento, agrega texto al rectángulo y establece los márgenes del marco de texto.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame

    .TextRange.Text = "Texto de prueba"

    .MarginBottom = 0

    .MarginLeft = 100

    .MarginRight = 0

    .MarginTop = 20

End With


Propiedad MarginRight

Devuelve o establece la distancia (en puntos) desde el borde derecho del marco de texto hasta el borde derecho del rectángulo inscrito de la forma que contiene el texto. Single de Lectura/Escritura.


Ejemplo de la propiedad MarginRight

Este ejemplo agrega un rectángulo a miDocumento, agrega texto al rectángulo y establece los márgenes del marco de texto.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame

    .TextRange.Text = "Texto de prueba"

    .MarginBottom = 0

    .MarginLeft = 100

    .MarginRight = 0

    .MarginTop = 20

End With


Propiedad MarginTop

Devuelve o establece la distancia (en puntos) desde la parte superior del marco de texto hasta la parte superior del rectángulo inscrito de la forma que contiene el texto. Single de Lectura/Escritura.


Ejemplo de la propiedad MarginTop

Este ejemplo agrega un rectángulo a miDocumento, agrega texto al rectángulo y establece los márgenes del marco de texto.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddShape(msoShapeRectangle, 0, 0, 250, 140).TextFrame

    .TextRange.Text = "Texto de prueba"

    .MarginBottom = 0

    .MarginLeft = 100

    .MarginRight = 0

    .MarginTop = 20

End With


Propiedad Orientation

Devuelve o establece la orientación del texto. Puede ser una de las siguientes constantes MsoTextOrientation: msoTextOrientationHorizontal, msoTextOrientationMixed o msoTextOrientationVertical. Long de Lectura/Escritura.

Comentarios

Las siguientes constantes MsoTextOrientation no se usan en las versiones para EE.UU. de Microsoft Office: msoTextOrientationDownward, msoTextOrientationHorizontalRotatedFarEast, msoTextOrientationUpward o msoTextOrientationVerticalFarEast.


Ejemplo de la propiedad Orientation

Este ejemplo orienta horizontalmente el texto dentro de la tercera forma de miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes(3).TextFrame.Orientation = msoTextOrientationHorizontal


Propiedad Ruler

Devuelve un objeto Ruler que representa la regla del texto especificado. Es de sólo lectura.


Ejemplo de la propiedad Ruler

Este ejemplo establece una tabulación alineada a la izquierda a dos pulgadas (144 puntos) para el texto del objeto número dos de miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes(2).TextFrame.Ruler.TabStops.Add ppTabStopLeft, 144


Propiedad VerticalAnchor

Devuelve o establece el tipo de marcador vertical para el texto especificado. Puede ser una de las siguientes constantes MsoVerticalAnchor: msoAnchorBottom, msoAnchorBottomBaseLine, msoAnchorMiddle, msoAnchorTop, msoAnchorTopBaseline o msoVerticalAnchorMixed. Long de Lectura/Escritura.


Ejemplo de la propiedad VerticalAnchor

Este ejemplo establece el tipo de marcador para la primera forma de miDocumento en la parte superior y centrado.

Set miDocumento = ActivePresentation.SlideMaster

With miDocumento.Shapes(1)

    .TextFrame.HorizontalAnchor = msoAnchorCenter

    .TextFrame.VerticalAnchor = msoAnchorTop

End With


Propiedad WordWrap

Objeto TextFrame: True si las líneas se ajustan automáticamente dentro de la forma. Long de Lectura/Escritura.

Objeto ParagraphFormat: Sólo con caracteres Kanji. Long de Lectura/Escritura.


Ejemplo de la propiedad WordWrap

Este ejemplo agrega a miDocumento un rectángulo que contiene texto y desactiva el ajuste automático de línea en el rectángulo nuevo.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddShape(msoShapeRectangle, 0, 0, 100, 300).TextFrame

    .TextRange.Text = "Texto de prueba demasiado largo para este cuadro"

    .WordWrap = False

End With


Método AddPeriods

Agrega un punto al final de cada párrafo del texto especificado.

Sintaxis

expresión.AddPeriods

expresión   Requerida. Una expresión que devuelve un objeto TextRange.

Comentarios

Este método no agrega otro punto al final de un párrafo que termine con un punto.


Ejemplo del método AddPeriods

Este ejemplo agrega un punto al final de cada párrafo de la forma número dos de la diapositiva número uno de la presentación activa.

Application.ActivePresentation.Slides(1).Shapes(2).TextFrame _

    .TextRange.AddPeriods


Propiedad BoundHeight

Devuelve el alto (en puntos) del cuadro de límite de texto del marco de texto especificado. Single de sólo lectura.


cuadro de límite

El rectángulo más pequeño que puede incluir el texto en un marco de texto. Conocer la posición y dimensiones de los cuadros de límite de texto le permitirá superponer formas en una diapositiva sin cubrir del todo ningún texto.


Ejemplo de la propiedad BoundHeight

Este ejemplo agrega un rectángulo redondeado a la diapositiva número uno de la presentación activa. El rectángulo tiene las mismas dimensiones que el cuadro de límite de texto de la forma número uno.

With Application.ActivePresentation.Slides(1).Shapes

    Set st = .Item(1).TextFrame.TextRange

    Set Rectangulo = .AddShape(msoShapeRoundedRectangle, _

        st.BoundLeft, st.BoundTop, st.BoundWidth, st.BoundHeight)

End With

With Rectangulo.Fill

    .ForeColor.RGB = RGB(255, 0, 128)

    .Transparency = 0.75

End With


Propiedad BoundLeft

Devuelve la distancia (en puntos) desde el borde izquierdo del cuadro de límite de texto del marco de texto especificado hasta el borde izquierdo de la diapositiva. Single de sólo lectura.


Ejemplo de la propiedad BoundLeft

Este ejemplo agrega un rectángulo redondeado a la diapositiva número uno de la presentación activa. El rectángulo tiene las mismas dimensiones que el cuadro de límite de texto de la forma número uno.

With Application.ActivePresentation.Slides(1).Shapes

    Set st = .Item(1).TextFrame.TextRange

    Set Rectangulo = .AddShape(msoShapeRoundedRectangle, _

        st.BoundLeft, st.BoundTop, st.BoundWidth, st.BoundHeight)

End With

With Rectangulo.Fill

    .ForeColor.RGB = RGB(255, 0, 128)

    .Transparency = 0.75

End With


Propiedad BoundTop

Devuelve la distancia (en puntos) desde el borde superior del cuadro de límite de texto del marco de texto especificado hasta el borde superior de la diapositiva. Single de sólo lectura.


Ejemplo de la propiedad BoundTop

Este ejemplo agrega un rectángulo redondeado a la diapositiva número uno de la presentación activa. El rectángulo tiene las mismas dimensiones que el cuadro de límite de texto de la forma número uno.

With Application.ActivePresentation.Slides(1).Shapes

    Set st = .Item(1).TextFrame.TextRange

    Set Rectangulo = .AddShape(msoShapeRoundedRectangle, _

        st.BoundLeft, st.BoundTop, st.BoundWidth, st.BoundHeight)

End With

With roundRect.Fill

    .ForeColor.RGB = RGB(255, 0, 128)

    .Transparency = 0.75

End With


Propiedad BoundWidth

Devuelve el ancho (en puntos) del cuadro de límite de texto del marco de texto especificado. Single de sólo lectura.


Ejemplo de la propiedad BoundWidth

Este ejemplo agrega un rectángulo redondeado a la diapositiva número uno de la presentación activa. El rectángulo tiene las mismas dimensiones que el cuadro de límite de texto de la forma número uno.

With Application.ActivePresentation.Slides(1).Shapes

    Set st = .Item(1).TextFrame.TextRange

    Set Rectangulo = .AddShape(msoShapeRoundedRectangle, _

        st.BoundLeft, st.BoundTop, st.BoundWidth, st.BoundHeight)

End With

With Rectangulo.Fill

    .ForeColor.RGB = RGB(255, 0, 128)

    .Transparency = 0.75

End With


Método ChangeCase

Cambia las mayúsculas o minúsculas del texto especificado.

Sintaxis

expresión.ChangeCase(Type)

expresión   Requerida. Una expresión que devuelve un objeto TextRange.

Type   Long requerido. Especifica la forma en que se van a cambiar las mayúsculas o minúsculas. Puede ser una de las siguientes constantes PpChangeCase: ppCaseLower, ppCaseSentence, ppCaseTitle o ppCaseToggle.


Ejemplo del método ChangeCase

Este ejemplo establece el uso de mayúsculas en títulos para el título de la diapositiva número uno de la presentación activa.

Application.ActivePresentation.Slides(1).Shapes.Title.TextFrame _

    .TextRange.ChangeCase ppCaseTitle


Método Characters

Devuelve un objeto TextRange que representa el subconjunto especificado de caracteres de texto. Para obtener información acerca de cómo contar o crear bucles en los caracteres de un intervalo de texto, vea el objeto TextRange.

Sintaxis

expresión.Characters(Start, Length)

expresión   Requerida. Una expresión que devuelve un objeto TextRange.

Start   Long opcional. El primer carácter del intervalo devuelto.

Length   Long opcional. El número de caracteres que se devuelve.

Comentarios

Si se omiten Start y Length, el intervalo devuelto comenzará por el primer carácter y terminará por el último párrafo del intervalo especificado.

Si se especifica Start pero se omite Length, el intervalo devuelto contendrá un carácter.

Si se especifica Length pero se omite Start, el intervalo devuelto comenzará por el primer carácter del intervalo especificado.

Si Start es mayor que el número de caracteres del texto especificado, el intervalo devuelto comenzará por el último carácter del intervalo especificado.

Si Length es mayor que el número de caracteres que hay desde el carácter de inicio especificado hasta el final del texto, el intervalo devuelto contendrá todos esos caracteres.


Ejemplo del método Characters

Este ejemplo establece el texto de la forma número dos en la diapositiva número uno de la presentación activa y después convierte el segundo carácter en un carácter subíndice con un 20 por ciento de desplazamiento.

Dim intervaloCaracteres As TextRange

With Application.ActivePresentation.Slides(1).Shapes(2)

    Set intervaloCaracteres = .TextFrame.TextRange.InsertBefore("H2O")

    IntervaloCaracteres.Characters(2).Font.BaselineOffset = -0.2

End With

Este ejemplo da formato de negrita a los caracteres subíndice de la forma número dos de la diapositiva número uno.

With Application.ActivePresentation.Slides(1).Shapes(2) _

    .TextFrame.TextRange

    For i = 1 To .Characters.Count

        With .Characters(i).Font

            If .Subscript Then .Bold = True

        End With

    Next

End With


Método Find

Busca el texto especificado en un intervalo de texto y devuelve un objeto TextRange que representa el primer intervalo de texto en el que se encuentra el texto. Devuelve Nothing si no encuentra coincidencias.

Sintaxis

expresión.Find(FindWhat, After, MatchCase, WholeWords)

expresión   Requerida. Una expresión que devuelve un objeto TextRange.

FindWhat   String requerida. El texto que se busca.

After   Long opcional. La posición del carácter (dentro del intervalo de texto especificado) a partir del cual desea buscar la siguiente aparición de FindWhat. Por ejemplo: si desea buscar a partir del quinto carácter del intervalo de texto especificado, asigne 4 a After. Si se omite el argumento, el punto de inicio de búsqueda será el primer carácter del intervalo de texto.

MatchCase   Long opcional. True para que la búsqueda distinga entre caracteres en mayúscula y en minúscula. El valor predeterminado es False.

WholeWords   Long opcional. True para que la búsqueda encuentre sólo palabras completas, no partes de palabras más grandes. El valor predeterminado es False.


Ejemplo del método Find

Este ejemplo busca todas las apariciones de la palabra "OrganizaciónX" en la presentación activa y les aplica el formato de negrita.

For Each diap In Application.ActivePresentation.Slides

    For Each forma In diap.Shapes

        If forma.HasTextFrame Then

            Set intervaloTexto = forma.TextFrame.TextRange

            Set TextoEncontrado = intervaloTexto.Find(FindWhat:="OrganizaciónX")

            Do While Not (TextoEncontrado Is Nothing)

                With TextoEncontrado

                    .Font.Bold = True

                    Set TextoEncontrado = intervaloTexto.Find(FindWhat:="OrganizaciónX", _

                        After:=.Start + .Length - 1)

                End With

            Loop

        End If

    Next

Next


Propiedad IndentLevel

Devuelve o establece el nivel de sangría del texto especificado como un entero del 1 al 5, donde 1 indica un párrafo de primer nivel sin sangría. Long de Lectura/Escritura.


Ejemplo de la propiedad IndentLevel

Este ejemplo aplica una sangría al segundo párrafo de la forma número dos de la diapositiva número dos de la presentación activa.

Application.ActivePresentation.Slides(2).Shapes(2).TextFrame _

    .TextRange.Paragraphs(2).IndentLevel = 2


Método InsertAfter

Anexa una cadena al final del intervalo de texto especificado. Devuelve un objeto TextRange que representa el texto anexado. Cuando se utiliza sin argumento, este método devuelve una cadena de longitud cero al final del intervalo especificado.

Sintaxis

expresión.InsertAfter(NewText)

expresión   Requerida. Una expresión que devuelve un objeto TextRange.

NewText   String opcional. El texto que se inserta. El valor predeterminado es una cadena vacía.


Ejemplo del método InsertAfter

Este ejemplo agrega la cadena ": Versión de prueba" al final del título de la diapositiva número uno de la presentación activa.

With Application.ActivePresentation.Slides(1).Shapes(1)

    .TextFrame.TextRange.InsertAfter ": Versión de prueba"

End With

Este ejemplo anexa el contenido del Portapapeles al final del título de la diapositiva número uno.

Application.ActivePresentation.Slides(1).Shapes(1).TextFrame _

    .TextRange.InsertAfter.Paste


Método InsertBefore

Anexa una cadena al comienzo del intervalo de texto especificado. Devuelve un objeto TextRange que representa el texto anexado. Cuando se utiliza sin argumento, este método devuelve una cadena de longitud cero al final del intervalo especificado.

Sintaxis

expresión.InsertBefore(NewText)

expresión   Requerida. Una expresión que devuelve un objeto TextRange.

NewText   String opcional. El texto que se agrega. El valor predeterminado es una cadena vacía.


Ejemplo del método InsertBefore

Este ejemplo anexa la cadena "Versión de prueba: " al comienzo del título de la diapositiva número uno de la presentación activa.

With Application.ActivePresentation.Slides(1).Shapes(1)

    .TextFrame.TextRange.InsertBefore "Versión de prueba: "

End With

Este ejemplo anexa el contenido del Portapapeles al comienzo del título de la diapositiva número uno de la presentación activa.

Application.ActivePresentation.Slides(1).Shapes(1).TextFrame _

    .TextRange.InsertBefore .Paste


Método InsertDateTime

Inserta la fecha y la hora en el intervalo de texto especificado. Devuelve un objeto TextRange que representa el texto insertado.

Sintaxis

expresión.InsertDateTime(DateTimeFormat, InsertAsField)

expresión   Requerida. Una expresión que devuelve un objeto TextRange.

DateTimeFormat   Long requerido. Un formato para la fecha y la hora. Puede ser una de las siguientes constantes PpDateTimeFormat:

ppDateTimeddddMMMMddyyyy ppDateTimedMMMMyyyy ppDateTimedMMMyy ppDateTimeHmm ppDateTimehmmAMPM ppDateTimeHmmss ppDateTimehmmssAMPM	ppDateTimeMdyy ppDateTimeMMddyyHmm ppDateTimeMMddyyhmmAMPM ppDateTimeMMMMdyyyy ppDateTimeMMMMyy ppDateTimeMMyy
InsertAsField   Long opcional. True para actualizar la fecha y hora insertadas cada vez que se abre la presentación. El valor predeterminado es False.


Ejemplo del método InsertDateTime

Este ejemplo inserta la fecha y hora tras la primera oración del primer párrafo de la forma número dos de la diapositiva número uno de la presentación activa.

Set forma = Application.ActivePresentation.Slides(1).Shapes(2)

Set enunciado1 = forma.TextFrame.TextRange.Paragraphs(1).Sentences(1)

enunciado1.InsertAfter.InsertDateTime ppDateTimeMdyy


Método InsertSlideNumber

Inserta el número de la diapositiva actual en el intervalo de texto especificado. Devuelve un objeto TextRange que representa el número de diapositiva.

Sintaxis

expresión.InsertSlideNumber

expresión   Requerida. Una expresión que devuelve un objeto TextRange.

Comentarios

El número de diapositiva insertado se actualiza automáticamente cuando cambia el número de la diapositiva actual.


Ejemplo del método InsertSlideNumber

Este ejemplo inserta el número de la diapositiva actual tras la primera oración del primer párrafo de la forma número dos de la diapositiva número uno de la presentación activa.

Set forma = Application.ActivePresentation.Slides(1).Shapes(2)

Set enunciado1 = forma.TextFrame.TextRange.Paragraphs(1).Sentences(1)

enunciado1.InsertAfter.InsertSlideNumber


Método InsertSymbol

Inserta el símbolo en el intervalo de texto especificado. Devuelve un objeto TextRange que representa el símbolo.

Sintaxis

expresión.InsertSymbol(FontName, CharNumber, UniCode)

expresión   Requerida. Una expresión que devuelve un objeto TextRange.

FontName   String requerida. El nombre de fuente.

CharNumber   Long requerido. El número de carácter Unicode o ASCII.

UniCode   Long opcional. True para que el argumento CharNumber represente un carácter UniCode. False para que el argumento CharNumber represente un número de carácter ASCII. El valor predeterminado es False.


Ejemplo del método InsertSymbol

Este ejemplo inserta el símbolo de Marca Registrada tras la primera oración del primer párrafo de la forma número dos de la diapositiva número uno de la presentación activa.

Set forma = Application.ActivePresentation.Slides(1).Shapes(2)

Set enunciado1 = forma.TextFrame.TextRange.Paragraphs(1).Sentences(1)

enunciado1.InsertAfter.InsertSymbol "Símbolo", 226


Método Lines

Devuelve un objeto TextRange que representa el subconjunto especificado de líneas de texto. Para obtener información acerca de cómo contar o crear bucles en las líneas de un intervalo de texto, vea el objeto TextRange.

Sintaxis

expresión.Lines(Start, Length)

expresión   Requerida. Una expresión que devuelve un objeto TextRange.

Start   Long opcional. La primera línea del intervalo devuelto.

Length   Long opcional. El número de líneas que se devuelve.

Comentarios

Si se omiten Start y Length, el intervalo devuelto comenzará por la primera línea y terminará por el último párrafo del intervalo especificado.

Si se especifica Start pero se omite Length, el intervalo devuelto contendrá una línea.

Si se especifica Length pero se omite Start, el intervalo devuelto comenzará por la primera línea del intervalo especificado.

Si Start es mayor que el número de líneas del texto especificado, el intervalo devuelto comenzará por la última línea del intervalo especificado.

Si Length es mayor que el número de líneas que hay desde la línea de inicio especificada hasta el final del texto, el intervalo devuelto contendrá todas esas líneas.


Ejemplo del método Lines

Este ejemplo aplica formato de cursiva a las primeras dos líneas del segundo párrafo de la forma número dos de la diapositiva número uno de la presentación activa.

Application.ActivePresentation.Slides(1).Shapes(2) _

    .TextFrame.TextRange.Paragraphs(2).Lines(1, 2).Font.Italic = True


Propiedad ParagraphFormat

Devuelve un objeto ParagraphFormat que representa el formato de párrafo del texto especificado. De sólo lectura.


Ejemplo de la propiedad ParagraphFormat

Este ejemplo establece el interlineado antes, dentro y después de cada párrafo de la forma número dos de la diapositiva número uno de la presentación activa.

With Application.ActivePresentation.Slides(2).Shapes(2)

    With .TextFrame.TextRange.ParagraphFormat

        .LineRuleWithin = msoTrue

        .LineSpacing = 1.4

        .LineRuleBefore = msoTrue

        .SpaceBefore = 0.25

        .LineRuleAfter = msoTrue

        .SpaceAfter = 0.75

    End With

End With


Método Paragraphs

Devuelve un objeto TextRange que representa el subconjunto especificado de párrafos de texto. Para obtener información acerca de cómo contar o crear bucles en los párrafos de un intervalo de texto, vea el objeto TextRange.

Sintaxis

expresión.Paragraphs(Start, Length)

expresión   Requerida. Una expresión que devuelve un objeto TextRange.

Start   Long opcional. El primer párrafo del intervalo devuelto.

Length   Long opcional. El número de párrafos que se devuelve.

Comentarios

Si se omiten Start y Length, el intervalo devuelto comenzará por el primer párrafo y terminará por el último párrafo del intervalo especificado.

Si se especifica Start pero se omite Length, el intervalo devuelto contendrá un párrafo.

Si se especifica Length pero se omite Start, el intervalo devuelto comenzará por el primer párrafo del intervalo especificado.

Si Start es mayor que el número de párrafos del texto especificado, el intervalo devuelto comenzará por el último párrafo del intervalo especificado.

Si Length es mayor que el número de párrafos que hay desde el párrafo de inicio especificado hasta el final del texto, el intervalo devuelto contendrá todos esos párrafos.


Ejemplo del método Paragraphs

Este ejemplo aplica formato de cursiva a las dos primeras líneas del segundo párrafo de la forma número dos de la diapositiva número uno de la presentación activa.

Application.ActivePresentation.Slides(1).Shapes(2) _

    .TextFrame.TextRange.Paragraphs(2).Lines(1, 2).Font.Italic = True


Método RemovePeriods

Quita el punto al final de cada párrafo del texto especificado.


Ejemplo del método RemovePeriods

Este ejemplo quita el punto al final de cada párrafo de la forma número dos de la diapositiva número uno de la presentación activa.

Application.ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange _

    .RemovePeriods


Método Replace

Objeto TextRange: Busca texto especifico en un intervalo de texto, reemplaza el texto encontrado por una cadena especificada y devuelve un objeto TextRange que representa la primera aparición del texto encontrado. Devuelve Nothing si no encuentra coincidencias.

Conjunto Fonts: Reemplaza una fuente del conjunto Fonts.

Sintaxis 1

expresión.Replace(FindWhat, ReplaceWhat, After, MatchCase, WholeWords)

Sintaxis 2

expresión.Replace(Original, Replacement)

expresión   Requerida. Una expresión que devuelve un objeto TextRange (Sintaxis 1) o un conjunto Fonts (Sintaxis 2).

FindWhat   String requerida. El texto que se busca.

ReplaceWhat   String requerida. El texto con el que desea reemplazar el texto encontrado.

After   Long opcional. La posición del carácter (dentro del intervalo de texto especificado) a partir del cual desea buscar la siguiente aparición de FindWhat. Por ejemplo: si desea buscar a partir del quinto carácter del intervalo de texto especificado, asigne 4 a After. Si se omite el argumento, el punto de inicio de búsqueda será el primer carácter del intervalo de texto.

MatchCase   Long opcional. True para que la búsqueda distinga entre caracteres en mayúscula y en minúscula. El valor predeterminado es False.

WholeWords   Long opcional. True para que la búsqueda encuentre sólo palabras completas, no partes de palabras más grandes. El valor predeterminado es False.

Original   String requerida. El nombre de la fuente que se reemplaza.

Replacement   String requerida. El nombre de la fuente de reemplazo.


Ejemplo del método Replace

Este ejemplo reemplaza las apariciones de palabra completa de "OrganizaciónX" en la presentación activa por "OrganizaciónY."

For Each diap In Application.ActivePresentation.Slides

    For Each forma In diap.Shapes

        forma.TextFrame.TextRange.Replace FindWhat:="OrganizaciónX", _

            Replacewhat:="OrganizaciónY", WholeWords:=True

    Next forma

Next diap

Este ejemplo reemplaza la fuente Times New Roman por la fuente Courier en la presentación activa.

Application.ActivePresentation.Fonts.Replace "Times New Roman", "Courier"


Método Runs

Devuelve un objeto TextRange que representa el subconjunto especificado de segmentos de texto. Un segmento de texto es un intervalo de caracteres que comparten los mismos atributos de fuente. Para obtener información acerca de cómo contar o crear bucles en los segmentos de un intervalo de texto, vea el objeto TextRange.

Sintaxis

expresión.Runs(Start, Length)

expresión   Requerida. Una expresión que devuelve un objeto TextRange.

Start   Long opcional. El primer segmento del intervalo devuelto.

Length   Long opcional. El número de segmentos que se devuelve.

Comentarios

Si se omiten Start y Length, el intervalo devuelto comenzará por el primer segmento y terminará por el último párrafo del intervalo especificado.

Si se especifica Start pero se omite Length, el intervalo devuelto contendrá un segmento.

Si se especifica Length pero se omite Start, el intervalo devuelto comenzará por el primer segmento del intervalo especificado.

Si Start es mayor que el número de segmentos del texto especificado, el intervalo devuelto comenzará por el último segmento del intervalo especificado.

Si Length es mayor que el número de segmentos que hay desde el segmento de inicio especificado hasta el final del texto, el intervalo devuelto contendrá todos esos segmentos.

Un segmento se compone de todos los caracteres que van desde el primero tras un cambio de fuente hasta el penúltimo con los mismos atributos de fuente. Por ejemplo, considere la oración siguiente:

Esta palabra en cursiva no está en negrita.

En la oración anterior, el primer segmento se compone de las palabras "Esta palabra" sólo si el espacio que hay después de "palabra" no tiene formato de cursiva (si el espacio tiene formato de cursiva, el primer segmento se compondrá de los caracteres "Esta palabr"). De igual forma, el segundo segmento contiene las palabras "en cursiva" sólo si el espacio que hay después de ellas tiene formato de cursiva.


Ejemplo del método Runs

Este ejemplo aplica formato de negrita cursiva al segundo segmento de la forma número dos de la diapositiva número uno de la presentación activa si previamente tiene formato de cursiva.

With Application.ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange

    With .Runs(2).Font

        If .Italic Then

            .Bold = True

        End If

    End With

End With


Método Sentences

Devuelve un objeto TextRange que representa el subconjunto especificado de oraciones de texto. Para obtener información acerca de cómo contar o crear bucles en las oraciones de un intervalo de texto, vea el objeto TextRange.

Sintaxis

expresión.Sentences(Start, Length)

expresión   Requerida. Una expresión que devuelve un objeto TextRange.

Start   Long opcional. La primera oración del intervalo devuelto.

Length   Long opcional. El número de oraciones que se devuelve.

Comentarios

Si se omiten Start y Length, el intervalo devuelto comenzará por la primera oración y terminará por el último párrafo del intervalo especificado.

Si se especifica Start pero se omite Length, el intervalo devuelto contendrá una oración.

Si se especifica Length pero se omite Start, el intervalo devuelto comenzará por la primera oración del intervalo especificado.

Si Start es mayor que el número de oraciones del texto especificado, el intervalo devuelto comenzará por la última oración del intervalo especificado.

Si Length es mayor que el número de oraciones que hay desde la oración de inicio especificada hasta el final del texto, el intervalo devuelto contendrá todas esas oraciones.


Ejemplo del método Sentences

Este ejemplo aplica formato de negrita a la segunda oración del segundo párrafo de la forma número dos de la diapositiva número uno de la presentación activa.

Application.ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange _

    .Paragraphs(2).Sentences(2).Font.Bold = True


Método TrimText

Devuelve un objeto TextRange que representa el texto especificado menos los espacios en blanco finales.

Sintaxis

expresión.TrimText

expresión   Requerida. Una expresión que devuelve un objeto TextRange.


Ejemplo del método TrimText

Este ejemplo inserta la cadena "   Texto que se recorta   " al comienzo del texto de la forma número dos de la diapositiva número uno de la presentación activa y después presenta cuadros de mensaje mostrando la cadena antes y después de recortarse.

With Application.ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange

    With .InsertBefore("   Texto que se recorta   ")

        MsgBox "Sin recortar: " & """" & .Text & """"

        MsgBox "Recortado: " & """" & .TrimText.Text & """"

    End With

End With


Método Words

Devuelve un objeto TextRange que representa el subconjunto especificado de palabras de texto. Para obtener información acerca de cómo contar o crear bucles en las palabras de un intervalo de texto, vea el objeto TextRange.

Sintaxis

expresión.Words(Start, Length)

expresión   Requerida. Una expresión que devuelve un objeto TextRange.

Start   Long opcional. La primera palabra del intervalo devuelto.

Length   Long opcional. El número de palabras que se devuelve.

Comentarios

Si se omiten Start y Length, el intervalo devuelto comenzará por la primera palabra y terminará por el último párrafo del intervalo especificado.

Si se especifica Start pero se omite Length, el intervalo devuelto contendrá una palabra.

Si se especifica Length pero se omite Start, el intervalo devuelto comenzará por la primera palabra del intervalo especificado.

Si Start es mayor que el número de palabras del texto especificado, el intervalo devuelto comenzará por la última palabra del intervalo especificado.

Si Length es mayor que el número de palabras que hay desde la palabra de inicio especificada hasta el final del texto, el intervalo devuelto contendrá todas esas palabras.


Ejemplo del método Words

Este ejemplo aplica formato de negrita a la segunda, tercera y cuarta palabras del primer párrafo de la forma número dos de la diapositiva número uno de la presentación activa.

Application.ActivePresentation.Slides(1).Shapes(2).TextFrame.TextRange _

    .Paragraphs(1).Words(2, 3).Font.Bold = True


Propiedad Depth

Devuelve o establece la profundidad de la extrusión de la forma. Puede ser un valor comprendido entre  – 600 y 9600 (valores positivos producen una extrusión cuya cara frontal es la forma original. Valores negativos producen una extrusión cuya cara posterior es la forma original). Single de Lectura/Escritura.


Ejemplo de la propiedad Depth

Este ejemplo agrega una elipse a miDocumento y especifica que la extrusión de la elipse tenga una profundidad de 50 puntos y que la extrusión sea de color púrpura.

Set miDocumento = ActivePresentation.Slides(1)

Set miForma = miDocumento.Shapes.AddShape(msoShapeOval, 90, 90, 90, 40)

With miForma.ThreeD

    .Visible = True

    .Depth = 50

    .ExtrusionColor.RGB = RGB(255, 100, 255)    ' Valor RGB del púrpura

End With


Propiedad ExtrusionColor

Devuelve un objeto ColorFormat que representa el color de la extrusión de la forma. Es de sólo lectura.


Ejemplo de la propiedad ExtrusionColor

Este ejemplo agrega una elipse a miDocumento y especifica que la extrusión de la elipse tenga una profundidad de 50 puntos y que la extrusión sea de color púrpura.

Set miDocumento = ActivePresentation.Slides(1)

Set miForma = miDocumento.Shapes.AddShape(msoShapeOval, 90, 90, 90, 40)

With miForma.ThreeD

    .Visible = True

    .Depth = 50

    .ExtrusionColor.RGB = RGB(255, 100, 255)    ' Valor RGB del púrpura

End With


Propiedad ExtrusionColorType

Devuelve o establece un valor que indica si el color de extrusión está basado en el relleno de la forma extruida (la cara frontal de la extrusión) y cambia automáticamente cuando se modifica el color de relleno de la forma o si el color de extrusión es independiente del relleno de la forma. Puede ser una de las siguientes constantes MsoExtrusionColorType: msoExtrusionColorAutomatic (color de extrusión basado en el relleno de la forma), msoExtrusionColorCustom (color de extrusión independiente del relleno de la forma) o msoExtrusionColorTypeMixed. Long de Lectura/Escritura.


Ejemplo de la propiedad ExtrusionColorType

Si la primera forma de miDocumento tiene un color de extrusión automático, este ejemplo aplica un color amarillo personalizado a la extrusión.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(1).ThreeD

    If .ExtrusionColorType = msoExtrusionColorAutomatic Then

        .ExtrusionColor.RGB = RGB(240, 235, 16)

    End If

End With


Método IncrementRotationX

Cambia el giro de la forma especificada alrededor del eje X en un determinado número de grados. Use la propiedad RotationX para establecer el giro absoluto de la forma alrededor del eje X.

Sintaxis

expresión.IncrementRotationX(Increment)

expresión   Requerida. Expresión que devuelve un objeto de ThreeDFormat.

Increment   Single requerido. Especifica los grados de giro alrededor del eje X que la forma va a cambiar. Puede ser un valor comprendido entre  – 90 y 90. Un valor positivo inclina la forma hacia arriba; un valor negativo la inclina hacia abajo.

Comentarios

No puede ajustar el giro alrededor del eje X de la forma especificada más allá del límite superior o inferior de la propiedad RotationX (de 90 grados a – 90 grados). Por ejemplo: si la propiedad RotationX tiene el valor inicial de 80 y especifica 40 para el argumento Increment, el giro resultante será 90 (el límite superior de la propiedad RotationX ) en vez de 120.

Para cambiar el giro de una forma alrededor del eje Y, use el método IncrementRotationY. Para cambiar el giro alrededor del eje Z, use el método IncrementRotation.


Ejemplo del método IncrementRotationX

Este ejemplo inclina 10 grados la primera forma de miDocumento. Para poder ver el efecto del código, la forma número uno debe ser una forma extruida.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes(1).ThreeD.IncrementRotationX 10


Método IncrementRotationY

Cambia el giro de la forma especificada alrededor del eje Y en un determinado número de grados. Use la propiedad RotationY para establecer el giro absoluto de la forma alrededor del eje Y.

Sintaxis

expresión.IncrementRotationY(Increment)

expresión   Requerida. Expresión que devuelve un objeto ThreeDFormat.

Increment   Single requerido. Especifica los grados de giro alrededor del eje Y que la forma va a cambiar. Puede ser un valor comprendido entre  – 90 y 90.Un valor positivo inclina la forma hacia la izquierda; un valor negativo la inclina hacia la derecha.

Comentarios

Para cambiar el giro de una forma alrededor del eje X, use el método IncrementRotationX. Para cambiar el giro alrededor del eje Z, use el método IncrementRotation.

No puede ajustar el giro alrededor del eje Y de la forma especificada más allá del límite superior o inferior de la propiedad RotationY (de 90 grados a – 90 grados). Por ejemplo: si la propiedad RotationY tiene el valor inicial de 80 y especifica 40 para el argumento Increment, el giro resultante será 90 (el límite superior de la propiedad RotationY ) en vez de 120.


Ejemplo del método IncrementRotationY

Este ejemplo inclina 10 grados a la derecha la primera forma de miDocumento. Para poder ver el efecto del código, la forma número uno debe ser una forma extruida.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes(1).ThreeD.IncrementRotationY -10


Propiedad Perspective

True si la extrusión aparece en perspectiva, es decir, si las caras de la extrusión se estrechan según un punto de fuga. False si la extrusión es una proyección paralela, o normal, es decir, si las caras de la extrusión no se estrechan según un punto de fuga. Long de Lectura/Escritura.


Ejemplo de la propiedad Perspective

Este ejemplo establece la profundidad de la extrusión de la primera forma de miDocumento en 100 puntos y especifica que la extrusión sea paralela, o normal.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(1).ThreeD

    .Visible = True

    .Depth = 100

    .Perspective = False

End With


Propiedad PresetExtrusionDirection

Devuelve la dirección de barrido de la extrusión desde la forma extruida (la cara frontal de la extrusión) Puede ser una de las siguientes constantes MsoPresetExtrusionDirection: msoExtrusionBottom, msoExtrusionBottomLeft, msoExtrusionBottomRight, msoExtrusionLeft, msoExtrusionNone, msoExtrusionRight, msoExtrusionTop, msoExtrusionTopLeft, msoExtrusionTopRight o msoPresetExtrusionDirectionMixed. Long de sólo lectura.

Comentarios

Esta propiedad es de sólo lectura. Para establecer esta propiedad, use el método SetExtrusionDirection.


Ejemplo de la propiedad PresetExtrusionDirection

Este ejemplo cambia las extrusiones de miDocumento que se extiendan hacia la esquina superior izquierda de la cara frontal de la extrusión a una extrusión que se extiende hacia la esquina inferior derecha de la cara frontal.

Set miDocumento = ActivePresentation.Slides(1)

For Each f In miDocumento.Shapes

    With f.ThreeD

        If .PresetExtrusionDirection = msoExtrusionTopLeft Then

            .SetExtrusionDirection msoExtrusionBottomRight

        End If

    End With

Next


Propiedad PresetLightingDirection

Devuelve o establece la posición de la fuente de iluminación en relación con la extrusión. Puede ser una de las siguientes constantes MsoPresetLightingDirection: msoLightingBottom, msoLightingBottomLeft, msoLightingBottomRight, msoLightingLeft, msoLightingNone, msoLightingRight, msoLightingTop, msoLightingTopLeft, msoLightingTopRight o msoPresetLightingDirectionMixed. Long de Lectura/Escritura.

Nota   No podrá ver efectos de iluminación si la extrusión tiene una superficie de estructura metálica.


Ejemplo de la propiedad PresetLightingDirection

Este ejemplo especifica que la extrusión de la primera forma de miDocumento se extienda hacia la parte superior de la forma y que la iluminación provenga de la izquierda.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(1).ThreeD

    .Visible = True

    .SetExtrusionDirection msoExtrusionTop

    .PresetLightingDirection = msoLightingLeft

End With


Propiedad PresetLightingSoftness

Devuelve o establece la intensidad de la iluminación de la extrusión. Puede ser una de las siguientes constantes MsoPresetLightingSoftness: msoLightingBright, msoLightingDim, msoLightingNormal o msoPresetLightingSoftnessMixed. Long de Lectura/Escritura.


Ejemplo de la propiedad PresetLightingSoftness

Este ejemplo especifica que la extrusión de la primera forma de miDocumento se ilumine de modo brillante desde la izquierda.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(1).ThreeD

    .Visible = True

    .PresetLightingSoftness = msoLightingBright

    .PresetLightingDirection = msoLightingLeft

End With


Propiedad PresetMaterial

Devuelve o establece el material de la superficie de la extrusión. Puede ser una de las siguientes constantes MsoPresetMaterial: msoMaterialMatte, msoMaterialMetal, msoMaterialPlastic, msoMaterialWireFrame o msoPresetMaterialMixed. Long de Lectura/Escritura.


Ejemplo de la propiedad PresetMaterial

Este ejemplo especifica que la superficie del material de la primera forma de miDocumento sea de estructura metálica.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(1).ThreeD

    .Visible = True

    .PresetMaterial = msoMaterialWireFrame

End With


Propiedad PresetThreeDFormat

Devuelve el formato preestablecido de la extrusión. Cada formato preestablecido de la extrusión contiene un conjunto de valores preestablecidos de varias propiedades de la extrusión. Si la extrusión tiene un formato personalizado en lugar de un formato preestablecido, esta propiedad devuelve msoPresetThreeDFormatMixed. Puede ser una de las siguientes constantes MsoPresetThreeDFormat: msoPresetThreeDFormatMixed, msoThreeD1, msoThreeD10, msoThreeD11, msoThreeD12, msoThreeD13, msoThreeD14, msoThreeD15, msoThreeD16, msoThreeD17, msoThreeD18, msoThreeD19, msoThreeD2, msoThreeD20, msoThreeD3, msoThreeD4, msoThreeD5, msoThreeD6, msoThreeD7, msoThreeD8 o msoThreeD9. Los valores de la propiedad se corresponden con las opciones (numeradas de izquierda a derecha y de arriba abajo) que se muestran al hacer clic en el botón 3D de la barra de herramientas Dibujo. Long de sólo lectura.

Comentarios

Esta propiedad es de sólo lectura. Para establecer un formato preestablecido de extrusión, use el método SetThreeDFormat.


Ejemplo de la propiedad PresetThreeDFormat

Este ejemplo establece el formato de extrusión de la primera forma de miDocumento como estilo 3D 12 si la forma tiene inicialmente un formato de extrusión personalizado.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(1).ThreeD

    If .PresetThreeDFormat = msoPresetThreeDFormatMixed Then

        .SetThreeDFormat msoThreeD12

    End If

End With


Método ResetRotation

Restablece el giro de la extrusión alrededor del eje X del eje Y a 0 (cero) de manera que la cara frontal de la extrusión esté de frente. Este método no restablece el giro alrededor del eje Z.

Sintaxis

expresión.ResetRotation

expresión   Requerida. Expresión que devuelve un objeto ThreeDFormat.

Comentarios

Para establecer el giro de la extrusión alrededor de los ejes X e Y en un valor distinto de 0 (cero), use las propiedades RotationX y RotationY del objeto ThreeDFormat. Para establecer el giro de la extrusión alrededor del eje Z, use la propiedad Rotation del objeto Shape que represente la forma extruida.


Ejemplo del método ResetRotation

Este ejemplo restablece el giro alrededor de los ejes X e Y en un valor 0 (cero) para la extrusión de la primera forma en miDocumento.

Set miDocumento = ActivePresentation.Slides(1)

miDocumento.Shapes(1).ThreeD.ResetRotation


Propiedad RotationX

Devuelve o establece los grados de giro alrededor del eje X de la forma extruida. Puede ser un valor comprendido entre  – 90 y 90.Un valor positivo indica un giro hacia arriba; un valor negativo indica un giro hacia abajo. Single de Lectura/Escritura.

Comentarios

Para establecer el giro de la forma extruida alrededor del eje Y, use la propiedad RotationY del objeto ThreeDFormat. Para establecer el giro de la forma extruida alrededor del eje Z, use la propiedad Rotation del objeto Shape. Para cambiar la dirección de barrido de la extrusión sin girar la cara frontal de la extrusión, use el método SetExtrusionDirection.


Ejemplo de la propiedad RotationX

Este ejemplo agrega tres elipses extruidas e idénticas a miDocumento y establece el giro alrededor del eje X en – 30, 0 y 30 grados respectivamente.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    With .AddShape(msoShapeOval, 30, 60, 50, 25).ThreeD

        .Visible = True

        .RotationX = -30

    End With

    With .AddShape(msoShapeOval, 90, 60, 50, 25).ThreeD

        .Visible = True

        .RotationX = 0

    End With

    With .AddShape(msoShapeOval, 150, 60, 50, 25).ThreeD

        .Visible = True

        .RotationX = 30

    End With

End With


Propiedad RotationY

Devuelve o establece los grados de giro alrededor del eje Y de la forma extruida. Puede ser un valor comprendido entre  – 90 y 90. Un valor positivo indica un giro hacia la izquierda; un valor negativo indica un giro hacia la derecha. Single de Lectura/Escritura.

Comentarios

Para establecer el giro de la forma extruida alrededor del eje X, use la propiedad RotationX del objeto ThreeDFormat. Para establecer el giro de la forma extruida alrededor del eje Z, use la propiedad Rotation del objeto Shape. Para cambiar la dirección de barrido de la extrusión sin girar la cara frontal de la extrusión, use el método SetExtrusionDirection.


Ejemplo de la propiedad RotationY

Este ejemplo agrega tres elipses extruidas e idénticas a miDocumento y establece el giro alrededor del eje Y en – 30, 0 y 30 grados respectivamente.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes

    With .AddShape(msoShapeOval, 30, 30, 50, 25).ThreeD

        .Visible = True

        .RotationY = -30

    End With

    With .AddShape(msoShapeOval, 30, 70, 50, 25).ThreeD

        .Visible = True

        .RotationY = 0

    End With

    With .AddShape(msoShapeOval, 30, 110, 50, 25).ThreeD

        .Visible = True

        .RotationY = 30

    End With

End With


Método SetExtrusionDirection

Establece la dirección de barrido de la extrusión desde la forma extruida.

Sintaxis

expresión.SetExtrusionDirection(PresetExtrusionDirection)

expresión   Requerida. Expresión que devuelve un objeto ThreeDFormat.

PresetExtrusionDirection   Long requerido. Especifica la dirección de la extrusión. Puede ser una de las siguientes constantes MsoPresetExtrusionDirection: msoExtrusionBottom, msoExtrusionBottomLeft, msoExtrusionBottomRight, msoExtrusionLeft, msoExtrusionNone, msoExtrusionRight, msoExtrusionTop, msoExtrusionTopLeft o msoExtrusionTopRight.

Comentarios

Este método establece la propiedad PresetExtrusionDirection en la dirección especificada por el argumento PresetExtrusionDirection.


Ejemplo del método SetExtrusionDirection

Este ejemplo especifica que la extrusión de la primera forma de miDocumento se extienda hacia la parte superior de la forma y que la iluminación provenga de la izquierda.

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes(1).ThreeD

    .Visible = True

    .SetExtrusionDirection msoExtrusionTop

    .PresetLightingDirection = msoLightingLeft

End With


Método SetThreeDFormat

Establece el formato preestablecido de la extrusión. Cada formato preestablecido de la extrusión contiene un conjunto de valores preestablecidos de varias propiedades de la extrusión.

Sintaxis

expresión.SetThreeDFormat(PresetThreeDFormat)

expresión   Requerida. Expresión que devuelve un objeto ThreeDFormat.

PresetThreeDFormat   Long requerido. Especifica a formato preestablecido de extrusión que se corresponde con una de las opciones (numeradas de izquierda a derecha y de arriba abajo) que se muestran al hacer clic en el botón 3D de la barra de herramientas Dibujo. Puede ser una de las siguientes constantes MsoPresetThreeDFormat: msoThreeD1, msoThreeD10, msoThreeD11, msoThreeD12, msoThreeD13, msoThreeD14, msoThreeD15, msoThreeD16, msoThreeD17, msoThreeD18, msoThreeD19, msoThreeD2, msoThreeD20, msoThreeD3, msoThreeD4, msoThreeD5, msoThreeD6, msoThreeD7, msoThreeD8 o msoThreeD9. Tenga en cuenta que se produce un error si se especifica msoPresetThreeDFormatMixed como argumento.

Comentarios

Este método establece la propiedad PresetThreeDFormat en la dirección especificada por el argumento PresetThreeDFormat.


Ejemplo del método SetThreeDFormat

Este ejemplo agrega una elipse a miDocumento y establece el formato de extrusión en estilo 3D 12

Set miDocumento = ActivePresentation.Slides(1)

With miDocumento.Shapes.AddShape(msoShapeOval, 30, 30, 50, 25).ThreeD

    .Visible = True

    .SetThreeDFormat msoThreeD12

End With


Propiedad AcceleratorsEnabled

True si las teclas de método abreviado están activadas durante la presentación con diapositivas. El valor predeterminado es True. Si las teclas de método abreviado están desactivadas durante la presentación con diapositivas, no podrá moverse por las diapositivas ni presionar ESC para salir de la presentación. Long de Lectura/Escritura.


Ejemplo de la propiedad AcceleratorsEnabled

Este ejemplo ejecuta una presentación con diapositivas de la presentación activa con las teclas de método abreviado desactivadas.

ActivePresentation.SlideShowSettings.Run.View.AcceleratorsEnabled = False


Propiedad DisplaySlideMiniature

True si se muestra la ventana en miniatura. Long de Lectura/Escritura.

Comentarios

La ventana en miniatura de la diapositiva no es un componente de los conjuntos Windows ni SlideShowWindows.


Ejemplo de la propiedad DisplaySlideMiniature

Si la ventana del documento número uno está en la vista Diapositivas, este ejemplo muestra la ventana en miniatura de la diapositiva.

With Windows(1).View

    If .Type = ppViewSlide Then .DisplaySlideMiniature = True

End With


Método DrawLine

Dibuja un línea en la vista de la presentación con diapositivas especificada.

Sintaxis

expresión.DrawLine(BeginX, BeginY, EndX, Height)

expresión   Requerida. Una expresión que devuelve un objeto SlideShowView.

BeginX, BeginY   Single requerido. La posición (en puntos) del punto inicial de la línea relativo a la esquina superior izquierda de la diapositiva.

EndX, EndY   Single requerido. La posición (en puntos) del punto final de la línea relativo a la esquina superior izquierda de la diapositiva.


Ejemplo del método DrawLine

Este ejemplo dibuja una línea en la primera ventana de la presentación con diapositivas.

SlideShowWindows(1).View.DrawLine 5, 5, 250, 250


Método EraseDrawing

Quita las líneas dibujadas mediante el método DrawLine o mediante la pluma durante la presentación con diapositivas.

Sintaxis

expresión.EraseDrawing

expresión   Requerida. Una expresión que devuelve un objeto SlideShowView.


Ejemplo del método EraseDrawing

Este ejemplo borra todas las líneas dibujadas en la primera ventana de la presentación con diapositivas mediante el método DrawLine o mediante la pluma.

SlideShowWindows(1).View.EraseDrawing


Método Exit

Finaliza la presentación con diapositivas especificada.

Sintaxis

expresión.Exit

expresión   Requerida. Una expresión que devuelve un objeto SlideShowView.


Ejemplo del método Exit

Este ejemplo finaliza la presentación con diapositivas que se está ejecutando en la primera ventana de presentación con diapositivas.

SlideShowWindows(1).View.Exit


Método First

Establece que la vista de presentación con diapositivas especificada muestre la primera diapositiva de la presentación.

Sintaxis

expresión.First

expresión   Requerida. Una expresión que devuelve un objeto SlideShowView.

Comentarios

Al usar el método First para cambiar de una diapositiva a otra durante una presentación, y volver después a la diapositiva original, la animación se reinicia en el lugar en que se interrumpió.


Ejemplo del método First

Este ejemplo establece que la primera ventana de presentación con diapositivas muestre la primera diapositiva de la presentación.

SlideShowWindows(1).View.First


Método GotoSlide

Objeto View: Cambia a la diapositiva especificada.

Objeto SlideShowView: Cambia a la diapositiva especificada durante la presentación con diapositivas. Puede especificar si desea volver a ejecutar los efectos de animación.

Sintaxis 1

expresión.GotoSlide(Index)

expresión   Requerida. Una expresión que devuelve un objeto View.

Index   Long requerido. El número de diapositiva a la que se cambia.

Sintaxis 1

expresión.GotoSlide(Index, ResetSlide)

expresión   Requerida. Una expresión que devuelve un objeto SlideShowView.

Index   Long requerido. El número de diapositiva a la que se cambia.

ResetSlide   Long opcional. Cuando se cambia de una a otra diapositiva durante la presentación con diapositivas con ResetSlide igual a False, al volver a la primera diapositiva, la animación se reinicia en el lugar en que se interrumpió. Cuando se cambia de una diapositiva a otra durante la presentación con diapositivas con ResetSlide igual a True, al volver a la primera diapositiva, la animación se reinicia de nuevo. El valor predeterminado es True.


Ejemplo del método GotoSlide

Este ejemplo cambia de la diapositiva actual a la tercera diapositiva de la ventana número uno de presentación con diapositivas. Al volver a la diapositiva actual durante la presentación con diapositivas, la animación comienza de nuevo.

With SlideShowWindows(1).View

    .GotoSlide 3

End With

Este ejemplo cambia de la diapositiva actual a la tercera diapositiva de la ventana número uno de presentación con diapositivas. Al volver a la diapositiva actual durante la presentación con diapositivas, la animación se reinicia en el lugar en que se interrumpió.

With SlideShowWindows(1).View

    .GotoSlide 3, False

End With


Propiedad IsNamedShow

True si una presentación con diapositivas personalizada se muestra en la vista de presentación con diapositivas especificada. Long de sólo lectura.


Ejemplo de la propiedad IsNamedShow

Si la presentación se está ejecutando en la primera ventana de presentación con diapositivas, este ejemplo muestra su nombre.

With SlideShowWindows(1).View

    If .IsNamedShow Then

        MsgBox "Ventana de presentación con diapositivas número 1: " & .SlideShowName

    End If

End With


Método Last

Establece que la vista de presentación con diapositivas especificada muestre la última diapositiva de la presentación.

Sintaxis

expresión.Last

expresión   Requerida. Una expresión que devuelve un objeto SlideShowView.

Comentarios

Al usar el método Last para cambiar de una diapositiva a otra durante una presentación con diapositivas, y volver después a la diapositiva original, la animación se reinicia en el lugar en que se interrumpió.


Ejemplo del método Last

Este ejemplo establece que la primera ventana de presentación con diapositivas muestre la última diapositiva de la presentación.

SlideShowWindows(1).View.Last


Propiedad PointerType

Devuelve o establece el tipo de puntero usado en la presentación con diapositivas. Puede ser una de las siguientes constantes PpSlideShowPointerType: ppSlideShowPointerAlwaysHidden, ppSlideShowPointerArrow, ppSlideShowPointerNone o ppSlideShowPointerPen. Long de Lectura/Escritura.


Ejemplo de la propiedad PointerType

Este ejemplo ejecuta una presentación con diapositivas de la presentación activa, cambia el puntero a una pluma y establece el color de la pluma en rojo para esta presentación.

Set vistaActual = ActivePresentation.SlideShowSettings.Run.View

With vistaActual

    .PointerColor.RGB = RGB(255, 0, 0)

    .PointerType = ppSlideShowPointerPen

End With


Propiedad PresentationElapsedTime

Devuelve el tiempo transcurrido en segundos desde que se empezó la presentación con diapositivas especificada. Long de sólo lectura.


Ejemplo de la propiedad PresentationElapsedTime

Este ejemplo va a la séptima diapositiva de la ventana número uno de presentación con diapositivas si transcurren más de cinco segundos desde que se inició la presentación.

With SlideShowWindows(1).View

    If .PresentationElapsedTime > 300 Then

        .GotoSlide 7

    End If

End With


Método ResetSlideTime

Restablece el tiempo (representado por la propiedad SlideElapsedTime) que la diapositiva actual ha permanecido en pantalla en 0 (cero).

Sintaxis

expresión.ResetSlideTime

expresión   Requerida. Una expresión que devuelve un objeto SlideShowView.


Ejemplo del método ResetSlideTime

Este ejemplo restablece el tiempo que la diapositiva actual ha permanecido en la primera ventana de presentación con diapositivas en 0 (cero).

SlideShowWindows(1).View.ResetSlideTime


Propiedad Slide

Objeto SlideShowView: Devuelve un objeto Slide que representa la diapositiva actualmente mostrada en la ventana de presentación con diapositivas especificada. Es de sólo lectura.

Objeto View: Devuelve o establece un objeto Slide que representa la diapositiva actualmente mostrada en la ventana de documento especificada. Es de Lectura/Escritura.

Comentarios

Si la diapositiva actualmente mostrada pertenece a una presentación incrustada, puede usar la propiedad Parent del objeto Slide devuelto por la propiedad Slide para obtener la presentación incrustada en la diapositiva. La propiedad Presentation del objeto SlideShowWindow o del objeto DocumentWindow devuelve la presentación desde la que se creó la ventana, no la presentación incrustada.


Ejemplo de la propiedad Slide

Este ejemplo copia en el Portapapeles la diapositiva actualmente mostrada en la primera ventana de la presentación con diapositivas.

SlideShowWindows(1).View.Slide.Copy

Este ejemplo muestra el nombre de la presentación que se está ejecutando actualmente en la primera ventana de la presentación con diapositivas

MsgBox SlideShowWindows(1).View.Slide.Parent.Name


Propiedad SlideElapsedTime

Devuelve el número de segundos que la diapositiva actual ha permanecido en pantalla. Long de Lectura/Escritura.

Comentarios

Use el método ResetSlideTime para restablecer el tiempo transcurrido en la diapositiva actual.


Ejemplo de la propiedad SlideElapsedTime

Este ejemplo asigna una variable al tiempo que la diapositiva actual ha permanecido en la primera ventana de presentación con diapositivas y después muestra el valor de dicha variable.

tiempo = SlideShowWindows(1).View.SlideElapsedTime

MsgBox tiempo


Propiedad SlideShowName

Objeto ActionSetting: Devuelve o establece el nombre de la presentación con diapositivas personalizada que se va a ejecutar como respuesta a una acción del mouse en la forma durante una presentación con diapositivas. String de Lectura/Escritura.

Objeto PrintOptions: Devuelve o establece el nombre de la presentación personalizada para imprimirlo. String de Lectura/Escritura.

Objeto SlideShowView: Devuelve el nombre de la presentación con diapositivas personalizada que se está ejecutando actualmente en la vista de presentación con diapositivas especificada. String de sólo lectura.

Comentarios

Para imprimir la presentación con diapositivas personalizada, la propiedad RangeType debe ser ppPrintNamedSlideShow.


Ejemplo de la propiedad SlideShowName

Si la presentación que se está ejecutando es una presentación con diapositivas personalizada, este ejemplo muestra su nombre.

With SlideShowWindows(1).View

    If .IsNamedShow Then

        MsgBox "Ventana de presentación con diapositivas número 1: " & .SlideShowName

    End If

End With

Este ejemplo imprime la presentación con diapositivas personalizada "Ensayo técnico"

With ActivePresentation.PrintOptions

    .RangeType = ppPrintNamedSlideShow

    .SlideShowName = "Ensayo técnico"

End With

ActivePresentation.PrintOut


Propiedad State

Devuelve o establece el estado de la presentación con diapositivas. Puede ser una de las siguientes constantes PpSlideShowState: ppSlideShowBlackScreen, ppSlideShowDone, ppSlideShowPaused, ppSlideShowRunning o ppSlideShowWhiteScreen. Long de Lectura/Escritura.


Ejemplo de la propiedad State

Este ejemplo establece el estado de la vista de la primera ventana de presentación con diapositivas como pantalla en negro.

SlideShowWindows(1).View.State = ppSlideShowBlackScreen


Propiedad Zoom

Objeto SlideShowView: Devuelve el valor del zoom de la vista de la ventana de presentación con diapositivas como un porcentaje del tamaño normal. Puede ser un valor comprendido entre 10 y 400. Long de sólo lectura.

Objeto View: Devuelve o establece el valor de zoom de la vista especificada como un porcentaje del tamaño normal. Puede ser un valor comprendido entre 10 y 400. Long de Lectura/Escritura.


Ejemplo de la propiedad Zoom

El siguiente ejemplo establece el zoom de la vista de la primera ventana de documento en 30 por ciento.

Windows(1).View.Zoom = 30


Propiedad ZoomToFit

True si el tamaño de la vista está calculado para ajustarse a las dimensiones de la ventana de documento siempre que se restaure el tamaño de la ventana de documento. Esta propiedad sólo se aplica a las vistas Diapositivas, Página de notas y Patrón. Long de Lectura/Escritura.

Comentarios

Al establecer explícitamente la propiedad Zoom, el valor de la propiedad ZoomToFit se establece automáticamente en False.


Ejemplo de la propiedad ZoomToFit

El siguiente ejemplo establece la vista de la primera ventana de documento en vista Diapositivas y con un zoom para ajustarse automáticamente al tamaño de la ventana.

With Windows(1)

    .ViewType = ppViewSlide

    .View.ZoomToFit = True

End With