Pgina: 1
Microsoft proporciona ejemplos de programacin con fines ilustrativos nicamente, sin ninguna garanta tanto expresa
como implcita. Esto incluye, entre otras, las garantas implcitas de comerciabilidad e idoneidad para un fin
determinado. Este artculo se supone que est familiarizado con el lenguaje de programacin que se muestra y con las
herramientas que se utilizan para crear y depurar procedimientos. Los ingenieros de soporte tcnico de Microsoft
pueden explicarle la funcionalidad de un determinado procedimiento, pero no modificarn estos ejemplos para ofrecer
mayor funcionalidad ni crearn procedimientos que cumplan sus requisitos especficos. Nota : los siguientes ejemplos
de macro slo funcionan en PowerPoint. Microsoft PowerPoint Viewer no admite macros de Visual Basic para
Aplicaciones. Para obtener informacin adicional, haga clic en el nmero de artculo siguiente para verlo en Microsoft
Knowledge Base:
Crear una nueva presentacin
1.
En el men archivo , haga clic en nuevo . Se abrir el cuadro de dilogo Nueva presentacin .
2.
Seleccione el icono de Presentacin en blanco en la ficha General y haga clic en Aceptar . Esto abre
el cuadro de dilogo Nueva diapositiva .
3.
Haga clic para seleccionar el Autodiseo en blanco , situado en la esquina inferior derecha y haga clic
en Aceptar .
Ahora dispone de una presentacin en blanco abierto, preparado para crear la macro.
Crear una macro
1.
En el men Herramientas , elija macro y, a continuacin, haga clic en macros . Se abrir el cuadro de
dilogo macro .
2.
En el cuadro Nombre de macro , escriba un nombre para la macro. El nombre debe empezar con una letra
y puede contener hasta 80 caracteres. Las teclas de Visual Basic para Aplicaciones son nombres no vlidos
para las macros. No puede contener espacios. Normalmente, los programadores utilizan character(_) un
carcter
de
subrayado
para
separar
palabras.
No se preocupe de recordar todas las reglas para dar nombres a las macros. Si escribe un nombre de
macro no vlido, PowerPoint mostrar un cuadro de dilogo con un mensaje similar al siguiente:
macro name no es un nombre vlido para una macro
Si ve este mensaje, slo Siga intentndolo hasta que encuentre un nombre que PowerPoint aceptar.
3.
Haga clic en crear . Se abre el Editor de Visual Basic. El Editor de Visual Basic es una aplicacin donde
puede crear, editar y depurar sus macros.
Agregue cdigo a una macro nueva
Pgina: 2
Ahora debe buscar en un cursor parpadeante en la ventana de cdigo. La ventana de cdigo es donde realmente que
escribir comandos de Visual Basic. Una macro grabada tambin puede verse en la ventana de cdigo. La mayora de
los casos, la ventana de cdigo acta como un editor de texto tpico, lo que le permite cortar, copiar y pegar texto. Sin
embargo, existen algunas diferencias que facilitan la creacin de macros. A continuacin se detallan las diferencias
ms importantes.
1.
Escriba la siguiente lnea de cdigo entre el Sub y End Sub:
2. Dim MySlide As Slide
cuando escribe en el cdigo, probablemente observado algunas cosas interesantes que suceda. Despus
de presionar espacio despus de la palabra "como", aparece una lista de los tipos de datos disponibles en
la pantalla. Esto es slo una de las formas el Editor de Visual Basic facilita programacin un poco.
Qu hace este cdigo?
Dim
Indica que el Editor de Visual Basic que est a punto de
declarar una variable. Hay varios mtodos disponibles
para declarar variables, pero este artculo se describe
nicamente el mtodo Dim.
MySlide Es el nombre que proporciona la variable. Es una buena
idea dar a las variables significativas nombres
descriptivos. X es un ejemplo de un nombre de variable
pobres. Nombres significativos que el cdigo sea ms
fcil de leer.
As Slide Especfica el tipo de datos de la variable va a contener.
En este caso, MySlide contendr el tipo de datos Silde
(Diapositiva)
3.
Vamos a agregar algunos ms cdigo. Escriba la siguiente lnea de cdigo despus de la declaracin de
variable:
4. Set MySlide = ActivePresentation.Slides.Add(1, ppLayoutTitle)
este cdigo agrega una nueva diapositiva a la presentacin activa. La diapositiva que se ha creado utiliza
el diseo automtico slo ttulo.
Set MySlide
Asigna una referencia de objeto a una variable
o propiedad. Uso de Set hace que sea ms
fcil para referirse a ese mismo objeto
Pgina: 3
adelante en el cdigo.
ActivePresentatio Dice el Editor de Visual Basic que usted se
n
refiere a la presentacin que est abierta en la
ventana activa.
Add(1,
ppLayoutTitle)
Crea una nueva diapositiva y agrega a la
coleccin de diapositivas de la presentacin.
El mtodo Add toma dos parmetros:
El primer parmetro, el ndice de diapositivas,
es el nmero 1 en este caso. El ndice de
diapositivas es la posicin en la que crea la
diapositiva de PowerPoint. Cuando el ndice se
establece en 1, PowerPoint crea la nueva
diapositiva al principio de la presentacin.
El segundo parmetro especifica el tipo de
diseo automtico.
Para obtener ms informacin sobre cmo crear mediante programacin las diapositivas, haga clic en
Ayuda de Microsoft PowerPoint en el men Ayuda , escriba Agregar diapositivas en el Ayudante de
Office o en el Asistente para Ayuda y, a continuacin, haga clic en Buscar para ver el tema.
Para obtener ms informacin acerca de la diapositiva autodiseos disponibles, haga clic en Ayuda de
Microsoft PowerPoint en el men Ayuda , escriba PpPlaceHolder tipo en el Ayudante de Office o el
Asistente para Ayuda y, a continuacin, haga clic en Buscar para ver el tema.
TIP : cuando escriba cdigo, si aparece la lista propiedad y mtodo, puede seleccionar el elemento que
desee y presione TAB, que agrega el objeto para el comando y site el cursor en la misma lnea. El cdigo
de macro debe ser similar al siguiente:
Sub YourMacro ()
'
' Macro created 1/7/97 by You
'
Dim MySlide As Slide
Set MySlide = ActivePresentation.Slides.Add(1, ppLayoutTitle)
End Sub
Nota : el siguiente texto ' apstrofo (en la misma lnea) es un comentario. Los comentarios se ignoran el
Editor
de
Visual
Basic.
Se
agregan
al
cdigo
para
facilitar
la
interpretacin.
Pgina: 4
Ahora que la macro hace realmente algo, intente ejecutar la macro.
Ejecutar la macro
Hay varios mtodos para ejecutar una macro. Slo un mtodo se describe en este artculo.
1.
Haga clic en Cerrar y volver a Microsoft PowerPoint en el men archivo . El Editor de Visual Basic se
cierra y vuelve a PowerPoint.
2.
En el men Herramientas , elija macro y, a continuacin, haga clic en macros . Esto abre el cuadro de
dilogo macro.
3.
Seleccione la macro en la lista y, a continuacin, haga clic en Ejecutar .
PowerPoint, agrega una nueva diapositiva al principio de la presentacin.
Ver el cdigo de macro
Para ver el cdigo fuente de una macro especfica, siga estos pasos:
1.
En el men Herramientas , elija macro y, a continuacin, haga clic en macros . Aparecer el cuadro de
dilogo Macro.
2.
Haga clic en la macro que desea editar. El nombre de la macro debera aparecer resaltado.
3.
Haga clic en botn Editar . Esto abre la macro en el Editor de Visual Basic. El Editor de Visual Basic es
donde realizar correcciones, quitar pasos innecesarios o agregar instrucciones que no se puede grabar en
PowerPoint.
Agregar algunas ms cdigo
Ahora estamos preparados agregar el resto de los comandos para completar la macro.
1.
Agregar la siguiente lnea de cdigo a la macro:
2. ActiveWindow.ViewType = ppViewSlideSorter
Esto cambia la presentacin en la vista Clasificador de diapositivas. Agregar este valor para que pueda
seleccionar toda la diapositiva.
Para obtener ms informacin sobre las vistas de PowerPoint, haga clic en Ayuda de Microsoft
PowerPoint en el men Ayuda , escriba vistas en el Ayudante de Office o el Asistente para Ayuda y, a
continuacin, haga clic en Buscar para ver el tema.
3.
Agregar la siguiente lnea de cdigo a la macro:
Pgina: 5
4. MySlide.Select
este cdigo selecciona la diapositiva que ha creado. MySlide es la referencia de objeto creado con la
instruccin Dim.
5.
Agregar la siguiente seccin de cdigo a la macro:
6.
With ActiveWindow.Selection.SlideRange
7.
.FollowMasterBackground = msoFalse
8.
.Background.Fill.PresetTextured msoTextureRecycledPaper
9.
End With
estos comandos indicarle a PowerPoint que esta diapositiva concreta no sigue el patrn y, a continuacin,
el fondo de conjunto preestablecida textura de papel reciclado. La instruccin with permite agrupar
comandos que tienen referencias comunes. Si utiliza con para agrupar varios comandos, puede mejorar el
rendimiento
de
la
macro,
as
como
usted
mismo
ahorrar
mucho
de
escribir.
Si no utiliza la instruccin with, el cdigo sera similar al siguiente:
ActiveWindow.Selection.SlideRange.FollowMasterBackground = msoFalse
ActiveWindow.Selection.SlideRange.Background.Fill.PresetTextured _
msoTextureRecycledPaper
el carcter de subrayado en la segunda lnea es un carcter de continuacin. Indica al Editor de Visual
Basic que no se pudo cabe el comando especfico en una lnea y sigue la instruccin mquina en la lnea
siguiente. Puede ver la ventaja de utilizar con instrucciones; menos cdigo de escritura y rpido. La nica
desventaja de la instruccin with es a veces hace que el cdigo ms difcil de leer, especialmente, si
anidar un con dentro de otra instruccin With.
10. Agregar la siguiente lnea de cdigo a la macro:
11. MySlide.Shapes.Title.TextFrame.TextRange.Text = "Look What I Did!"
este comando agrega el texto "Mire lo ha!" en el cuadro Ttulo de la diapositiva que ha creado.
12. Agregar la siguiente seccin de cdigo a la macro:
13.
With ActivePresentation.Slides.Range.SlideShowTransition
14.
.AdvanceTime = 5
15.
.EntryEffect = ppEffectCheckerboardAcross
16.
End With
Pgina: 6
17. Agregar la ltima lnea de cdigo a la macro:
18. ActivePresentation.SlideShowSettings.Run
este cdigo inicia la presentacin con diapositivas.
El cdigo de macro completa
Sub YourMacro()
'
' Macro created <Date> by <You>
'
Dim MySlide As Slide
' Add a new slide to the presentation.
Set MySlide = ActivePresentation.Slides.Add(1, ppLayoutTitle)
' Change the presentation to slide sorter view.
ActiveWindow.ViewType = ppViewSlideSorter
' Select your slide.
MySlide.Select
' Apply a preset texture to the slide.
With ActiveWindow.Selection.SlideRange
.FollowMasterBackground = msoFalse
.Background.Fill.PresetTextured msoTextureRecycledPaper
End With
' Add text into title of the slide.
MySlide.Shapes.Title.TextFrame.TextRange.Text = "Look What I Did!"
' Set the slide timing and transition effect.
With ActivePresentation.Slides.Range.SlideShowTransition
.AdvanceTime = 5
.EntryEffect = ppEffectCheckerboardAcross
End With
' Start the slide show.
ActivePresentation.SlideShowSettings.Run
End Sub
Pgina: 7
