VBA centrer verticalement

Bonjour,

je cherche à centrer une image à la vertical.

Pour l'horizontal pas de soucis, mais à la vertical il faut que je puisse soustraire le menu pour excel 2003 ou le ruban pour excel 2007 et +...

Sauf erreur il s'agît de CommandBar mais CommandBar.height ne marche pas...

With Sheets("Feuil1")
    With .Shapes("img1")
        .Top = (Application.Height - .Height) / 2 ' A modifier
        .Left = (Application.Width - .Width) / 2
    End With
End With

Auriez vous une suggestion ?

Bonjour,

Essaie de voir avec les propriétés UsableHeight et UsableWidth de l'objet Window pour déterminer le centre de ta fenêtre utile et calculer Top et Left de l'image à partir du centre.

Cordialement

Merci, je vais regarder ça de près

Merci

Effectivement ça fonctionne, je n'ai pas trouvé beaucoup d'aide sur cette propriété par contre...

With Sheets("Feuil1")
    With .Shapes("img1")
        .Top = (Application.UsableHeight - .Height) / 2
        .Left = (Application.Width - .Width) / 2
    End With
End With