déplacer une image sans la selectionner

[dealise]

Bonjour a tous !

Je souhaiterais dans un fichier Excel, déplacer une image et répéter cette manipulation dans plusieur onglet.

Je me suis aidé de l'enregistreur de macro pour trouver la syntaxe et l'adapter à tous mes onglets, cela fonctionne seulement je souhaiterais enlever de mon code le "select" afin de ne pas activer chaque onglet, puis selectionner l'image etc...

Sub image()
Dim sh As Worksheet

For Each sh In Worksheets
sh.Select
    ActiveSheet.Shapes("Picture 1").Select
    Selection.ShapeRange.IncrementLeft -197.25
    Selection.ShapeRange.IncrementTop -25.5
Next sh
    
End Sub

Quelqu'un a t-il une idée ?


Merci beaucoup par avance !

 

[Pierrot93]

Re : déplacer une image sans la selectionner

Bonjour,

peut être comme ceci, non testé :

Dim sh As Worksheet
For Each sh In Worksheets
With sh.Shapes("Picture 1").ShapeRange
    .IncrementLeft -197.25
    .IncrementTop -25.5
End With
Next sh

bon après midi
@+

 

[dealise]

Re : déplacer une image sans la selectionner

J'avais essayé malheureusement cela ne fonctionne pas...
Merci tout de même...

D'autres idées ?

 

[pierrejean]

Re : déplacer une image sans la selectionner

Bonjour dealise

A tester (adapter le nom de l'image et les valeurs de deplacement)

Sub test()
Dim sh As Worksheet
For Each sh In Worksheets
  sh.Shapes("Image 1").Left = sh.Shapes("Image 1").Left + 30
  sh.Shapes("Image 1").Top = sh.Shapes("Image 1").Top - 30
Next sh
End Sub

 

[Guest]

Re : déplacer une image sans la selectionner

bonjour,

Sub image()
    Dim sh As Worksheet
    Dim oShape As Shape
    For Each sh In Worksheets
        For Each oShape In sh.Shapes
            oShape.IncrementLeft -197.25
            oShape.IncrementTop -25.5
        Next
    Next sh
End Sub

A+

Hello Pierrot
[edition] hello PierreJean

 

[dealise]

Re : déplacer une image sans la selectionner

Merci cela fonctionne !!

C'est exactement ce que je souhaitais !

Merci !