IALweb Homepage
Forum Home Forum Home > MS Office > Microsoft Office > Microsoft Power Point
  New Posts New Posts RSS Feed - RISOLTO: Label.Caption automatica in ProwerPoint
  FAQ FAQ  Forum Search   Events   Register Register  Login Login


REGISTRATEVI su IALWeb forum!

RISOLTO: Label.Caption automatica in ProwerPoint

 Post Reply Post Reply
Author
Message
Marius44 View Drop Down
Utente Avanzato
Utente Avanzato
Avatar

Joined: 02/Gen/2017
Location: Catania
Status: Offline
Points: 643
Post Options Post Options   Thanks (0) Thanks(0)   Quote Marius44 Quote  Post ReplyReply Direct Link To This Post Topic: RISOLTO: Label.Caption automatica in ProwerPoint
    Posted: 10/Feb/2017 at 22:29
Buona sera a tutti.
Dopo più di un decennio sto tentando di riprender le fila della programmazioni in PowerPoint e mi sono subito arenato.
In una diapositiva ho una Label in cui voglio far apparire il numero di giorni mancanti alla fine dell'anno ma non mi riesce di farlo all'avvio del programma.
Ho inserito questo codice nell'evento Click della Label (e funziona) 

Private Sub Label1_Click()
mnc = "Alla fine dell'anno mancano  " & Int(#12/31/2017# - Now()) & "  giorni"
Label1.Caption = mnc
End Sub

Come faccio a "trasportare" questo codice in qualcosa di simile, per esempio, a Workbook_Open di Excel?

Grazie anticipate a chi vorrà rispondere. Ciao,
Mario

PS Nel caso non fosse la sezione giusta mi scuso e chiedo al Moderatore di trasferire la discussione. Grazie.
 


Edited by Marius44 - 14/Feb/2017 at 07:08
Back to Top
Sponsored Links


Back to Top
Ricky53 View Drop Down
Amministratore
Amministratore
Avatar
Esperto di Excel e PowerPoint

Joined: 05/Ott/2006
Location: Italy
Status: Offline
Points: 16563
Post Options Post Options   Thanks (0) Thanks(0)   Quote Ricky53 Quote  Post ReplyReply Direct Link To This Post Posted: 10/Feb/2017 at 23:33

Ciao,

sei nella sezione EXCEL.


Sposto in PowerPoint

AMMINISTRATORE

Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione
Back to Top
willy55 View Drop Down
Moderatore
Moderatore
Avatar
Esperto di Access

Joined: 03/Ago/2011
Location: Italy
Status: Offline
Points: 10464
Post Options Post Options   Thanks (0) Thanks(0)   Quote willy55 Quote  Post ReplyReply Direct Link To This Post Posted: 11/Feb/2017 at 20:54
Willy
Back to Top
Marius44 View Drop Down
Utente Avanzato
Utente Avanzato
Avatar

Joined: 02/Gen/2017
Location: Catania
Status: Offline
Points: 643
Post Options Post Options   Thanks (0) Thanks(0)   Quote Marius44 Quote  Post ReplyReply Direct Link To This Post Posted: 12/Feb/2017 at 17:20
Ciao a tutti
un sentito grazie a Willy per le dritte.
Sarò arrugginito ma nessuna delle soluzioni proposte soddisfa la mia richiesta.

Come ho detto, ho una Diapositiva (per semplicità ho messo solo una diapositiva, ma le altre del progetto sono simili o, quanto meno, la label.caption sarà uguale per tutte) in cui vi è una Label la cui Caption deve riportare i giorni mancanti alla fine dell'anno.
Nelle mie prove ho usato questo codice. Label1.Caption=Int(#12/31/2017#-Now()) 
Ovvio che questo calcolo cambia ogni giorno. Ecco, io vorrei che il calcolo venisse fatto immediatamente prima "dell'apertura" della presentazione e, a presentazione aperta, mostrasse il conteggio.

Spero di essere stato chiaro e ringrazio ancora per il tempo che vorrete dedicarmi.
Ciao,
Mario
Back to Top
willy55 View Drop Down
Moderatore
Moderatore
Avatar
Esperto di Access

Joined: 03/Ago/2011
Location: Italy
Status: Offline
Points: 10464
Post Options Post Options   Thanks (0) Thanks(0)   Quote willy55 Quote  Post ReplyReply Direct Link To This Post Posted: 12/Feb/2017 at 21:18

Come detto, puoi stabilire di impostare il calcolo dei giorni mancanti alla apertura della presentazione, in tal caso è sufficiente gestire l'evento (OnPresentationOpen) ed assegnare il dato allo specifico controllo di interesse; un semplice esempio è il seguente:


Option Explicit
' Gestione eventi
Sub OnPresentationOpen(ByVal Pres As Presentation)
    ' MsgBox "OnPresentationOpen: Presentatione " + Pres.Name + " aperta!"
    Dim objPresentaion As Presentation
    Dim objSlide As Slide
    Dim objTextBox As Shape
    Set objPresentaion = ActivePresentation
    Set objSlide = objPresentaion.Slides.Item(1)
    Set objTextBox = objSlide.Shapes.Item(1)
    objTextBox.TextFrame.TextRange.Text = "Alla fine dell'anno mancano  " & Int(#12/31/2017# - Now()) & "  giorni"
End Sub

Per ulteriori approfondimenti vedi:
https://www.experts-exchange.com/questions/28903258/what-vba-event-triggered-when-powerpoint-enters-in-presentation-mode.html
http://officeoneonline.com/eventgen/eventgen.html
http://www.vbaexpress.com/kb/getarticle.php?kb_id=327

Willy
Back to Top
Marius44 View Drop Down
Utente Avanzato
Utente Avanzato
Avatar

Joined: 02/Gen/2017
Location: Catania
Status: Offline
Points: 643
Post Options Post Options   Thanks (0) Thanks(0)   Quote Marius44 Quote  Post ReplyReply Direct Link To This Post Posted: 13/Feb/2017 at 15:46
Ciao a tutti
Un sentito GRAZIE a Willy. Tutto OK!

Ciao,
Mario
Back to Top
willy55 View Drop Down
Moderatore
Moderatore
Avatar
Esperto di Access

Joined: 03/Ago/2011
Location: Italy
Status: Offline
Points: 10464
Post Options Post Options   Thanks (0) Thanks(0)   Quote willy55 Quote  Post ReplyReply Direct Link To This Post Posted: 13/Feb/2017 at 19:02
Se hai concluso positivamente il thread, come previsto dal regolamento del forum, devi porre "risolto" nel titolo come riportato dalle seguenti indicazioni:
http://forum.ialweb.it/forum_posts.asp?TID=16465456&FID=111&PR=3&title=faq-tutorial-con-gif-animate:
Willy
Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 10.17
Copyright ©2001-2013 Web Wiz Ltd.

This page was generated in 0,063 seconds.