Déplacer un objet "image" ds macro

Messages postés
5
Date d'inscription
lundi 30 mai 2005
Statut
Membre
Dernière intervention
28 août 2006
-
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
-
Salut,
Je dois manipuler un objet "image" dans une macro.

Pas de souci pour redimmensionner mon image mais pour la placer a un endroit spécifique c'est le quac!
La seule commande que j'ai trouvé est :

Selection.ShapeRange.IncrementLeft -172.5

Cette commande effectue un déplacement en valeur incrémentale ce qui me pose problème.

Dans mon cas, j'ai besoin de pouvoir donner une position en absolu (Ex : 120 depuis la gauche et 50 depuis le haut)

Qqun a une idée ??

Merci d'avance
Stef

2 réponses

Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
Salut,

Essaie ceci :

With Selection.ShapeRange
.Top = 0
.Left = 0
.IncrementLeft 120
.IncrementTop 50
End With

++
Messages postés
6786
Date d'inscription
vendredi 16 décembre 2005
Statut
Membre
Dernière intervention
21 décembre 2011
18
Arf, suis-je bête !!

With Selection.ShapeRange
  .Top = 50
  .Left = 120
End With

T'économises 2 lignes de code, et c'est plus conventionnel ainsi !
(comme quoi, après une journée de travail, on a les idées plus claires )

@++

  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"