Redimensionner graphique sans proportions

[Julien_m]

Bonjour,

J'arrive donc dans ma macro à repositionner mon graphique au centre, le redimensionner cependant cela se fait de manière proportionnelle. Je voudrais donc pouvoir réduire la largeur de mon graphique sans affecter la hauteur.

J'ai essayé ça :

Selection.ShapeRange.ScaleWidth 0.5, msoFalse, msoScaleFromMiddle

Merci par avance,

Julien.

 

[Julien_m]

je débute en vba... j'aimerais bien savoir où incorporer le msoScaleFromMiddle qui fait comme si l'on redimensionnait en appuyant sur ctrl.

 

[Staple1600]

Bonsoir,

J'essaie d'envoyer mon fichier ce soir.

Bah, nous on attends de voir ton fichier (anonymisé bien sur)
Histoire d'avoir une base sur quoi faire des tests VBA

 

[Julien_m]

Yop,

j'explique brièvement : il s'agit d'un graphique représentant les angles entre les réseaux arrivant à la buse et les sorties.

 

[Staple1600]

Re

Pourquoi ne pas directement joindre le fichier dans ta discussion en utilisant le bouton idoine?
[Joindre des fichiers]

 

[Julien_m]

oups pas vu, ni vu ni connu xD

 

[Staple1600]

Re

Alors, un petite suggestion de remaniement syntaxique (avant d'aller au dodo)

Sub Test()
Set f = Sheets("Impression")
Sheets("Calepinage").Shapes(1).Copy
f.Activate
  With f.Cells(Rows.Count, 1).End(xlUp)(2)
  .Select: .Value = 1
  End With
  f.PasteSpecial Format:="Image (métafichier amélioré)"
  With f.Shapes(f.Shapes.Count)
  .IncrementLeft 66: .LockAspectRatio = msoFalse: .Width = 332.9
  End With
Sheets("Calepinage").Range("C2:C5,C10:C11,D9:D11,F9:J11,D13,F13:J13") = Empty
End Sub

Est-ce que déjà cela produit un résultat équivalent à ta macro initiale?

 

[Julien_m]

Salut,

j'ai bien l'impression que oui, merci pour cette simplification. Les boucles with correspondent à quoi ?
Comment devrais-je implémenter le xlDOwn si je souhaite en mettre un à la place du xlUp ?

Merci, bonne après midi.