Risolto Modifica carattere testo ascisse e testo ordinate

Micacaglio

Utente junior
24 Giugno 2018
86
8
Milano
2007
0
Buongiorno,
ho creato una Macro registrandola nella quale modifico i caratteri dell'asse X e dell'asse Y.
Poi ho creato un pulsante che mi "lancia" la macro però mi si blocca dicendo : Errore di run-time '-2147467259(80004005)': Metodo 'TextFrame2' dell'oggetto 'ChartFormat' non riuscito........ perchè ...?
Il codice me lo ha compilato lo stesso excel nella registrazione della macro però me lo blocca se lo faccio rileggere !!!!!!
Qualcuno riesce a delucidarmi ?
Grazie in anticipo a chi risponde.
Allego file.
 

Allegati

Marius44

VBA Expert
Moderatore
Expert
9 Settembre 2015
6.769
115
76
Catania
Excel2010
263
Ciao
Prova a sostituire la tua macro con questa (e associala al pulsante della UserForm)
Visual Basic:
Sub Macro2()
' marius
    Range("A1:C13").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlColumnClustered
    ActiveChart.SetSourceData Source:=Range("Vuoto!$A$1:$C$13")
    ActiveChart.Axes(xlCategory).Select
    With ActiveChart
      .Axes(xlCategory).TickLabels.Font.FontStyle = "Bold"
    End With
    ActiveChart.Axes(xlValue).Select
    With ActiveChart
      .Axes(xlValue).TickLabels.Font.FontStyle = "Bold"
    End With
    Range("E1").Select
End Sub
Talvolta (misteri di Excel-VBA) la macro registrata lanciata di nuovo dà dei problemi.
Ciao,
Mario
 
  • Like
Reactions: Micacaglio

Micacaglio

Utente junior
24 Giugno 2018
86
8
Milano
2007
0
Ho provato e funziona perfettamente. Quindi scrivere così :
Visual Basic:
Selection.Format.TextFrame2.TextRange.Font.Size = 11
equivale a scrivere così:
Visual Basic:
Selection.TickLabels.Font.Size = "11"
il discorso è che le
Visual Basic:
ActiveChart.FullSeriesCollection(1).DataLabels.Select
prendono sia il primo codice che il secondo, mentre le
Visual Basic:
ActiveChart.Axes(xlCategory).Select
prendono solo il secondo codice, anche se il primo lo scrive vba nelle registrazione.....:confusostelle:
Grazie Mario x la delucidazione .... al solito il migliore... e come dici tu .... sarà misteri di Excel-Vba
 

Sostieni ForumExcel

Aiutaci a sostenere le spese e a mantenere online la community attraverso una libera donazione!