Redimensionner graphique sans proportions

J

Julien_m

XLDnaute Junior

• 10 Avril 2019

• #16

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

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Avril 2019

• #17

Bonsoir,

Julien_m à dit:

J'essaie d'envoyer mon fichier ce soir.

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

J

Julien_m

XLDnaute Junior

• 10 Avril 2019

• #18

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.

 

Pièces jointes

• Calepinage_Forum.xlsm

  68.5 KB · Affichages: 7

Dernière édition: 10 Avril 2019

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 10 Avril 2019

• #19

Re

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

 

Vote positif 0 Vote négatif

J

Julien_m

XLDnaute Junior

• 10 Avril 2019

• #20

oups pas vu, ni vu ni connu xD

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 11 Avril 2019

• #21

Re

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

VB:

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?

 

Vote positif 0 Vote négatif

J

Julien_m

XLDnaute Junior

• 11 Avril 2019

• #22

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.

 

Vote positif 0 Vote négatif