Discussion :

[frank26]

Bonjour,


J'ai un code VBA qui lit une base de données Excel classée par "record" et qui utilise ces données pour afficher un graphique en camembert personnalisé pour chaque record.
Seulement voilà ... les étiquettes liées aux portions du camembert changent constament de position en fonction du "record" lu et se superposent parfois (et les leaderlines s'entrecroisent)...

Je ne trouve pas de commande pour faire en sorte que les étiquettes du camembert n'entrent pas en collision et s'ajustent automatiquement ...

Existe-il une solution à ce problème ?
Grand merci pour votre attention

Frank26

[ouskel'n'or]

Tout doit dépendre de la façon dont tu construit ton graphe. Le fais-tu en une seule fois ou ajoutes-tu des éléments par soft ?

[frank26]

Le graphique est construit une fois pour toute et se trouve sur la deuxième sheet excel. Je ne le construis pas par des commandes VBA.

La première sheet est pour la base de données de lecture.

Pour que le camembert soit variable pour chaque record lu dans la DB, je mets à jour le tableau sur lequel se base le camembert (c'est-à-dire des cellules de la feuille excel).

J'ai essayé avec les lignes de commandes suivantes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
With Worksheets(2).ChartObjects(1).Chart.SeriesCollection(1)
    .HasDataLabels = True
    .DataLabels.Position = xlLabelPositionBestFit
    .HasLeaderLines = True
    .LeaderLines.Border.ColorIndex = 5
End With

mais ça ne donne rien, le code échoue sur "LeaderLines.Border.ColorIndex = 5"
...

[LeForestier]

Bonjour,
Je constate (après test) que tu à reproduit exactement la fonction de MSN aide, toutefois, je pense que les constantes tel que xlLabelPositionBestFit
ne font que déterminer - à gauche - a droite - en bas - en haut -a gauche , et qu'elle ne conditionnent en rien la position réelle des labels.
Et je pense aussi, que les positions sont déterminées par Excel et que le seul moyen de les déplacer est en manuel. J'ai déjà eu ce problème et avant de les imprimer je mettait les labels en bonne position. Si le fichier est sauver, ces nouvelles positions sont enrégistrées.
A+

[ouskel'n'or]

Le problème est la modification des données. L'adaptation des étiquettes au graphe modifié ne se fait pas (apparemment) Ce que tenterais, une fois les données mises à jour, c'est supprimer tes étiquettes par soft avant de les remettre. Excel devrait ranger tout ça de manière automatique comme il sait bien le faire manuellement.
A tout hasard...

[LeForestier]

bonsoir,
désolé ouskel'n"or, mais pour une fois je connais bien le problème, l'ayant eu à mainte et mainte reprises, et excel met les 'labels' d'une certaine façons et pas moyen de les changer si ce n'est en manuel. Je n'ai pas trouvé de possibilité de les alignés, et en plus sur quel critères ?
A+