Macro con ordina e stampa

[ahidai]

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]

Scusate mi sono dimenticato di aggiungere se era possibile aumentare i pixel del file jpg.
Grazie di nuovo.

[Anthony47]

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'.

[ahidai]

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.

[Anthony47]

Il mio suggerimento era molto terra terra:


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

Ciao

[ahidai]

Il mio suggerimento era molto terra terra:


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.

[Anthony47]

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

[ahidai]

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

[Anthony47]

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

[ahidai]

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