Valeur Top d'une cellule et d'un shape ne correspondent pas

Question

Bonjour à tous,

A première vue, ça me semble un bug, mais on sait tous que le bug est souvent entre la chaise et le clavier .

Je souhaite faire une action toute simple, à savoir, placer une image dans une case.

Pour la démonstration, j'aimerais que l'image couvre toute la case.

Je rencontre une difficulté de positionnement avec la valeur TOP de la shape et la valeur TOP de la cellule. À valeurs égales, la position n'est pas la même. (idem pour le Left)

Plus je cherche à placer l'image sur des lignes ou colonnes éloignées, plus l'écart s'accroit.

Voici mon exemple pour placer mon image en "AU400"

Sub test()

Dim img As Shape  

Set img = ActiveSheet.Shapes.AddPicture("c:\temp\IMG.jpeg", False, True, 0, 0, -1, -1)  

With img  
    .LockAspectRatio = msoFalse  
    .Height = Range("AU400").Height  
    .Width = Range("AU400").Width  
    .Top = Range("AU400").Top  
    .Left = Range("AU400").Left  
    .Placement = xlMoveAndSize  
End With  

End Sub

Voici le résultat : Je souhaiterais que l'image soit pile dans la case AU400.

Cordialement,

Answer 1

Bonjour,

Essaie ce réglage :

Daniel

Answer 2

Bonjour

Aucun problème sur 365 Apps for Entreprise V2204 (Canal Aperçu)

Answer 3

Je ne reproduis pas le problème. J'utilise Excel 2016, c'est peut-être l'explication ?

Daniel

Answer 4

Bonjour,

Je soupçonne un problème avec mon Excel.

J'ai fait les derniers mise à jour de mon Excel 365 business.

Je ne savais pas comment transmettre les fichiers, voici un lien : https://www.transfernow.net/dl/20220421E7V81CEs

Si le carré rouge apparait au bon endroit chez vous, c'est que le problème vient de ma version d'Excel (la dernière a priori).

Merci de votre aide / temps.

Answer 5

Bonjour,

Ca fonctionne ici :

Peux-tu partager le classeur et l'image ?

Daniel