Use a variable in a ShapeRange.Increment

A

Aart

Joined
Sep 12, 2023
Messages
1
Reaction score
0
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

Similar Threads

is there a property instead of ScaleWidth method 2
explicitly naming shapes, groups, etc, in macros for Word drawings? 7
Macro for variable picture 1
Need to embed a graphic, then make a call to it 9
Position shapes to be centered in a cell 3
Pick which sheet to put a wordart stamp on 7
Place Text box at Mouse Pointer Position on a page 0
Making Fonts Behave When Pasting Data/Graphs As Picture From Excel 0

Top