Macros para mostrar el numero de semana en un cuadro de texto en power point

[ARPMETAL]

necesito una macros o alguna otra forma para mostrar el numero de semana en un cuadro ya sea de texto o de imagen como sea, pero que se actualice cada vez , si se puede ponerla en todas las diapositivas. espero alguien me pueda ayudar saluods y gracias.

[tese1969]

Buenas,........creo que hay un apartado específico para otras aplicaciones Office (Word, Access, Power Point).......pero este es un apartado de macros para Excel.....

Un saludo,

Tese

[Antoni]

Hola:

Aunque estamos en las macros de Excel, esta macro de PPT te colocará el Nº de Semana en el primer objeto de la primera diapositiva.

Sub Semana()


ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text = DatePart("ww", Date)


End Sub



[/CODE]

[ARPMETAL]

Buenas,........creo que hay un apartado específico para otras aplicaciones Office (Word, Access, Power Point).......pero este es un apartado de macros para Excel.....

Un saludo,

Tese

mm perdon no sabia

- - - - - Mensaje combinado - - - - -

Hola:

Aunque estamos en las macros de Excel, esta macro de PPT te colocará el Nº de Semana en el primer objeto de la primera diapositiva.

Sub Semana()


ActivePresentation.Slides(1).Shapes(1).TextFrame.TextRange.Text = DatePart("ww", Date)


End Sub



[/CODE]

esta muy bien pero me gustaria saber si no se puede poner en todas las diapositivas, pero como en un cuadro aparte, gracias por responder.

[Antoni]

Vaya por delante que no tengo ni idea de PowePoint, por lo que voy contestando es a base de Ayuda PPT y lógica, por lo que seguro que hay formas mas directas de hacer lo que quieres.

Esta macro añade un cuadro en la parte superior derecha con el Nº de Semana a todas las diapositivas de la presentación.

Sub SemanaAuto()

Dim Cuadro As Shape


For s = 1 To ActivePresentation.Slides.Count

   ActivePresentation.Slides(s).Shapes.AddShape Type:=msoShapeRectangle, _

       Left:=500, Top:=10, Width:=150, Height:=50

   Set Cuadro = ActivePresentation.Slides(s).Shapes(ActivePresentation.Slides(s).Shapes.Count)

   Cuadro.TextFrame.TextRange.Text = "Semana " & DatePart("ww", Date)

Next


End Sub



[/CODE]

Esta otra hace lo mismo pero en una diapositiva concreta:

[CODE]
Sub Semana()
Dim Cuadro As Shape, s as Integer

s = 3 '<====== NUMERO DE LA DIAPOSITIVA


ActivePresentation.Slides(s).Shapes.AddShape Type:=msoShapeRectangle, _
Left:=500, Top:=10, Width:=150, Height:=50
Set Cuadro = ActivePresentation.Slides(s).Shapes(ActivePresentation.Slides(s).Shapes.Count)
Cuadro.TextFrame.TextRange.Text = "Semana " & DatePart("ww", Date)


End Sub


[/CODE]

[tese1969]

Realmente, querido Antoni..........todos sabemos que lo que tú realmente controlas son los Power Rangers!!!!.....:witless:.....y no el Power Point.........

En fin, ahí queda dicho.....

Tu querido ******cete....

Tese