Jump to content
Sign in to follow this  
Manuel Franco

Macro para powerpoint.

Recommended Posts

Bueno, antes que nada, buenas tardes... Me presento ante ustedes con una pregunta un poco vergonzosa, me explico:

Eh grabado y programado macros en excel, puesto que lo uso bastante, ahora bien, en mi nuevo trabajo tengo la necesidad de utilizar PowerPoint, por unas presentaciones que tengo que hacer, mi sorpresa a la hora de tratar de grabar una macro, para ver el código y manipularlo, es que no me sale la opción de grabar... Me podrían decir por favor... ¿Como se le hace para grabar una macro en PowerPoint?... Agradezco su amable atención...

Saludos!!!

Share this post


Link to post
Share on other sites

Hola Manuel. No busques la grabadora porque ya no está. La última versión de PowerPoint con grabadora de macros fue la que culminó en 2003. Desde 2007 en adelante solamente hay acceso al editor VB. Cuando necesito automatizar PPT recurro a una vieja versión para usar la grabadora y luego la reproduzco en 2013 o la versión que esté utilizando.

Share this post


Link to post
Share on other sites

Hola Pityon, En buena hora conservas la del 2003, jejeje lo único que hago es buscar algo en la red o revisar en ayuda macros del ppt y voy atando los nudos. Tambien he expuesto aqui en el tema de lo que quiero hacer y algun experto me ha colaborado, excelenteme en pptm, han sido muy amables, pero efectivamente no hay grabadora en la ultima version que tengo

Share this post


Link to post
Share on other sites

Hola Visor, Manuel Franco, y hola a todos aquellos "locos" como yo (que por lo visto y felizmente no soy el único) que nos interesa expandir nuestro accionar con VBA más allá de Excel...Por ejemplo PowerPoint.

A continuación va el resultado de una simple investigación con la grabadora en 2003 para capturar datos de Excel y pegarlos en Placeholders (...marcadores de posición) de una diapositiva de PowerPoint.

Tras la grabación reproduje las líneas en 2013 y habilité la referencia MicrosoftScriptingRuntime para manejar el objeto FileSystemObject.

Bueno, bah... ahí va:

(Las siguientes rutinas van en un módulo común en el editor de VB de PowerPoint.)

Sub importando()

Dim xlApp As Excel.Application

Dim ruta As String

ruta = PowerPoint.ActivePresentation.Path

Set xlApp = CreateObject("Excel.Application")

base = arch.GetFile(arch.GetFolder(ruta) & "\NombreDelArchivoExcel.xlsx")

xlApp.Visible = True

xlApp.Workbooks.Open (base)

Call InsertaDatosEnPPT(xlApp.[registros].Range("C2").Value, 1)

Call InsertaDatosEnPPT(xlApp.[registros].Range("D2").Value, 2)

xlApp.Quit

Set xlApp = Nothing

End Sub

-----------------------------------------------------------------------------------------------

Sub InsertaDatosEnPPT(que As String, donde As Byte)

ActiveWindow.Selection.SlideRange.Shapes(donde).Select

ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Select

ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.Characters(1, 0).Select

ActiveWindow.Selection.TextRange.Text = que

End Sub

Ojalá sea útil!

Share this post


Link to post
Share on other sites

Disculpa Pityon

Aun no le catch a lo siguiente

Placeholders (...marcadores de posición) de una diapositiva de PowerPoint.

no sera mejor que compartas directamente el archivo???, Te agradezco mucho.

Share this post


Link to post
Share on other sites
Sign in to follow this  



  • Si estás experimentando errores al acceder al foro, te recomendamos que modifiques la contraseña desde aquí (haciendo clic en el enlace "¿Olvidaste tu contraseña?").

    Próximamente  habrá mejoras en la web y es necesario cambiar la contraseña para acceder a los nuevos contenidos.

    Disculpa las molestias.

  • Recently Browsing

    No registered users viewing this page.

  • Latest Best Answers

×
×
  • Create New...

Important Information

Privacy Policy