Spessore linee grafici

Question

Salve a tutti vorrei sapere come faccio a rendere molto più sottili le linee di un grafico. Ho dei grafici con 255 linee ciascuno più o meno. Grazie mille!

Answer 1

Ciao Iole,

Ciao saresti così gentile da spiegarmi come si fa? Grazie mille

Prova qualcosa del genere:

'=========>>

Option Explicit

'--------->>

Public Sub Tester()

    Dim WB As Workbook

    Dim SH As Worksheet

    Dim oChartobj As ChartObject

    Dim iSeries As Long

    Const sFoglio As String = "Foglio1"                                    '<<=== Modifica

    Const sNomeGrafico As String = "Chart 1"                         '<<=== Modifica

    Const dSpessoreLinea As Double = 0.5                              '<<=== Modifica

    Set WB = ThisWorkbook

    Set SH = WB.Sheets(sFoglio)

    Set oChartobj = SH.ChartObjects(sNomeGrafico)

    On Error GoTo XIT

    Application.ScreenUpdating = False

    With oChartobj.Chart

        For iSeries = 1 To .SeriesCollection.Count

              .SeriesCollection(iSeries).Format.Line.Weight = dSpessoreLinea 

        Next iSeries

    End With

XIT:

    Application.ScreenUpdating = True

End Sub

'<<=========

Potresti scaricare il mio file di prova Iole20170512.xlsm 

===

Regards,

Norman

Answer 2

Ciao saresti così gentile da spiegarmi come si fa? Grazie mille

Answer 3

Ciao Iole,

Salve a tutti vorrei sapere come faccio a rendere molto più sottili le linee di un grafico. Ho dei grafici con 255 linee ciascuno più o meno. 

Mi sorprenderebbe moltissimo se tu fossi riuscito a creare un grafico con più di 255  ([2^8] -1) serie in quanto credo sia un limite assoluto.

Ad ogni modo, credo che, al massimo, potresti impostare lo spessore minimo ad ogni serie. Dato il numero di serie, se ti fosse utile, potrei postare una semplice procedura VBA per impostare lo spessore minimo ad ogni serie.

===

Regards,

Norman