Macro para powerpoint.

[Manuel Franco]

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!!!

[Pityon]

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.

[Visor]

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

[Pityon]

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!

[Pityon]

Perdón, no pegué bien la primera parte y quedó sin declarar la variable arch

Aquí va:

Dim xlApp As Excel.Application

Dim arch As New Scripting.FileSystemObject

Dim ruta As String

[Visor]

Disculpa Pityon

Aun no le catch a lo siguiente

  "Pityon dijo:

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

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