Déplacer un objet "image" ds macro

Question

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

mortalino · Answer

Salut,

Essaie ceci :

With Selection.ShapeRange
  .Top = 0
  .Left = 0
  .IncrementLeft 120
  .IncrementTop 50
End With

++

mortalino · Answer

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"

Déplacer un objet "image" ds macro

2 réponses

Votre réponse

Discussions similaires