Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Position des valeurs sur un graph

Position des valeurs sur un graph

3 réponses
Avatar
Franck
bonjour à tous,

je suis toujours avec mes pbs de génération de graph auto.

Aors voici mon DERNIER pb :o)

ActiveChart.SeriesCollection(1).DataLabels.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Position = xlLabelPositionRight -- le pb est ici je ne peux pas
ramener la valeur par le biais d'une variable genre .Position = ma_pos
avec ma_pos=
xlLabelPositionRight
.Orientation = xlHorizontal
End With


vous avez une petite idée ??


Merci d'avance. :-)

Franck.
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
garnote
Salut Franck,

Essaie ceci :

Sub Étiquettes()
'mapos = xlLabelPositionAbove
mapos = xlLabelPositionBelow
With ActiveSheet.ChartObjects("MonGraphique"). _
Chart.SeriesCollection(1).DataLabels
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.position = mapos
.Orientation = xlHorizontal
End With
End Sub

Serge

"Franck" a écrit dans le message de news:
eSDuue8#
bonjour à tous,

je suis toujours avec mes pbs de génération de graph auto.

Aors voici mon DERNIER pb :o)

ActiveChart.SeriesCollection(1).DataLabels.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Position = xlLabelPositionRight -- le pb est ici je ne peux pas
ramener la valeur par le biais d'une variable genre .Position = ma_pos
avec
ma_pos > xlLabelPositionRight

.Orientation = xlHorizontal
End With


vous avez une petite idée ??


Merci d'avance. :-)

Franck.




Avatar
Franck
ça ça marche mais comme je ramène le parametre a partir d'un string il ne me
prend pas xlLabelPositionBelow comme étant une constante mais un string

dans mon cas mapos = "xlLabelPositionBelow"

tu connais une parade pour éviter ça ?

"garnote" a écrit dans le message news:
9A6%b.78884$
Salut Franck,

Essaie ceci :

Sub Étiquettes()
'mapos = xlLabelPositionAbove
mapos = xlLabelPositionBelow
With ActiveSheet.ChartObjects("MonGraphique"). _
Chart.SeriesCollection(1).DataLabels
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.position = mapos
.Orientation = xlHorizontal
End With
End Sub

Serge

"Franck" a écrit dans le message de news:
eSDuue8#
bonjour à tous,

je suis toujours avec mes pbs de génération de graph auto.

Aors voici mon DERNIER pb :o)

ActiveChart.SeriesCollection(1).DataLabels.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Position = xlLabelPositionRight -- le pb est ici je ne peux
pas


ramener la valeur par le biais d'une variable genre .Position = ma_pos
avec
ma_pos > > xlLabelPositionRight

.Orientation = xlHorizontal
End With


vous avez une petite idée ??


Merci d'avance. :-)

Franck.








Avatar
Frédéric Sigonneau
Bonjour,

Ça devrait passer en déclarant ta variable mapos du type attendu par la
propriété Position :

Sub test()
Dim mapos As XlDataLabelPosition
mapos = xlLabelPositionBelow
MsgBox mapos
End Sub

(non testé)

FS
--
Frédéric Sigonneau [MVP Excel - né un sans-culottide]
Gestions de temps, VBA pour Excel :
http://perso.wanadoo.fr/frederic.sigonneau
Si votre question sur Excel est urgente, évitez ma bal !

Franck a écrit:
ça ça marche mais comme je ramène le parametre a partir d'un string il ne me
prend pas xlLabelPositionBelow comme étant une constante mais un string

dans mon cas mapos = "xlLabelPositionBelow"

tu connais une parade pour éviter ça ?

"garnote" a écrit dans le message news:
9A6%b.78884$

Salut Franck,

Essaie ceci :

Sub Étiquettes()
'mapos = xlLabelPositionAbove
mapos = xlLabelPositionBelow
With ActiveSheet.ChartObjects("MonGraphique"). _
Chart.SeriesCollection(1).DataLabels
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.position = mapos
.Orientation = xlHorizontal
End With
End Sub

Serge

"Franck" a écrit dans le message de news:
eSDuue8#

bonjour à tous,

je suis toujours avec mes pbs de génération de graph auto.

Aors voici mon DERNIER pb :o)

ActiveChart.SeriesCollection(1).DataLabels.Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.ReadingOrder = xlContext
.Position = xlLabelPositionRight -- le pb est ici je ne peux


pas


ramener la valeur par le biais d'une variable genre .Position = ma_pos
avec


ma_pos >>
xlLabelPositionRight
.Orientation = xlHorizontal
End With


vous avez une petite idée ??


Merci d'avance. :-)

Franck.