erreur VBA (graphique TCD)

[C@thy]

Bonsouar,

Sur les graphiques de mes tableaux croisés dynamiques
sur cette instruction :

With Sheets("interactions").ChartObjects(1).Chart
.SeriesCollection(1).DataLabels.Position = xlLabelPositionOutsideEnd
End With

j'ai le message d'erreur suivant :
Erreur 1004 (erreur définie par l'application ou par l'objet)

alors que ceci :

With Sheets("interactions").ChartObjects(1).Chart
.ApplyDataLabels xlDataLabelsShowValue

fonctionne très bien.

Du coup mes étiquettes se retrouvent tout en haut du graphe (au-dessus de la zone de traçage),
et la 1ère est masquée par un bouton de champ.
(j'ai essayé de masquer les boutons, mais j'en ai besoin...)

Merci pour votre aide.

code complet :
With Sheets("interactions").ChartObjects(1).Chart
.ApplyDataLabels xlDataLabelsShowValue
For p = 1 To .SeriesCollection(1).Points.Count
With .SeriesCollection(1).Points(p)
.DataLabel.Top = Sheets("interactions").ChartObjects(1).Chart.PlotArea.Top + 6
End With
Next p
.SeriesCollection(1).DataLabels.Position = xlLabelPositionOutsideEnd
End With

Bises

C@thy

 

[Catrice]

Re : erreur VBA (graphique TCD)

Bonsoir,

Personnellement, avec ce code, je ne reproduis pas le plantage.
Il faudrait fournir un fichier.

 

[C@thy]

Re : erreur VBA (graphique TCD)

J'ai créé un mini fichier démo, voici l'objet du délit.

Mille mercis

Bibises

C@thy

Edit : il suffit de remplacer la 1ère par
With Sheets("Feuil1").ChartObjects(1).Chart
le plantage se produit alors là où j'ai indiqué.

 

[Catrice]

Re : erreur VBA (graphique TCD)

Bonsoir,

Apres avoir testé ton fichier, j'en conclus que dans cette configuration histogramme, tu n'as le droit d'utiliser que ces 3 positions :

xlLabelPositionInsideBase
xlLabelPositionCenter
xlLabelPositionInsideEnd

Voir le menu Format étiquettes de données.

Effectivement, c'est bizarre par défaut il les place dans une 4eme position dans laquelle on ne peut pas revenir ...

 

[C@thy]

Re : erreur VBA (graphique TCD)

Oui, je n'ai pas fait attention en faisant mon graphique TCD, et je me suis retrouvée avec un graphe empilé. Dans cette configuration, c'est évident qu'il ne peut pas mettre les étiquettes au-dessus des barres.

P.S. je suis en 2003

Bisous et bonne journée

C@thy