Risultati da 1 a 8 di 8

Discussione: Zoom automatico all'apertura di Excel



  1. #1
    L'avatar di mirko.esposito
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Milano
    Messaggi
    59
    Versione Office
    2016 MAC
    Likes ricevuti
    3
    Likes dati
    2

    Question Zoom automatico all'apertura di Excel

    Ciao ragazzi! Ho un piccolo problemino che probabilmente per voi è banale.
    Vorrei che all'apertura di un file excel, ogni sheet sia impostato su un livello di zoom impostato.

    Il codice grezzo che ho ideato è questo ma non va perche sheets.zoom non è accettato da vba

    Codice: 
    Private Sub Workbook_open()
    Sheets("Home").Select
    ActiveSheet.Range("$A$1").Select
    Sheets("2.Libro del lavoro").ZOOM = 82
    End Sub
    E così per ogni sheet con un livello di zoom preciso.

    Grazie in anticipo per l'aiuto!
    Ultima modifica fatta da:cromagno; 25/06/16 alle 16:14 Motivo: Inserito codice tra i tag CODE...

  2. #2

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7149
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2064
    Likes dati
    1300

    Re: Zoom automatico all'apertura di Excel

    Ciao
    prova a cambiarlo così:

    Codice: 
    Private Sub Workbook_open()
    Sheets("2.Libro del lavoro").select
    ActiveWindow.Zoom = 82
    End Sub
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  3. #3
    L'avatar di dracoscrigno
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    ferrara
    Età
    41
    Messaggi
    2074
    Versione Office
    office pro 2010
    Likes ricevuti
    440
    Likes dati
    241

    Re: Zoom automatico all'apertura di Excel

    l aproprietà Zoom, non fa parte della worksheet (non è un aproprietà dei fogli) ma ActiveWindow, (della finestra attiva)
    Codice: 
    Activewindows.Zoom
    Quindi, oltre ad attivare il foglio prestabilito, devi anche rivolgerti ad esso con un altra classe.

    Codice: 
    Private Sub Workbook_open()
        Sheets("Home").Select         'Selezioni il foglio
        ActiveWindow.Zoom = 82       'Di conseguenza diventa il foglio in evidenza nella finestra attiva
        ActiveSheet.Range("$A$1").Select    'Quest istruzione non importa ai fini dello zoom
    End Sub

    Per aver la STESSA procedura, REITERATA più volte per TUTTI i fogli disponibili nel tuo progetto Puoi utilizzare l' istruzione
    Codice: 
    FOR EACH elemento IN elementi
    
    NEXT
    Per ogni elemento contenuto nel gruppo di elementi, fai una determinata cosa:


    Codice: 
    Private Sub Workbook_open()    Dim UnFoglio As Worksheet
        For Each UnFoglio In ThisWorkbook.Worksheets
            UnFoglio.Select         'Selezioni il foglio
            ActiveWindow.Zoom = 82       'Di conseguenza diventa il foglio in evidenza nella finestra attiva
            ActiveSheet.Range("$A$1").Select    'Quest istruzione non importa ai fini dello zoom
        Next
    End Sub

    Rieditando Ciao Ges :P
    Arrivo sempre in ritardo per colpa dei fronzoli :D :D :D
    Ultima modifica fatta da:dracoscrigno; 25/06/16 alle 15:57 Motivo: saluti a Ges

  4. I seguenti utenti hanno dato un "Like"


  5. #4
    L'avatar di mirko.esposito
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Milano
    Messaggi
    59
    Versione Office
    2016 MAC
    Likes ricevuti
    3
    Likes dati
    2

    Re: Zoom automatico all'apertura di Excel

    Ciao, grazie per la risposta ma io vorrei che svolgesse il processo in background perche il foglio da visualizzare all'apertura è il primo.

    Citazione Originariamente Scritto da ges Visualizza Messaggio
    Ciao
    prova a cambiarlo così:

    Codice: 
    Private Sub Workbook_open()
    Sheets("2.Libro del lavoro").select
    ActiveWindow.Zoom = 82
    End Sub

  6. #5
    L'avatar di dracoscrigno
    Clicca e Apri
    Data Registrazione
    May 2016
    Località
    ferrara
    Età
    41
    Messaggi
    2074
    Versione Office
    office pro 2010
    Likes ricevuti
    440
    Likes dati
    241

    Re: Zoom automatico all'apertura di Excel

    Citazione Originariamente Scritto da mirko.esposito Visualizza Messaggio
    Ciao, grazie per la risposta ma io vorrei che svolgesse il processo in background perche il foglio da visualizzare all'apertura è il primo.
    Perdonami l' intervento che, all' apparenza sembrerebbe sgarbato:
    Non volere tutto, tutto in una volta e subito ;)
    Il computer fa una cosa alla volta ed un problema alla volta tu devi sottoporgli ;)

    Alla fine del processo che ti ha consigliato Ges, Il PC non è esploso ed il mondo non è finito :D :D :D
    Puoi aggiungere una ulteriore istruzione affinchè il primo foglio attivo quando apri il file sia quello che tu meglio credi.

    Le istruzioni per farlo sono gia contenute nei vari suggerimenti di questo topic Devi solo aggiungere l' istruzione alla fine ;)

  7. #6

    L'avatar di ges
    Clicca e Apri
    Data Registrazione
    Jun 2015
    Località
    Como
    Età
    53
    Messaggi
    7149
    Versione Office
    2011MAC 2016WIN
    Likes ricevuti
    2064
    Likes dati
    1300

    Re: Zoom automatico all'apertura di Excel

    @Mirko: Ti ha già chiarito sopra Dracoscrigno, che saluto.
    Quando si scartano tutte le ipotesi possibili, quella che resta, anche se può sembrare improbabile, non può che essere quella giusta!

  8. #7
    L'avatar di A.Maurizio
    Clicca e Apri
    Data Registrazione
    Aug 2015
    Località
    Torino
    Età
    56
    Messaggi
    383
    Versione Office
    2013
    Likes ricevuti
    44
    Likes dati
    0

    Re: Zoom automatico all'apertura di Excel

    Ciao Mirko prova a guardare sè il mio progetto potrebbe piacerti ciao
    File Allegati File Allegati

  9. #8
    L'avatar di mirko.esposito
    Clicca e Apri
    Data Registrazione
    Apr 2016
    Località
    Milano
    Messaggi
    59
    Versione Office
    2016 MAC
    Likes ricevuti
    3
    Likes dati
    2

    Re: Zoom automatico all'apertura di Excel

    Grazie mille a tutti, ho provato la soluzione proposta da dracoscrigno che ringrazio. Adesso Proverò il progetto di A.Maurizio.

    Grazie ancora a tutti.

Discussioni Simili

  1. Problema con apertura di excel file
    Di lies843 nel forum Domande su Excel in generale
    Risposte: 7
    Ultimo Messaggio: 16/12/16, 03:47
  2. Risposte: 13
    Ultimo Messaggio: 04/11/16, 12:11
  3. Rallentamento apertura Excel
    Di Alessandro nel forum Domande su Excel in generale
    Risposte: 0
    Ultimo Messaggio: 09/02/16, 11:21
  4. Errore all'apertura Excel 2010
    Di zio_tom nel forum Domande su Excel in generale
    Risposte: 2
    Ultimo Messaggio: 05/11/15, 16:50
  5. ricerca apertura file excel
    Di Stefano nel forum Domande su Excel in generale
    Risposte: 4
    Ultimo Messaggio: 03/11/15, 22:40

Tag per Questa Discussione

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •