Centrer une image en fonction de l'ecran

Hamb

XLDnaute Junior
Bonjour le forum,

Avant de poser ma question je précise que j’ai essayé de trouver une réponse sur le forum mais rien vu !!
Donc je pose ma requête :

Voilà j’ai sélectionné sur feuille 2 un tableau, j’ai copié ce tableau que je veux coller en image en feuille 1. Je voulais le centrer pour que cela fasse plus joli, j’ai réussi tant bien que mal en utilisant
Selection.ShapeRange.IncrementLeft 59.25
Selection.ShapeRange.IncrementTop 14.25
C’est super pour mon écran mais aussitôt que j’essai sur un plus petit écran ça ne fonctionne pas. D’ou ma question

Comment faire pour centrer une image sur n’importe quel type d ‘écran ?

Merci pour vos réponses
 

jeanpierre

Nous a quitté
Repose en paix
Re : Centrer une image en fonction de l'ecran

Bonsoir Hamb, re le forum,

Plutôt qu'une image qui est lourde, pourquoi ne pas utiliser l'appareil photo d'Excel...

Il va s'adapter à l'écran, enfin, il me semble...

Affichage/Personalisé/Outils et Appareil photo...

Tu selectionnes ta cellule ou ta plage, tu cliques (claque) sur l'appareil et c'est bon...

A te lire sur ceci.

Jean-Pierre
 

Hamb

XLDnaute Junior
Re : Centrer une image en fonction de l'ecran

Je ne suis pas sur que cela va m’aider mais bon pour me coucher moins bête ce soir j’ai voulu regarder mais impossible de trouver l’appareil photo loool !!
Tu es sur du chemin ?

Merci
 

wilfried_42

XLDnaute Barbatruc
Re : Centrer une image en fonction de l'ecran

Bonjour hamp, jeanpierre :)

Regarde les propriete height, width de application

Application.height doit te donner le nombre de pixel de la fenetre de travail en vertical et Width en horizontal

Tu connais la taille de ton image

int(Height-hauteurimage)/2) ----> coordonnée Top

int(Width-longueurrimage)/2)----> coordonnée left
 

Staple1600

XLDnaute Barbatruc
Re : Centrer une image en fonction de l'ecran

Bonjour à tous, bonsoir jeanpierre


A tester sur différentes résolutions

Code:
With ActiveSheet.Shapes(1) ' mettre soit le nom soit le numéro de l'image
.Top = Application.Height / 4
.Left = Application.Width / 2
End With
houps: pas rafraichi à temps

Bonsoir Wilfried42

J'avais oublier de prndre en compte les dimensions de l'image
 
Dernière édition:

jeanpierre

Nous a quitté
Repose en paix
Re : Centrer une image en fonction de l'ecran

Re, bonsoir Wilfried,

Au delà de la réponse de Wilfried que je ne peux tester...

Pour le chemin, c'est sûr, il est bon... mais ce n'est pas appareil photo, mais photo tout court....

Bonne soirrée.
 

Hamb

XLDnaute Junior
Re : Centrer une image en fonction de l'ecran

Re coucou,

Je vais tenter tout ca merci pour vos reponses et Wilfried j'en profite pour te signaler que je t'ai envoyé un message, si tu pouvais m'aider ca serait sympa.

Merci a tous
 

Discussions similaires

Statistiques des forums

Discussions
312 429
Messages
2 088 353
Membres
103 824
dernier inscrit
frederic.marien@proximus.