VBA ajout du titre du graphique

Je veux simplement ajouter un titre au tableau à mon tableau à l'aide de vba. Je veux le faire de manière récursive pour chaque graphique dans chaque feuille, mais je ne peux même pas avoir 1 tableau de travail. Voici le code que j'ai:

Dim chnam
chnam = Left(ActiveSheet.Name, (Len(ActiveSheet.Name) - 9))
With ActiveWorkbook.ActiveSheet.ActiveChart
    .HasTitle = True
    .ChartTitle = chnam
End With

Voici ma carte:

Lorsque j'exécute mon code, j'obtiens:

Object does not support this property or method

Désolé, j'ai oublié de mentionner. Je suis à l'aide d'Excel 2007

InformationsquelleAutor user1681664 | 2015-04-13

4

Essayez ceci:
```
Dim chnam as string
chnam = Left(ActiveSheet.Name, (Len(ActiveSheet.Name) - 9))
With ActiveWorkbook.ActiveSheet.ActiveChart
    .HasTitle = True
    .ChartTitle.Select
    .ChartTitle.Text = chnam
End With
```
- Merci, mais cela ne fonctionne pas 🙁
- Édité ma réponse, s'il vous plaît essayer le nouveau code. S'il échoue à nouveau s'il vous plaît exécuter en mode de débogage et de me dire de quelle ligne est un échec.
- Le graphique est actif lorsque vous faites ce oui?
- Par actif si vous voulez dire que le tableau est déjà là, alors oui, il est actif. Aussi, je l'ai exécuté en mode debug et il échoue dans la déclaration. Quand j'ai essayé arcadecomputing du code, il manque à la .HasTitle = True
- Par actif, je veux dire, est-il l'objet actif à-dire comme si vous avez cliqué dessus, l'exécution de votre code, ligne par ligne, en appuyant sur F8 et juste avant l'instruction cliquez sur le graphique, puis de continuer le code et le message de retour avec les résultats
- J'ai aussi essayé d'exécuter ce code dans un tout nouveau et classeur distinct pour vous assurer de mon code n'était pas interférer et le même problème est présent
- Il a fait un travail après que j'ai cliqué sur elle! Merci!!!!
- Cool, vous avez juste besoin de le sélectionner avec le code maintenant, assez facile si vous connaissez le nom de l'objet graphique, post en arrière si vous êtes coincé
- Nope, tout fonctionne bien. J'ai eu la boucle va et c'est parfait. Merci
- Pour info, le ".ChartTitle.Sélectionnez" est superflu
- Raccourcir ActiveWorkbook.ActiveSheet.ActiveChart à ActiveChart.
- ... ou utiliser " ActiveSheet.ChartObjects(1).Graphique`.
InformationsquelleAutor Dan Donoghue
0

Essayez de modifier le code de cette:
```
Dim chnam As String

chnam = Left(ActiveSheet.Name, (Len(ActiveSheet.Name) - 9))

With ActiveWorkbook.ActiveChart
    .HasTitle = True
    .ChartTitle.Select
    .ChartTitle.Text = chnam
End With
```
...qui va travailler pour le graphique, puis ajouter un For Each... si vous voulez appliquer à toutes les cartes dans toutes les feuilles dans le activeworkbook.
- il échoue dans la .HasTitle = True
InformationsquelleAutor arcadecomputing
0

J'ai eu le même problème et impossible de trouver la réponse - mais j'ai trouvé quelque chose qui fonctionne. Ce que je veux dire par là c'est que je ne sais pas pourquoi cela fonctionne, mais il n'.

Essayer ce - que travaillé pour moi.:
```
With ActiveWorkbook.ActiveChart
.HasTitle = False // added line - not sure why it works!
.HasTitle = True
.ChartTitle.Text = "Chart Title"
End With
```
Espère que ça aide.
- Changement ActiveWorkbook.ActiveChart à ActiveChart.
InformationsquelleAutor Guest

Ci-dessus a échoué pour moi dans le Bureau de 2016. J'ai dû utiliser la Feuille de calcul.Les formes de l'objet.

Debug.Assert ActiveWorkbook.Charts.Count = 0 ' Strange, but true
ActiveSheet.Shapes(1).Chart.ChartTitle.Text = chnam

La sous-routine suivante fonctionne pour moi.

' Set title of chart with given name on given worksheet
Private Sub RetitleChart(sheetExport As Worksheet, strChartName As String, strChartTitle As String)
  Dim chartOverview As Chart

  Set chartOverview = sheetExport.Shapes(strChartName).Chart
  chartOverview.ChartTitle.Text = strChartTitle
  Set chartOverview = Nothing
End Sub

ActiveWorkbook.Charts compte le tableau de feuilles dans le classeur, et ignore les objets du graphique incorporé dans des feuilles dans le classeur.
Votre code doit être ActiveSheet.ChartObjects(1).Chart.ChartTitle.Text = chnam mais il échouera à moins que le tableau a déjà un titre.

InformationsquelleAutor Alan M Robertson

0

Une autre méthode pour définir un Graphique du texte du Titre est d'utiliser la méthode ChartWizard, donc:
```
Dim chnam as string
chnam = Left(ActiveSheet.Name, (Len(ActiveSheet.Name) - 9))
ActiveWorkbook.ActiveSheet.ActiveChart.ChartWizard Title:=chnam
```
Il est intéressant de vous familiariser avec la documentation de cette méthode:

https://msdn.microsoft.com/en-us/library/office/ff838804.aspx

et ceux du Tableau lui-même:

https://msdn.microsoft.com/en-us/library/office/ff837379.aspx

(Qui a un lien vers la documentation pour la ChartTitle objet).

InformationsquelleAutor Steve Siller
0

J'ai eu le même problème sur ma machine actuelle, Excel en 2017, alors que je n'avais pas eu ça il y a 6 mois; vu le code de
```
pchrTheChart.HasTitle = True
pchrTheChart.ChartTitle.Select
```
serait se tromper sur la deuxième ligne; si j'ai inséré un point d'arrêt puis reprise sans changement, il a bien fonctionné.

Mais, variante sur une solution au-dessus de travaillé; bien que le graphique a été créé et a commencé sans un titre, j'ai explicitement à son tour le titre éteint avant de l'allumer et maintenant il fonctionne sans problèmes à chaque fois.
```
pchrTheChart.HasTitle = False
pchrTheChart.HasTitle = True
pchrTheChart.ChartTitle.Select
```
Affiche originale a dit ne pas savoir pourquoi il a travaillé; réponse, pour moi, il semble que nous travaillons autour d'un VBA bug, j'imagine quelque chose à voir avec la gestion des valeurs null.

InformationsquelleAutor Thomas Rowan

Vous devez vous connecter pour publier un commentaire.