formattazione serie grafico pivot

Hai un problema con Excel?

Nuova discussione

formattazione serie grafico pivot
di elle.emme (utente non iscritto) data: 26/04/2013 17:10:23
Salve a tutti

sono giorni che provo a formattare le serie di un grafico pivot a linee con lo stile smooth, curvilineo, con il codice che riporto sotto.
Funziona fino a che non filtro il campo legenda, cioè il filtro che nella pivot si trova sulle colonne.
Perchè non riesco a fissare lo stile con il codice che uso io? Potete aiutarmi?

Grazie davvero

Ciao
ActiveSheet.ChartObjects("Grafico 1").Activate i = 1 For Z = 1 To 25 ActiveChart.SeriesCollection(i).Select ActiveChart.SeriesCollection(i).Smooth = True i = i + 1 Next
di Vecchio Frac data: 27/04/2013 20:20:41
Riesci ad allegare un file funzionante fino alla tua ultima modifica?

di elle.emme (utente non iscritto) data: 28/04/2013 21:29:34
ti scrivo l'intero codice. Non riesco ad allegare il file.

Ila tabella pivot si alimenta da una tabella a dieci colonne e moltissime righe che si trova nel foglio tdb30516.
il grafico si forma nel foglio GRAFICO.

grazie

Sub Macro1()
'
' Macro1 Macro
'

'
    Sheets("GRAFICO").Select
    
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "tdb30516!R1C1:R125849C10", Version:=xlPivotTableVersion12).CreatePivotTable _
        TableDestination:="GRAFICO!R3C1", TableName:="Tabella_pivot1", _
        DefaultVersion:=xlPivotTableVersion12
    Sheets("GRAFICO").Select
    Cells(3, 1).Select
    With ActiveSheet.PivotTables("Tabella_pivot1").PivotFields("ENTE SEGNALANTE")
        .Orientation = xlPageField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Tabella_pivot1").PivotFields("VOCE")
        .Orientation = xlPageField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Tabella_pivot1").PivotFields("AREA GEOGRAFICA")
        .Orientation = xlColumnField
        .Position = 1
    End With
  
    With ActiveSheet.PivotTables("Tabella_pivot1").PivotFields("SETTORE")
        .Orientation = xlPageField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Tabella_pivot1").PivotFields("CLASSE")
        .Orientation = xlPageField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Tabella_pivot1").PivotFields("DATA")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tabella_pivot1").AddDataField ActiveSheet.PivotTables( _
        "Tabella_pivot1").PivotFields("VALORE"), "Somma di VALORE", xlSum
    Range("E10").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("'GRAFICO'!$A$6:$AB$76")
    ActiveWorkbook.ShowPivotChartActiveFields = True
    ActiveChart.ChartType = xlLine
 ActiveSheet.ChartObjects("Grafico 1").Activate
    ActiveChart.SetElement (msoElementChartTitleAboveChart)
    ActiveSheet.ChartObjects("Grafico 1").Activate
    ActiveChart.ChartTitle.Text = _
  "Tassi di decadimento (importi) in scala percentuale"



ActiveSheet.ChartObjects("Grafico 1").Activate

i = 1

For Z = 1 To 25

    ActiveChart.SeriesCollection(i).Select

    ActiveChart.SeriesCollection(i).Smooth = False

    
    i = i + 1
    
Next
 

End Sub

Vuoi Approfondire?