Risultati da 1 a 7 di 7

Discussione: Stampa del grafico



  1. #1
    L'avatar di Ghibly69
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    48
    Messaggi
    64
    Versione Office
    Excel 2010
    Likes ricevuti
    0
    Likes dati
    2

    Stampa del grafico

    Salve a tutti
    ho 12 fogli, uno per ogni mese e per in ogni foglio c'è un pulsante che chiama la macro per stampare il grafico del mese .

    In un altro foglio chiamato "grafici" ho dodici grafici diversi, uno per ogni mese, ogni grafico ha il nome del mese proprio.. Gennaio... Febbraio... Marzo... etc... etc...
    (selezionando il grafico ---> strumenti grafico ---> layout ---> tutto a destra nome grafico)

    Quello che vorrei è che il pulsante inserito nel mese faccia stampare il grafico di appartenenza.

    Questo è quello che ho fatto, ma non funziona.


    Codice: 
    
    Sub stampaGraficoGennaio()
    
    ' stampaGraficoGennaio Macro
      
    Dim Ch As ChartObject
      
        Sheets("grafici").Select
        Ch = ChartObject("Gennaio")
        Ch.PrintOut from:=1, To:=1, Copies:=1
        Sheets("gennaio").Select
        Range("AD10").Select
     
    End Sub

    grazie !

  2. #2
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3207
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155
    Ciao Ghibly69

    Prima un'annotazione:
    questa riga mi sembra errata Ch = ChartObject("Gennaio")
    dopo che l'hai dimensionata devi anche settarla, cioè
    Set Ch = ChartObject("Gennaio")

    Secondo punto:
    se fino ad oggi nessuno ti ha risposto credo che il motivo risieda nel fatto che tu "costringi" chi volesse darti un aiuto a costruirsi lo scenario (12 fogli + 1 con dodici grafici).
    Non credi sarebbe meglio allegare il tuo file (senza dati sensibili, magari inventati) in modo da poterci lavorare sopra?

    Ciao,
    Mario


  3. #3
    L'avatar di Ghibly69
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    48
    Messaggi
    64
    Versione Office
    Excel 2010
    Likes ricevuti
    0
    Likes dati
    2
    Citazione Originariamente Scritto da Marius44 Visualizza Messaggio
    Ciao Ghibly69

    Prima un'annotazione:
    questa riga mi sembra errata Ch = ChartObject("Gennaio")
    dopo che l'hai dimensionata devi anche settarla, cioè
    Set Ch = ChartObject("Gennaio")

    Secondo punto:
    se fino ad oggi nessuno ti ha risposto credo che il motivo risieda nel fatto che tu "costringi" chi volesse darti un aiuto a costruirsi lo scenario (12 fogli + 1 con dodici grafici).
    Non credi sarebbe meglio allegare il tuo file (senza dati sensibili, magari inventati) in modo da poterci lavorare sopra?

    Ciao,
    Mario

    Ciao Mario, grazie della rispostae scusa il ritardo, ma stavo fuori.
    lungi da me il "costringere" qualcuno ma in realtà credevo non servisse, sorry hai perfettamente ragione!
    allego il file, ma per limiti di caricamento ho dovuto cancellare il 90% del lavoro e ho lasciato i primi 3 mesi per fare le prove
    grazie!
    File Allegati File Allegati

  4. #4
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3207
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155
    Ciao Ghibly
    Allego il tuo file (ho dovuto togliere il mese di marzo per alleggerirlo) in cui ho sistemato i titoli dei grafici di Gennaio e Febbraio. Ho aggiustato la magro assegnata al pulsante di gennaio dove ho messo un'anteprima di stampa e uno stop (che puoi togliere). Ho lasciato febbraio come era per farti notare le differenze nella macro.

    Prova e fai sapere. Ciao,
    Mario
    File Allegati File Allegati

  5. #5
    L'avatar di Ghibly69
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    48
    Messaggi
    64
    Versione Office
    Excel 2010
    Likes ricevuti
    0
    Likes dati
    2
    Ciao Mario,
    io ero convinto che il nome del grafico fosse importante e necessario, invece VBA lo legge come numero di appartenenza.
    Codice: 
    Sheets("grafici").ChartObjects(2).Activate
    1= gennaio 2= febbraio 3=marzo ...etc...etc...

    Domanda: questo perchè i 12 grafici sono nel medesimo foglio o è sempre così?

    ottima l'idea del PrintPreview, grazie.

  6. #6
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    73
    Messaggi
    3207
    Versione Office
    Excel2010
    Likes ricevuti
    625
    Likes dati
    155
    Ciao Ghibly
    ma non mi dici la cosa più importante: funziona oppure no! :176:
    Ovviamente scherzo. Ritengo che funzioni.
    Credo, ma non sono certo, che possa funzionare anche coi nomi dei mesi (messi fra i doppi apici) perchè sono in un Foglio (Sheet) e non in Grafico (Chart).
    Avrai notato che se non metti il titolo "nel" grafico non te lo stampa.
    Ciao,
    Mario

  7. #7
    L'avatar di Ghibly69
    Clicca e Apri
    Data Registrazione
    Jan 2016
    Località
    Roma
    Età
    48
    Messaggi
    64
    Versione Office
    Excel 2010
    Likes ricevuti
    0
    Likes dati
    2
    Esatto Mario, funziona anche con il nome assegnato al grafico, e se non dai il titolo no....
    per ora grazie, se trovo altre cose che non mi tornano scrivero un altro post.
    ciao
    Marco

Discussioni Simili

  1. [Risolto] stampa area di stampa di un foglio diverso
    Di ninnago nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 13/04/17, 11:42
  2. [Risolto] Stampa pdf
    Di Chiarpato nel forum Domande su Excel VBA e MACRO
    Risposte: 25
    Ultimo Messaggio: 02/01/17, 13:12
  3. Stampa pdf
    Di sergiogranero nel forum Domande su Excel VBA e MACRO
    Risposte: 14
    Ultimo Messaggio: 04/12/16, 10:36
  4. Anteprima di Stampa e Stampa
    Di Pacifico437 nel forum Domande su Excel VBA e MACRO
    Risposte: 21
    Ultimo Messaggio: 28/06/16, 01:24
  5. stampa grafico
    Di Ghibly69 nel forum Domande su Excel VBA e MACRO
    Risposte: 5
    Ultimo Messaggio: 16/01/16, 21:28

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
  •