copie d'un objet dans un onglet non visible

merci pour cette indication.
Je continue à profiter de votre gentillesse.

Seriez vous comment en gardant le focus ou non sur l'image comment je
pourrais modifier sa hauteur en la faisant varier de 70% à 30% par exemple

merci


"isabelle"<i@v.org> a écrit dans le message de news:
i6qgk5$fp9$1@speranza.aioe.org...

bonjour stef,

si tu veut enlever le focus sur l'image,

Sub jj()
Sheets("Feuil1").Shapes("Picture 1").Copy
fiches = Array("Feuil2", "Feuil3", "Feuil4")
For Each Sh In fiches
Application.Goto Sheets(Sh).Range("F2")
Sheets(Sh).Paste
Application.Goto Sheets(Sh).Range("A1")
Next
End Sub

isabelle

bonjour stef,

voici comment le faire en point,

Sub jj()
Sheets("Feuil1").Shapes("Picture 1").Copy
fiches = Array("Feuil2", "Feuil3", "Feuil4")
For Each Sh In fiches
Application.Goto Sheets(Sh).Range("F2")
Sheets(Sh).Paste
Set image = Worksheets(Sh).Shapes(1)
With image
.Height = 200
.Width = 200
End With
Application.Goto Sheets(Sh).Range("A1")
Next
End Sub

isabelle



Le 2010-09-15 09:33, stef@nospam a écrit :

merci pour cette indication.
Je continue à profiter de votre gentillesse.

Seriez vous comment en gardant le focus ou non sur l'image comment je
pourrais modifier sa hauteur en la faisant varier de 70% à 30% par exemple

merci


"isabelle"<i@v.org> a écrit dans le message de news:
i6qgk5$fp9$1@speranza.aioe.org...

bonjour stef,

si tu veut enlever le focus sur l'image,

Sub jj()
Sheets("Feuil1").Shapes("Picture 1").Copy
fiches = Array("Feuil2", "Feuil3", "Feuil4")
For Each Sh In fiches
Application.Goto Sheets(Sh).Range("F2")
Sheets(Sh).Paste
Application.Goto Sheets(Sh).Range("A1")
Next
End Sub

isabelle

Merci Isabelle; d'avoir pris la relève

au plaisir jj,
isabelle

Le 2010-09-15 15:03, Jacky a écrit :

Merci Isabelle; d'avoir pris la relève