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