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.

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

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]

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.

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]

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