Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Déplacer graphique

Sang1

XLDnaute Junior
Bonjour,

Je souhaite déplacer un graphique grace a une macro afin de le placer ou je souhaite sur la page, car je vais avoir beaucoup de graphique sur une meme page ... donc une mise en page s'impose.

Merci d'avance

SANG1
 

ve-

XLDnaute Nouveau
Re : Déplacer graphique

Bonjour Sang1,

Mois aussi je travaille beaucoup sur els macros sur les graphiques.
Donc à mon avis, il faut déjà que tu le nommes :
tu te positionnes dessus et en même temps, tu cliques droit. En haut à gauche de ton écran, tu le renommes (exemple : GRAF1)

Mettons que tu veuilles le pacer dans la cellule B5

Dans ta macro,

Workbooks("xxx.xls").Sheets("xxx").Activate
ActiveSheet.ChartObjects("GRAF1").Activate
ActiveChart.ChartArea.Select
ActiveChart.ChartArea.Copy
Range("b5").Select
ActiveSheet.Paste

Essaie... Tu me diras
 

Catrice

XLDnaute Barbatruc
Re : Déplacer graphique

Bonjour,

Tu peux essayer ceci :

Sub test()
With ActiveSheet.ChartObjects("Graphique 1")
.Left = 100
.Top = 100
End With
End Sub

Mais il faudrait fournir plus d'informations...
 

Discussions similaires

Réponses
9
Affichages
450
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…