Print Page | Close Window

RISOLTO: Label.Caption automatica in ProwerPoint

Printed From: IALweb
Category: MS Office
Forum Name: Microsoft Power Point
Forum Discription: Temi legati all'utilizzo di Power Point e le presentazioni
URL: https://forum.ialweb.it/forum_posts.asp?TID=16466788
Printed Date: 20/Mar/2019 at 08:31
Software Version: Web Wiz Forums 10.17 - http://www.webwizforums.com


Topic: RISOLTO: Label.Caption automatica in ProwerPoint
Posted By: Marius44
Subject: RISOLTO: Label.Caption automatica in ProwerPoint
Date 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.
 



Replies:
Posted By: Ricky53
Date 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


Posted By: willy55
Date Posted: 11/Feb/2017 at 20:54

L'aggiornamento del dato (attraverso il calcolo dei giorni mancanti) può essere impostato:

- all'apertura della presentazione
http://stackoverflow.com/questions/22964263/vba-powerpoint-auto-run-on-open-and-run-in-the-background" rel="nofollow - http://stackoverflow.com/questions/22964263/vba-powerpoint-auto-run-on-open-and-run-in-the-background
http://www.ozgrid.com/forum/showthread.php?t=45893" rel="nofollow - http://www.ozgrid.com/forum/showthread.php?t=45893
http://stackoverflow.com/questions/11306007/how-to-auto-execute-a-macro-when-opening-a-powerpoint-presentation" rel="nofollow - http://stackoverflow.com/questions/11306007/how-to-auto-execute-a-macro-when-opening-a-powerpoint-presentation
http://stackoverflow.com/questions/31594476/open-a-powerpoint-presentation-from-excel-with-vba-and-then-set-that-presentatio" rel="nofollow - http://stackoverflow.com/questions/31594476/open-a-powerpoint-presentation-from-excel-with-vba-and-then-set-that-presentatio

- in modo periodico
https://answers.microsoft.com/en-us/msoffice/forum/msoffice_powerpoint-mso_other/how-can-i-automatically-update-a-date-value-in-ppt/e052fa96-9579-4a7e-b311-68c5a7cef3d6" rel="nofollow - https://answers.microsoft.com/en-us/msoffice/forum/msoffice_powerpoint-mso_other/how-can-i-automatically-update-a-date-value-in-ppt/e052fa96-9579-4a7e-b311-68c5a7cef3d6

- alla attivazione della slide
https://msdn.microsoft.com/en-us/library/office/ff746034.aspx" rel="nofollow - https://msdn.microsoft.com/en-us/library/office/ff746034.aspx
http://www.vbaexpress.com/forum/showthread.php?14134-Solved-Change-Powerpoint-Textboxes" rel="nofollow - http://www.vbaexpress.com/forum/showthread.php?14134-Solved-Change-Powerpoint-Textboxes

- con un timer
http://www.ozgrid.com/forum/showthread.php?t=182429" rel="nofollow - http://www.ozgrid.com/forum/showthread.php?t=182429
http://www.msofficeforums.com/powerpoint/16308-add-counter-power-point-presentation.html" rel="nofollow - http://www.msofficeforums.com/powerpoint/16308-add-counter-power-point-presentation.html

PS quando alleghi del codice, come previsto dal regolamento del forum,  devi impiegare i tag code, questa volta ho provveduto io.



-------------
Willy


Posted By: Marius44
Date 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


Posted By: willy55
Date 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" rel="nofollow - https://www.experts-exchange.com/questions/28903258/what-vba-event-triggered-when-powerpoint-enters-in-presentation-mode.html
http://officeoneonline.com/eventgen/eventgen.html" rel="nofollow - http://officeoneonline.com/eventgen/eventgen.html
http://www.vbaexpress.com/kb/getarticle.php?kb_id=327" rel="nofollow - http://www.vbaexpress.com/kb/getarticle.php?kb_id=327



-------------
Willy


Posted By: Marius44
Date Posted: 13/Feb/2017 at 15:46
Ciao a tutti
Un sentito GRAZIE a Willy. Tutto OK!

Ciao,
Mario


Posted By: willy55
Date 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" rel="nofollow - http://forum.ialweb.it/forum_posts.asp?TID=16465456&FID=111&PR=3&title=faq-tutorial-con-gif-animate :


-------------
Willy



Print Page | Close Window

Forum Software by Web Wiz Forums® version 10.17 - http://www.webwizforums.com
Copyright ©2001-2013 Web Wiz Ltd. - http://www.webwiz.co.uk