Microsoft 365 Import photo plafonné à un certain .top

Ludwig74

XLDnaute Nouveau
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
VB:
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
 
Solution
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 ?

Dranreb

XLDnaute Barbatruc
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 ?