Sub coll()
'Macro code written by Alexander Ooms
Dim cell As Variant
Dim i As Integer
i = 1
'here you set the cell to look for the algs now set to a1 to a4
For Each cell In Range("A1:A4")
PicPath = "http://cube.crider.co.uk/visualcube.php?stage=coll&fmt=png&size=100&view=plan&case=" & cell.Value & ""
With ActiveSheet.Pictures.Insert(PicPath)
With .ShapeRange
.LockAspectRatio = msoTrue
.Width = 50
.Height = 50
End With
.Left = ActiveSheet.Cells(i, 5).Left
.Top = ActiveSheet.Cells(i, 5).Top
.Placement = 1
.PrintObject = True
End With
i = i + 5
Next cell
End Sub
Sub pll()
'Macro code written by Alexander Ooms
Dim cell As Variant
Dim i As Integer
i = 1
'here you set the cell to look for the algs now set to a1 to a4
For Each cell In Range("A1:A4")
PicPath = "http://cube.crider.co.uk/visualcube.php?stage=pll&fmt=png&size=100&view=plan&case=" & cell.Value & ""
With ActiveSheet.Pictures.Insert(PicPath)
With .ShapeRange
.LockAspectRatio = msoTrue
.Width = 50
.Height = 50
End With
.Left = ActiveSheet.Cells(i, 5).Left
.Top = ActiveSheet.Cells(i, 5).Top
.Placement = 1
.PrintObject = True
End With
i = i + 5
Next cell
End Sub
Sub oll()
'Macro code written by Alexander Ooms
Dim cell As Variant
Dim i As Integer
i = 1
'here you set the cell to look for the algs now set to a1 to a4
For Each cell In Range("A1:A4")
PicPath = "http://cube.crider.co.uk/visualcube.php?stage=oll&fmt=png&size=100&view=plan&case=" & cell.Value & ""
With ActiveSheet.Pictures.Insert(PicPath)
With .ShapeRange
.LockAspectRatio = msoTrue
.Width = 50
.Height = 50
End With
.Left = ActiveSheet.Cells(i, 5).Left
.Top = ActiveSheet.Cells(i, 5).Top
.Placement = 1
.PrintObject = True
End With
i = i + 5
Next cell
End Sub