Errore ChartTitleText

Hai un problema con Excel?

Nuova discussione

Errore .ChartTitle.Text
di ilFonta data: 06/10/2014 17:06:18
Salve a tutti

avevo scritto una macro che mi creava alcuni istogrammi nel Foglio4.

Funzionava tutto fino a quando non ho formattato e scritto in alcune celle in alto.

Da allora ottengo un errore nella riga .ChartTitle.Text = Worksheets("Foglio1").Cells(nomeROI, 2)

La riga serve per dare ai vari grafici i titolo che si trovano nelle celle nel foglio 1 da B3 a B13

Per la precisione l'errore dice: Errore di run-time '-2147024809 (80070057)
Oggetto senza titolo.

Se commento la linea . ChartTitle.Text scompare il messaggio d'errore e tutto fila liscio.

Non capisco perchè nel Foglio 5 faccio lo stesso tipo di grafici utilizzando le stesse istruzioni tali e quali che vi allego e non da nessun problema.

Potete aiutarmi?

Grazie

ActiveSheet.Shapes.AddChart(xlColumnStacked, Left:=x_iniz_graf, Top:=y_iniz_graf, Width:=300, Height:=200).Select
        With ActiveChart
            .HasTitle = True
            .SeriesCollection.NewSeries
            .ChartTitle.Text = Worksheets("Foglio1").Cells(nomeROI, 2)
            .SeriesCollection(1).Select
                With Selection
                    .Name = "=""Freq"""
                    .XValues = Worksheets("Foglio3").Range(Worksheets("Foglio3").Cells(3, 9), Worksheets("Foglio3").Cells(102, 9))
                    .Values = Worksheets("Foglio3").Range(Worksheets("Foglio3").Cells(3, numeroColonna), Worksheets("Foglio3").Cells(102, numeroColonna))
                End With
            .Legend.Delete 'non mette il nome alle serie
            .SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
                Selection.Caption = "Classe"
            .SetElement (msoElementPrimaryValueAxisTitleRotated)
                Selection.Caption = "Freq"
        End With

di lepat (utente non iscritto) data: 07/10/2014 08:24:13
a quanto dici l'errore dipende dalla formattazione delle celle, quindi occorre avere il file per capire

Errore .ChartTitle.Text
di ilFonta data: 07/10/2014 10:57:28
Ciao, grazie per la risposta. La cosa particolare è che devo produrre due serie di grafici quasi uguali in 2 pagine diverse. Le righe che servono a creare i grafici nel foflio5 non danno problemi, mentre quelle nel foglio 4 hanno il problema di ChartTitle. Non capisco, ho provato a fare tutte le modifiche possibili, ma non ho risolto niente.

Ti allego solo una parte del listato perchè molto lungo

Grazie

' -------------------- continuo a sistemare l'intestazione del Foglio4 --------------------
    ' -------------------- faccio grafici istogrammi in lineare --------------------
    
    Sheets("Foglio4").Select
    
    ' elimino le colonne "classi" ridondanti nel Foglio4 per le statistiche descrittive
    elimincol = 3
        
    For i = 1 To numeroROI
        Columns(elimincol).Delete Shift:=xlToLeft
        elimincol = elimincol + 1
    Next i
    
    ' eliminazione due righe superiori
    Rows("1:2").Delete Shift:=xlUp
    
    ' copio la colonna dei nomi delle ROI e la incollo nella intestazione
    Sheets("Foglio1").Select
    Range(Cells(3, 2), Cells((numeroROI + 2), 2)).Copy
    
    Sheets("Foglio4").Select
    Cells(1, 2).PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    
    ' colorare le righe di grigio
    Range(Cells(1, 1), Cells(1, 1 + numeroROI)).Select
        With Selection.Interior
            .Pattern = xlSolid
            .PatternColorIndex = xlAutomatic
            .ThemeColor = xlThemeColorDark1
            .TintAndShade = -0.149998474074526
            .PatternTintAndShade = 0
        End With
        
    ' ridimensiona larghezza colonne
    Columns(1).ColumnWidth = 22
    
    ' posizionamento dei istogrammi, questa sezione mette i grafici in Foglio4
    nomeROI = 3
    numeroColonna = 10
    
    For v = 1 To numeroROI
        
        x = (v - 1) Mod 4
        y = Int((v - 1) / 4)
        
        x_iniz_graf = 100 + x * 300
        y_iniz_graf = 300 + y * 200
        
        ' grafici
        Sheets("Foglio4").Select
        ActiveSheet.Shapes.AddChart(xlColumnStacked, Left:=x_iniz_graf, Top:=y_iniz_graf, Width:=300, Height:=200).Select
        With ActiveChart
            .HasTitle = True
            .SeriesCollection.NewSeries
            '.ChartTitle.Text = Worksheets("Foglio1").Range(Worksheets("Foglio1").Cells(nomeROI, 2))
            .SeriesCollection(1).Select
                With Selection
                    .Name = "=""Freq"""
                    .XValues = Worksheets("Foglio2").Range(Worksheets("Foglio2").Cells(3, 9), Worksheets("Foglio2").Cells(102, 9))
                    .Values = Worksheets("Foglio2").Range(Worksheets("Foglio2").Cells(3, numeroColonna), Worksheets("Foglio2").Cells(102, numeroColonna))
                End With
            .Legend.Delete 'non mette il nome alle serie
            .SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
                Selection.Caption = "Classe"
            .SetElement (msoElementPrimaryValueAxisTitleRotated)
                Selection.Caption = "Freq"
        End With
        
    nomeROI = nomeROI + 1
    numeroColonna = numeroColonna + 1
    Next v

    ' -------------------- faccio grafici istogrammi in dB --------------------

    ' posizionamento dei istogrammi, questa sezione mette i grafici in Foglio5
    
    Sheets("Foglio5").Select
    
    Cells(3, 10).Value = "ISTOGRAMMI IN dB"
    
    nomeROI = 3
    numeroColonna = 10
    
    For v = 1 To numeroROI
        
        x = (v - 1) Mod 4
        y = Int((v - 1) / 4)
        
        x_iniz_graf = 100 + x * 300
        y_iniz_graf = 100 + y * 200
        
        ' grafici
        ActiveSheet.Shapes.AddChart(xlColumnStacked, Left:=x_iniz_graf, Top:=y_iniz_graf, Width:=300, Height:=200).Select
        With ActiveChart
            .HasTitle = True
            .SeriesCollection.NewSeries
            .ChartTitle.Text = Worksheets("Foglio1").Cells(nomeROI, 2)
            .SeriesCollection(1).Select
                With Selection
                    .Name = "=""Freq"""
                    .XValues = Worksheets("Foglio3").Range(Worksheets("Foglio3").Cells(3, 9), Worksheets("Foglio3").Cells(102, 9))
                    .Values = Worksheets("Foglio3").Range(Worksheets("Foglio3").Cells(3, numeroColonna), Worksheets("Foglio3").Cells(102, numeroColonna))
                End With
            .Legend.Delete 'non mette il nome alle serie
            .SetElement (msoElementPrimaryCategoryAxisTitleAdjacentToAxis)
                Selection.Caption = "Classe"
            .SetElement (msoElementPrimaryValueAxisTitleRotated)
                Selection.Caption = "Freq"
        End With
        
    nomeROI = nomeROI + 1
    numeroColonna = numeroColonna + 1
    Next v

di lepat (utente non iscritto) data: 07/10/2014 12:17:57
dal listato come faccio a vedere il formato delle celle ? ha letto bene la mia risposta precedente.

Vuoi Approfondire?