VBA : Centrer un graphique sur une plage de cellules

[Ranipet]

Bonjour,

Je voudrais qu'un grpahique fasse presque la taille d'une plage mais pas tout à fait (question esthétique, je n'aime pas quand le cadre du graph colle pile poil aux bords des cellules).

Actuellement, je fais ça :

    With ActiveSheet.ChartObjects(ActiveSheet.ChartObjects.Count) 'Placement en B3:L23
        .Left = Range("B3:L23").Left
        .Top = Range("B3:L23").Top
        .Width = Range("B3:L23").Width
        .Height = Range("B3:L23").Height
    End With
    With ActiveSheet.Shapes(ActiveSheet.ChartObjects(ActiveSheet.ChartObjects.Count).Name)
        .ScaleWidth 0.98, msoFalse, msoScaleFromTopLeft  'Redimensionnement
        .ScaleHeight 0.98, msoFalse, msoScaleFromTopLeft 'Redimensionnement
        .IncrementTop 4     'Décalage de quelques pixels
        .IncrementLeft 6    'Décalage de quelques pixels
    End With

Merci de me dire s'il y a une solution plus élégante que le .IncrementTop

 

[James007]

Re : VBA : Centrer un graphique sur une plage de cellules

Bonjour,

Dans la mesure où toutes les objets Shapes ont "leur autonomie" ... tu ne peux les gérer que par rapport à l'écran ou à une cellule de référence ...

Ta première élégance est d'avoir composé un code qui fonctionne ...

A +

 

[Ranipet]

Re : VBA : Centrer un graphique sur une plage de cellules

Re,

Dans la mesure où toutes les objets Shapes ont "leur autonomie" ... tu ne peux les gérer que par rapport à l'écran ou à une cellule de référence ...

Donc au lieu de .IncrementTop 4, il n'y a pas de fonction du style .VerticalCenter = Range("B3:L23") ou quelque chose dans l'esprit ?

 

[mromain]

Re : VBA : Centrer un graphique sur une plage de cellules

Bonjour Ranipet, James007,

Voici un essai :

Dim decalage

    decalage = 3
    With ActiveSheet.ChartObjects(ActiveSheet.ChartObjects.Count) 'Placement en B3:L23
        .Left = Range("B3:L23").Left + decalage
        .Top = Range("B3:L23").Top + decalage
        .Width = Range("B3:L23").Width - 2 * decalage
        .Height = Range("B3:L23").Height - 2 * decalage
    End With

a+

 

[James007]

Re : VBA : Centrer un graphique sur une plage de cellules

En tout cas ... pas à ma connaissance ...
Par contre, il existe

.ScaleHeight

qui te permet d'ajuster par rapport à la taille d'origine ...

A +

 

[Ranipet]

Re : VBA : Centrer un graphique sur une plage de cellules

Bonjour Ranipet, James007,

Voici un essai :

Merci c'est déjà nettement plus élégant

En tout cas ... pas à ma connaissance ...
Par contre, il existe

.ScaleHeight

qui te permet d'ajuster par rapport à la taille d'origine ...

Oui (c'est ce que j'utilisais) mais ScaleHeight ne centre pas ensuite