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...
Code:
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
A tester (adapter le nom de l'image et les valeurs de deplacement)
Code:
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
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