Nudge graphics down and right
 

this is what i get when i nudge a shape with the recorder on.....
Sub nudge()
'
' nudge Macro
' Macro recorded 1/10/2007 by Susan
'
ActiveSheet.Shapes("Picture 1").Select
Selection.ShapeRange.IncrementTop -0.75
Selection.ShapeRange.IncrementTop -0.75
Selection.ShapeRange.IncrementLeft -0.75
Selection.ShapeRange.IncrementLeft -0.75
Selection.ShapeRange.IncrementTop -0.75
Range("H5").Select
End Sub

susan

XP wrote:
I have a series of small images on a sheet. Each image is pasted at the top
left corner of a series of cells. I want to nudge each image down and to the
right just a little so that each image is the same amount of space inside
each cell.

I have the following code to begin with, but I can't figure out how to
actually reposition the images...

Dim oShape As Shape
For Each oShape in ActiveSheet.Shapes
oShape.[What?]
Next

Please correct or rewrite my code, but if possible please post example code.
I thought there was a "Nudge" command that allowed a graphic to be moved just
a little...? Or perhaps another command to shift it like 0.001 down and right
(could be more or less, but I can adjust that later)?

Thanks for the input and help.