Hi,

Am Thu, 9 May 2013 18:12:49 +0100 schrieb lfullam1:

I have 7 pictures on one worksheet that I want to copy and paste on to
another worksheet, into various cells. Each image will go into only one
cell. The code I have is as follows:

try:
Sub myCopy()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim shp As Shape

j = 1
k = 202
Application.ScreenUpdating = False
With Sheets("info")
For i = 2 To 7
.Shapes("Picture " & i).Copy
Sheets("bat").Paste
Next
End With
With Sheets("bat")
For i = 2 To 7
.Shapes("Picture " & i).Top = .Cells(k, j).Top
.Shapes("Picture " & i).Left = .Cells(k, j).Left
If i Mod 2 = 0 Then
j = j + 3
Else
j = 1
k = k + 7
End If
Next
End With
Application.ScreenUpdating = True
End Sub


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2