Existe-t-il un moyen de réparer un zoom en cliquant sur une forme. Je suis décent avec excel, mais je n'ai aucun code à afficher.
Aidez-moi, merci 🙂
Vous pouvez utiliser quelque chose comme ça pour zoomer et décaler:
Sub zoom_shift() Dim SHP As Shape Set SHP = ActiveSheet.Shapes(1) Dim siLeft As Single Dim siTop As Single siLeft = SHP.Left siTop = SHP.Top ActiveWindow.Zoom = 200 Application.Goto SHP.TopLeftCell, True End Sub
Cependant, vous pouvez avoir besoin d'un ajustement selon vos besoins.