Microsoft 365 Import photo plafonné à un certain .top

[Ludwig74]

Bonjour,

J'ai une macro qui importe des photos.
La macro boucle sur les lignes de la feuille et place l'image au niveau du .top de la cellule. L'import se fait correctement mais après un .top de 33752 les images se superposent. Je peux importer plus ou moins d'image en fonction de la hauteur de limage. Mais invariablement, arrivé à une hauteur d'environ 33750 les images se superposent.
J'importe l'image via ce code

Set Shp = Sheets(NomFeuille).Shapes.AddPicture(Chemin, msoFalse, msoCTrue, Gauche, Haut, Largeur, Hauteur) 'Affiche l'image

Rien de particulier dans ce code. Les variables sont précédemment définies.

Existe-t-il une raison particulière ?

Par avance merci de prendre le temps de me répondre.

Bonne journée.

Ludwig

 

[Dranreb]

Bonsoir.
Information insuffisante pour pour pouvoir répondre.
Mais on remarque que 33752 est peu au dessus de 32767 qui est la valeur maxi qu'un Integer puisse valoir.
Alors n'y serait il pas impliquée une variable de ce type qu'il faudrait passer en Long ?

 

[Ludwig74]

Merci, tu as vu juste. j'ai déclaré ma variable "Haut" en Long et les images s'incrémentent correctement.
Encore merci et bonne soirée.

Ludwig