Use a variable in a ShapeRange.Increment

Sep 12, 2023
Reaction score
I have a few thousand pictures in a folder. Some of the photos will be selected according a set of criteria. In some cases 0-pictures wil be selected to a maximum of six pictures. I found the values listed in the program below by trial and error. As it is now, the photographs are on top of each other. I would like to use a variable instead of -976.2, to be more precise by +100 for each photo, this will space the shots. I am happy with the "Top" and "ScaleWidth" . I am not able to change the -976.2 with a variable.

If Seltype = "Picture" Then
Selection.ShapeRange.IncrementLeft -976.2
Selection.ShapeRange.IncrementTop -207.5
Selection.ShapeRange.ScaleWidth 0.35, msoFalse, msoScaleFromTopLeft

End IF

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question