XL 2016 VBA Centrer un Shape dans l'ActiveWindow

[Dudu2]

Bonjour,

J'y perds mon latin et mon VBA.
Je n'arrive pas à centrer une Shape dans l'ActiveWindow. Je n'y comprends rien !

 

[Dudu2]

C'est toujours après avoir posté une question qu'on trouve la réponse !
Les Shapes sont positionnées par rapport à l'ActiveWindow.VisibleRange !!!

 

[patricktoulon]

Bonjour @Dudu2
ceci fonctionne aussi et c'est même plus précis

  'Centrer la Shape en largeur
    If LeftPoints = xlNone Then
        With Application
            Shape.Left = .Left + (.UsableWidth - Shape.Width) / 2
        End With
    Else
        Shape.Left = LeftPoints
    End If
  
    'Centrer la Shape en hauteur
    If TopPoints = xlNone Then
        With Application
            Shape.Top = .Top + (.UsableHeight - Shape.Height) / 2
        End With
    Else
        Shape.Top = TopPoints
    End If

petite demo

Sub Bouton6_Cliquer()
Dim rng As Range, t As String
Set rng = ActiveWindow.VisibleRange
t = "viblerange :" & rng.Address(0, 0) & " : " & rng.Width & " points" & vbCr & vbCr
t = t & " si tu regarde bien  la colonne " & rng.Cells(rng.Cells.Count).EntireColumn.Address(0, 0) & vbCr
t = t & " tu verra quelle n'est pas completement visible " & vbCr & vbCr
t = t & " usableWidth de l'application :" & Application.UsableWidth & " points"
MsgBox t
End Sub

 

[Dudu2]

Bonjour @patricktoulon,
Merci pour ton retour.
Cependant, si tu réduis la fenêtre, avec Application et UsableWidth/Height, tu perds le centrage.