bonjour,
encore besoin d'aide
J'ai avec l'enregistreur copier cette macro pour faire une rotation de tous mes graphiques
suivant l'axe Y
Sub Test()
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.PlotArea.Select
'ActiveChart.ChartArea.Select
ActiveSheet.Shapes("Graphique 1").ThreeD.RotationY = 30
End Sub
2 problèmes :
1 elle ne fonctionne pas
2 le numeros des shapes changent en permanence
je souhaiterai faire basculer tous mes graphes de 30° axe Y
avec une boucle type for each par exemple
mais je ne sais comment faire
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
DanielCo
Bonjour.
C'est un peu différent de ce que produit l'enregistreur :
Sub test4() Dim co As ChartObject For Each co In ActiveSheet.ChartObjects co.Chart.Elevation = 30 Next co End Sub
Cordialement. Daniel
bonjour, encore besoin d'aide J'ai avec l'enregistreur copier cette macro pour faire une rotation de tous mes graphiques suivant l'axe Y
Sub Test() ActiveSheet.ChartObjects("Graphique 1").Activate ActiveChart.PlotArea.Select 'ActiveChart.ChartArea.Select ActiveSheet.Shapes("Graphique 1").ThreeD.RotationY = 30 End Sub
2 problèmes : 1 elle ne fonctionne pas 2 le numeros des shapes changent en permanence
je souhaiterai faire basculer tous mes graphes de 30° axe Y avec une boucle type for each par exemple mais je ne sais comment faire
Bonjour.
C'est un peu différent de ce que produit l'enregistreur :
Sub test4()
Dim co As ChartObject
For Each co In ActiveSheet.ChartObjects
co.Chart.Elevation = 30
Next co
End Sub
Cordialement.
Daniel
bonjour,
encore besoin d'aide
J'ai avec l'enregistreur copier cette macro pour faire une rotation de tous
mes graphiques
suivant l'axe Y
Sub Test()
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.PlotArea.Select
'ActiveChart.ChartArea.Select
ActiveSheet.Shapes("Graphique 1").ThreeD.RotationY = 30
End Sub
2 problèmes :
1 elle ne fonctionne pas
2 le numeros des shapes changent en permanence
je souhaiterai faire basculer tous mes graphes de 30° axe Y
avec une boucle type for each par exemple
mais je ne sais comment faire
C'est un peu différent de ce que produit l'enregistreur :
Sub test4() Dim co As ChartObject For Each co In ActiveSheet.ChartObjects co.Chart.Elevation = 30 Next co End Sub
Cordialement. Daniel
bonjour, encore besoin d'aide J'ai avec l'enregistreur copier cette macro pour faire une rotation de tous mes graphiques suivant l'axe Y
Sub Test() ActiveSheet.ChartObjects("Graphique 1").Activate ActiveChart.PlotArea.Select 'ActiveChart.ChartArea.Select ActiveSheet.Shapes("Graphique 1").ThreeD.RotationY = 30 End Sub
2 problèmes : 1 elle ne fonctionne pas 2 le numeros des shapes changent en permanence
je souhaiterai faire basculer tous mes graphes de 30° axe Y avec une boucle type for each par exemple mais je ne sais comment faire
isabelle
bonjour jean-luc,
With ActiveSheet.ChartObjects("Graphique 1").Chart .Elevation = 15 .Perspective = 30 .Rotation = 60 .RightAngleAxes = True .HeightPercent = 100 .AutoScaling = True End With
isabelle
Le 2011-01-03 11:30, jean-luc Guitard a écrit :
bonjour, encore besoin d'aide J'ai avec l'enregistreur copier cette macro pour faire une rotation de tous mes graphiques suivant l'axe Y
Sub Test() ActiveSheet.ChartObjects("Graphique 1").Activate ActiveChart.PlotArea.Select 'ActiveChart.ChartArea.Select ActiveSheet.Shapes("Graphique 1").ThreeD.RotationY = 30 End Sub
2 problèmes : 1 elle ne fonctionne pas 2 le numeros des shapes changent en permanence
je souhaiterai faire basculer tous mes graphes de 30° axe Y avec une boucle type for each par exemple mais je ne sais comment faire
bonjour jean-luc,
With ActiveSheet.ChartObjects("Graphique 1").Chart
.Elevation = 15
.Perspective = 30
.Rotation = 60
.RightAngleAxes = True
.HeightPercent = 100
.AutoScaling = True
End With
isabelle
Le 2011-01-03 11:30, jean-luc Guitard a écrit :
bonjour,
encore besoin d'aide
J'ai avec l'enregistreur copier cette macro pour faire une rotation de
tous mes graphiques
suivant l'axe Y
Sub Test()
ActiveSheet.ChartObjects("Graphique 1").Activate
ActiveChart.PlotArea.Select
'ActiveChart.ChartArea.Select
ActiveSheet.Shapes("Graphique 1").ThreeD.RotationY = 30
End Sub
2 problèmes :
1 elle ne fonctionne pas
2 le numeros des shapes changent en permanence
je souhaiterai faire basculer tous mes graphes de 30° axe Y
avec une boucle type for each par exemple
mais je ne sais comment faire
With ActiveSheet.ChartObjects("Graphique 1").Chart .Elevation = 15 .Perspective = 30 .Rotation = 60 .RightAngleAxes = True .HeightPercent = 100 .AutoScaling = True End With
isabelle
Le 2011-01-03 11:30, jean-luc Guitard a écrit :
bonjour, encore besoin d'aide J'ai avec l'enregistreur copier cette macro pour faire une rotation de tous mes graphiques suivant l'axe Y
Sub Test() ActiveSheet.ChartObjects("Graphique 1").Activate ActiveChart.PlotArea.Select 'ActiveChart.ChartArea.Select ActiveSheet.Shapes("Graphique 1").ThreeD.RotationY = 30 End Sub
2 problèmes : 1 elle ne fonctionne pas 2 le numeros des shapes changent en permanence
je souhaiterai faire basculer tous mes graphes de 30° axe Y avec une boucle type for each par exemple mais je ne sais comment faire
