Conteggio slide ppt



  • Conteggio slide ppt
    di BonoGiox (utente non iscritto) data: 29/01/2017 19:09:45

    Ciao, sto facendo una macro in ppt e vorrei mettere un controllo che blocchi la macro quando, appena aperto il ppt, ci sia un numero di slides maggiore di quello previsto ( E' una macro che consente, una volta avviata, la duplicazione di alcune slides presenti...Onde evitare che qualcuno la possa far girare quando sono state già duplicate alcune slides, vorrei mettere un controllo).
    Sono un novizio di vba e non saprei come iniziare...Sicuramente un ciclo If , ma non so come "dirgli" di conteggiare tutte le slides all'apertura.
    Grazie .



  • di BonoGiox (utente non iscritto) data: 30/01/2017 19:46:13

    Nobody knows :) ??



  • di mabolsie data: 30/01/2017 21:43:12

    Ciao non ho ppt ma ti ho preparato un esempio in excel vedi se ti va bene . (Allegato File bonogiox.zip)
    Se ok puoi copiarti il codice nel tuo editor


    Ciao Max



  • di alfrimpa data: 30/01/2017 22:10:23

    Ciao BonoGiox e ciao Max

    Esprimo solo un parere personale: ancorché il banner di questo sito rechi tutte le applicazioni di Office il 99,9% delle domande riguarda Excel ed il restante Word o Access.

    Per cui ritengo estremamente difficile trovare qualcuno che non dico sia esperto ma che conosca il VBA di Powepoint; oltretutto (lo so perchè ho anche provato a cercare) in rete si trova assai poco al riguardo.

    L'unica fonte informativa può essere l'help in linea del programma che, però, bisogna studiare.

    Mi auguro vivamente, per te, di essere smentito.

    Alfredo





  • di mabolsie data: 30/01/2017 22:14:51

    Ciao Alfrimpa,
    hai ragione infatti come ho specificato non ho ppt mi sono solo limitato a dare un esempio in vba di excel di come potrebbe essere strutturato il codice.
    E' chiaro che sta a lui dopo adattarlo o riscriverlo in ppt.

    ciao buona serata
    Max



  • di alfrimpa data: 30/01/2017 23:15:49

    Sì certo Max il VBA di base è uguale per tutte le applicazioni Office ma poi ci sono differenze sostanziali in base agli oggetti, proprietà e metodi di ciascun programma.

    Si provi a guardare una routine scritta in VBA di Excel ed una in VBA di Access o di Word: sono quasi completamente diverse.

    Alfredo





  • di mabolsie data: 31/01/2017 12:54:54

    OK grazie.


    Ciao Max



  • di BonoGiox (utente non iscritto) data: 31/01/2017 14:47:24

    Grazie a tutti per l'aiuto datomi. Ho risolto con un codice molto semplice. Lo posto qua sotto sperando che possa essere d'aiuto a qualcuno
     
    Private sub Control
    Dim x As Integer
    x = Application.ActivePresentation.Slides.Count
    If x > 9 Then
    MsgBox "Please clear the template before starting the macro! Macro is now restarting..."
    End
    End If
    End sub



  • di mabolsie data: 31/01/2017 18:30:22

    Ciao BonoGiox sono contento bravo !!!

    @Alfrimpa

    Ciao hai visto che alla fine il mio aiutino a BonoGiox non è stato vano, è bastato per dargli il famoso " LA " per comporre la sua sinfonia ( per uno che non sa la musica.... ).

    Ciao Max



  • di alfrimpa data: 31/01/2017 22:25:53

    Non avevo dubbi che il tuo spunto sarebbe stato risolutivo

    Alfredo





  • di mabolsie data: 31/01/2017 22:28:11



    Ciao Alfredo