Jump to content

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


Recommended Posts

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.

Link to comment
Share on other sites

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]

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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]

Link to comment
Share on other sites

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

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

×
×
  • Create New...

Important Information

Privacy Policy