Image excel par automation

Le
Dominique MARTIN
Bonjour,

Depuis Access je copie un certain nombre de données dans des cellules d'une
feuille Excel et cela marche très bien.

Mar contre je souhaite copier une image contenue dans la feuille excel et la
déplacer.
J'utilise le code suivant :
with xlSheet
.Shapes("MonImage").Copy
.range("C20").Select
.Paste
jusque là tout va bien mais quand je veux déplacer l'image à un endroit
précis par la commande suivante cela ne marche pas et je n'arrive pas à
trouver un paliatif.
.Selection.ShapeRange.IncrementTop -37

Merci beaucoup pour votre aide
Dominique
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #6300911
Bonjour,
De passage sur le forum, je me permets de suggérer d'oter le point devant
Selection.ShapeRange.IncrementTop -37
(qui fonctionne bien sur mon Excel tant que l'image n'est pas calée en haut
de la feuille)
--
Philippe.R
"Dominique MARTIN" le message de news:
Bonjour,

Depuis Access je copie un certain nombre de données dans des cellules
d'une
feuille Excel et cela marche très bien.

Mar contre je souhaite copier une image contenue dans la feuille excel et
la
déplacer.
J'utilise le code suivant :
with xlSheet
.Shapes("MonImage").Copy
.range("C20").Select
.Paste
jusque là tout va bien mais quand je veux déplacer l'image à un endroit
précis par la commande suivante cela ne marche pas et je n'arrive pas à
trouver un paliatif.
.Selection.ShapeRange.IncrementTop -37

Merci beaucoup pour votre aide
Dominique


Dominique MARTIN
Le #6300431
Bonjour,

Merci beaucoup. cela marche.
j'avais mis le point à cause de la ligne de commande With xlSheet.

Merci
Dominique



Bonjour,
De passage sur le forum, je me permets de suggérer d'oter le point devant
Selection.ShapeRange.IncrementTop -37
(qui fonctionne bien sur mon Excel tant que l'image n'est pas calée en haut
de la feuille)
--
Philippe.R
"Dominique MARTIN" le message de news:
Bonjour,

Depuis Access je copie un certain nombre de données dans des cellules
d'une
feuille Excel et cela marche très bien.

Mar contre je souhaite copier une image contenue dans la feuille excel et
la
déplacer.
J'utilise le code suivant :
with xlSheet
.Shapes("MonImage").Copy
.range("C20").Select
.Paste
jusque là tout va bien mais quand je veux déplacer l'image à un endroit
précis par la commande suivante cela ne marche pas et je n'arrive pas à
trouver un paliatif.
.Selection.ShapeRange.IncrementTop -37

Merci beaucoup pour votre aide
Dominique






Publicité
Poster une réponse
Anonyme