Moderatori: Anthony47, Flash30005
Sub ModScalaGrafico()
ActiveChart.ChartArea.Select
ActiveSheet.ChartObjects("Grafico 1").Activate
ActiveChart.Axes(xlValue).Select
With ActiveChart.Axes(xlValue)
.MinimumScale = 15 '<<<< ValMin
.MaximumScale = 56 '<<<<<<ValMax
.MinorUnitIsAuto = True
.MajorUnitIsAuto = True
.Crosses = xlAutomatic
.ReversePlotOrder = False
.ScaleType = xlLinear
.DisplayUnit = xlNone
End With
End Sub
Sub GraphMin()
On Error Resume Next
Part = Selection.Address
ActiveSheet.ChartObjects("Grafico 1").Activate '<<< Il nome del grafico
With ActiveChart.Axes(xlValue)
.MinimumScale = Application.WorksheetFunction.Subtotal(5, Range("C:C")) '<<< I dati di origine
.MaximumScaleIsAuto = True
End With
Range(Part).Select
End Sub
Torna a Applicazioni Office Windows
Inserimento dati su tabella da codice a barre Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 80 |
Aggiornamento automatico intervallo grafici Autore: wallace&gromit |
Forum: Applicazioni Office Windows Risposte: 3 |
[EXCEL] creazione slot grafici, da lista appuntamenti Autore: marcus69 |
Forum: Applicazioni Office Windows Risposte: 31 |
Problemi grafici con notebook connesso all'alimentazione Autore: gianbarba |
Forum: Assistenza Hardware Risposte: 6 |