XL 2013 réécrire code obtenu via enregistreur macro

[Dudesson]

bonjour le forum,
qlq sait me réécrire proprement ce code svp?
je l'ai obtenu via enregistreur de macro, but = réduire automatiquement taille de police par rapport à la cellule.
ces codes sont trop long et englobent des choses inutiles dont les 'sachant' savent se passer pour obtenir le même résultat.

With plgX
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = True
.ReadingOrder = xlContext
.MergeCells = False
End With

merci d'avance.
Pedro

 

[Staple1600]

Bonjour le fil, Dudesson

A vue de nez, je dirais

With plgX
.ShrinkToFit = True
End With

ou peut-être simplement
plgX.ShrinkToFit = True

 

[Dudesson]

Bonjour le fil, Dudesson

A vue de nez, je dirais

With plgX
.ShrinkToFit = True
End With

ou peut-être simplement
plgX.ShrinkToFit = True

ça marche avec wraptext =false et shrinktofit =true, les autres ne servent à rien.
merci bcp.
Pedro

 

[D.D.]

Bonjour

Au début, quand j'étais novice dans le VBA, j'enlevais la moitié du code et je testais. Si mon résultat disparaissait, c'était que la partie intéressante était dans la moitié que j'avais enlevé. Donc j'enlevais l'autre partie, je rajoutais celle intéressante et à nouveau division en 2.
Jusqu'à trouver uniquement la partie que je voulais.

Bien à toi.