Discussion :

[ShAk44]

Bonjour,
J'ai besoin de redimensionner un graphique sous Excel en VBA, afin de faire une bonne mise en page lorsque je le colle sous Word mais en enregistrant une macro et en redimensionnant le graphique ca me donne ca :

Code :

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

1
2
3
4
ActiveSheet.Shapes(nomGraph).ScaleWidth 0.48, msoFalse, _
        msoScaleFromTopLeft
ActiveSheet.Shapes(nomGraph).ScaleHeight 0.6, msoFalse, _
        msoScaleFromTopLeft

Le problème est que ces lignes de codes multiplient la hauteur/largeur du graphique par un nombre fixe, or mon graphique n'aura pas toujours la même taille de base selon le client que j'étudie.
Je souhaiterais donc avoir des lignes de codes qui me permettent de fixer la taille du graphique, c'est-à-dire de fixer sa largeur et sa hauter, au lieu de fixer des nombres qui les multiplient...

Merci d'avance pour votre aide.

[SilkyRoad]

bonjour


Un exemple pour adapter la position d'un graphique sur une plage de Cellules A20:G40

Code :

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

1
2
3
4
5
6
7
8
Sub positionGraph()
    With ActiveSheet.ChartObjects(1)
        .Left = Range("A20:G40").Left
        .Top = Range("A20:G40").Top
        .Width = Range("A20:G40").Width
        .Height = Range("A20:G40").Height
    End With
End Sub

michel