Dimension de l'ecran incompatible avec mon VBA

Bonjour à tous,

Je réalise actuellement en stage et je réalise un tableau de bord avec VBA.

J'ai crée une image ou j'ai inséré l'image des cellules de mon tableau

Private Sub UserForm_Initialize()
Workbooks.Open "Y:\INFOLOG\INDICATEURS QUALITE\suivi casse entrepot\Suivi Casse 2016 .xls"
Worksheets("Synthèse-04").Range("A3:F62").CopyPicture
    Set Image1.Picture = PastePicture(xlPicture)
    Workbooks("Suivi Casse 2016 .xls").Close False
End Sub

Je l'ai redimensionné; jusqu'ici tout va bien. De mon Pc j'arrive a afficher l'image correctement.

Mais quand j'envoie mon fichier à mon responsable, l'image est tronqué. ( j'en ai déduit que c'est du au résolution de son pc, parce que quand je change mes résolution de PC, j'ai aussi une image tronqué)

Donc ma question est la suivante : "Comment palier à cette difficulté?"

Impossible d'envoyé mon fichier, car il fait appel à des liens interne.

merci d'avance

Hello naisof,

L'image est tronquée en largeur/hauteur?

Une idée:

1) récupérer la résolution de l'écran

2) déterminer pour cette résolution la taille que doit avoir l'image (largeur hauteur)

3) modifier ta procédure pour prendre en compte la résolution de l'écran de l'utilisateur.

Exemple de problème:

L'image est tronquée en hauteur sur certaines résolutions

Sur une résolution de 1680 x 1050, l'image de hauteur 250 est à la bonne dimension

Sur une résolution 1000 * 525, l'image devra avoir une hauteur de 125 (1050 / 525 = 2 -> 250 / 2 = 125)

salut d3d9x,

Merci de ta réponse, je vais travailler là dessus.