Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Macro con ordina e stampa

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Macro con ordina e stampa

Postdi ahidai » 11/02/11 21:09

Un saluto a tutti, allora avrei necessità con un solo controllo modulo pulsante (attualmente ne uso 2) di far eseguire rispettivamente 2 macro prima con ordina e poi stampa, di seguito c'è il codice che ho usato (quello della stampa in JPG non è farina del mio sacco)
e cortesemente di dare un'occhiata a tutto il codice. Grazie anticipatamente.
Sub Goto_Grafico_Minuti_Giocati()
'
' Ordina_Grafico_Minuti_Giocati Macro
' Macro registrata il 29/01/2011 da ByBov
' Application.ScreenUpdating = False

' ActiveSheet.Visible = False
Sheets("RIEPILOGO STATISTICHE").Visible = True
Sheets("RIEPILOGO STATISTICHE").Select

ActiveWorkbook.Worksheets("RIEPILOGO STATISTICHE").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("RIEPILOGO STATISTICHE").Sort.SortFields.Add Key:= _
Range("D7:D57"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _
:=xlSortNormal
With ActiveWorkbook.Worksheets("RIEPILOGO STATISTICHE").Sort
.SetRange Range("C7:R57")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With

'Sheets("RIEPILOGO STATISTICHE").Visible = False

Sheets("Minuti Giocati").Visible = True
Sheets("Minuti Giocati").Select

Application.ScreenUpdating = True

End Sub


Sub EsportaFileJPG_Minuti_Giocati()

ActiveChart.Export Filename:="c:\Minuti Giocati.jpg", _
FilterName:="jpeg"

End Sub
ahidai
Utente Senior
 
Post: 209
Iscritto il: 08/12/10 17:33

Sponsor
 

Re: Macro con ordina e stampa

Postdi ahidai » 11/02/11 21:22

Scusate mi sono dimenticato di aggiungere se era possibile aumentare i pixel del file jpg.
Grazie di nuovo.
ahidai
Utente Senior
 
Post: 209
Iscritto il: 08/12/10 17:33

Re: Macro con ordina e stampa

Postdi Anthony47 » 11/02/11 23:40

Per aumentare i pixel del jpg devi aumentare la dimensione della chart di partenza.

In quanto a unire le due macro, sulla carta basta inserire l' unica istruzione della seconda macro (le due righe centrali) appena prima di End Sub della macro Goto_Grafico_Minuti_Giocati; pero' forse non ci hai detto quale e' la procedura che segui prima di lanciare la seconda macro…

Ciao

PS: se la macro fa quel che ti serve allora per definizione e' perfetta cosi'.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13894
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro con ordina e stampa

Postdi ahidai » 12/02/11 10:00

Anthony47 ha scritto:Per aumentare i pixel del jpg devi aumentare la dimensione della chart di partenza.

In quanto a unire le due macro, sulla carta basta inserire l' unica istruzione della seconda macro (le due righe centrali) appena prima di End Sub della macro Goto_Grafico_Minuti_Giocati; pero' forse non ci hai detto quale e' la procedura che segui prima di lanciare la seconda macro…

Ciao

PS: se la macro fa quel che ti serve allora per definizione e' perfetta cosi'.


Grazie per le risposte Anthony, si in effetti la macro fa esattamente quello che mi serve. La procedura è che prima ordina i dati e poi li stampa in jpg, avevo già unito le 2 macro come hai detto tu e non andava, l'ho rifatto e adesso va (bho non capisco), cmq per aumentare i pixel non so come si fa ad aumentare la chart di partenza, se gentilmente puoi farmi un esempio.
Grazie infinitamente e buon fine settimana.
ahidai
Utente Senior
 
Post: 209
Iscritto il: 08/12/10 17:33

Re: Macro con ordina e stampa

Postdi Anthony47 » 13/02/11 15:11

Il mio suggerimento era molto terra terra:
Immagine

Uploaded with ImageShack.us
L' immagine di destra creera' piu' pixel di quella di sinistra…

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13894
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro con ordina e stampa

Postdi ahidai » 13/02/11 16:57

Anthony47 ha scritto:Il mio suggerimento era molto terra terra:
Immagine

Uploaded with ImageShack.us
L' immagine di destra creera' piu' pixel di quella di sinistra…

Ciao


Ti ringrazio Anthony, forse mi sono espresso male, anzi sicuramente!!!! Quello che volevo intendere era come si faceva ad aumentare la dimensione della chart di partenza (ActiveChart) per aumentare i pixel del file jpg, siccome sono un neofito in VBA avevo visto in rete che bisognava mettere un valore dopo ActiveChart (1) per aumentare i pixel, ma mi dà errore.
Chiedo gentilmente se si può risolvere…..
Grazie.
ahidai
Utente Senior
 
Post: 209
Iscritto il: 08/12/10 17:33

Re: Macro con ordina e stampa

Postdi Anthony47 » 14/02/11 00:26

Prova a registrare una macro mentre selezioni un grafico e lo ingrandisci; vedrai del codice del tipo
Codice: Seleziona tutto
    ActiveSheet.Shapes("Picture 10").Select
    Selection.ShapeRange.ScaleWidth 1.31, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 1.31, msoFalse, msoScaleFromTopLeft

In questo modo ingrandisci le immagini prima della loro esportazione e le riduci successivamente alla dimensione originale usando un coefficiente pari a 1/l' ingrandimento /1/1.31, nell' esempio di sopra).

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13894
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro con ordina e stampa

Postdi ahidai » 14/02/11 11:33

Anthony47 ha scritto:Prova a registrare una macro mentre selezioni un grafico e lo ingrandisci; vedrai del codice del tipo
Codice: Seleziona tutto
    ActiveSheet.Shapes("Picture 10").Select
    Selection.ShapeRange.ScaleWidth 1.31, msoFalse, msoScaleFromTopLeft
    Selection.ShapeRange.ScaleHeight 1.31, msoFalse, msoScaleFromTopLeft

In questo modo ingrandisci le immagini prima della loro esportazione e le riduci successivamente alla dimensione originale usando un coefficiente pari a 1/l' ingrandimento /1/1.31, nell' esempio di sopra).

Ciao


Ciao e ancora grazie per la tua disponibilità Anthony, comunque ho messo il codice sia prima che dopo ActiveChart.Export Filename:="C:\STATISTICHE\Minuti Giocati.jpg", FilterName:="jpg" e non va, mi da questo errore ERRORE DI SISTEMA &H80070057 (-2147024809). PARAMETRO NON CORRETTO.
Ti ringrazio anticipatamente e buona giornata



Codice: Seleziona tutto
Sub Goto_Grafico_Minuti_Giocati()
'
' Ordina_Grafico_Minuti_Giocati Macro
' Macro registrata il 29/01/2011 da ByBov
'
' Scelta rapida da tastiera:
'
 '   Application.ScreenUpdating = False
   
   ' ActiveSheet.Visible = False
    Sheets("RIEPILOGO STATISTICHE").Visible = True
    Sheets("RIEPILOGO STATISTICHE").Select
   
    ActiveWorkbook.Worksheets("RIEPILOGO STATISTICHE").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("RIEPILOGO STATISTICHE").Sort.SortFields.Add Key:= _
        Range("D7:D57"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption _
        :=xlSortNormal
    With ActiveWorkbook.Worksheets("RIEPILOGO STATISTICHE").Sort
        .SetRange Range("C7:R57")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

    'Sheets("RIEPILOGO STATISTICHE").Visible = False

    Sheets("Minuti Giocati").Visible = True
    Sheets("Minuti Giocati").Select

    Application.ScreenUpdating = True

ActiveSheet.Shapes("Picture 10").Select
Selection.ShapeRange.ScaleWidth 1.31, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ScaleHeight 1.31, msoFalse, msoScaleFromTopLeft

ActiveChart.Export Filename:="C:\STATISTICHE\Minuti Giocati.jpg", _
FilterName:="jpg"

End Sub
ahidai
Utente Senior
 
Post: 209
Iscritto il: 08/12/10 17:33

Re: Macro con ordina e stampa

Postdi Anthony47 » 14/02/11 16:06

Premesso che non si capisce dalla tua macro chi attiva quale grafico, io ti avevo suggerito di "registrare" una macro per ottenere il codice corretto; quello pubblicato da me era un esempio ottenuto su un mio foglio di lavoro. Quindi:
-avvia il registratore di macro (Menu /Strumenti /Macro /Registra nuova macro)
-seleziona il tuo grafico e ingrandiscilo
-ferma il registratore di macro (Menu /Strumenti /Macro /Interrompi Registrazione)
-Alt-F8, seleziona dall' elenco la macro che hai appena registrata, premi Modifica
Potrai cosi' vedere quale codice e' stato prodotto e lo inserirai nella tua macro, prima della ActiveChart.Export

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13894
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro con ordina e stampa

Postdi ahidai » 14/02/11 21:39

Anthony47 ha scritto:Premesso che non si capisce dalla tua macro chi attiva quale grafico, io ti avevo suggerito di "registrare" una macro per ottenere il codice corretto; quello pubblicato da me era un esempio ottenuto su un mio foglio di lavoro. Quindi:
-avvia il registratore di macro (Menu /Strumenti /Macro /Registra nuova macro)
-seleziona il tuo grafico e ingrandiscilo
-ferma il registratore di macro (Menu /Strumenti /Macro /Interrompi Registrazione)
-Alt-F8, seleziona dall' elenco la macro che hai appena registrata, premi Modifica
Potrai cosi' vedere quale codice e' stato prodotto e lo inserirai nella tua macro, prima della ActiveChart.Export

Ciao


Ho risolto grazie alle tue spiegazioni Anthony47 e scusami se non avevo capito.... Un saluto a te e a tutti del forum
ahidai
Utente Senior
 
Post: 209
Iscritto il: 08/12/10 17:33


Torna a Applicazioni Office Windows


Topic correlati a "Macro con ordina e stampa":


Chi c’è in linea

Visitano il forum: wallace&gromit e 31 ospiti