Close Gap Between Objects

[pure vito]

Hi All,

I'm browsing the internet to no avail, I'm pasting these images onto my sheet and as you can see they are small enough to fit nicely in the cells the only problem I have
is when pasted they are very far apart meaning I have to manually drag them to the cell I need them in, is there any way to select all the objects and decrease the gap between the images, I have used all the align options
but none of those options can close the gap any help would be greatly appreciated

 

[awoohaw]

have you looked into the IMAGE function:

IMAGE function - Microsoft Support

support.microsoft.com

 

[pure vito]

Thank you I'm not sure this is the solution I am looking for I think this would require me to save and name all the images?

I'd just like to bring them all closer together without assigning them to cells if that makes sense,

 

[Peter_SSs]

Hmm, not sure that this is actually along the lines of what you are after but give it a run in a copy of your worksheet.

Sub ShapesCloser()
  Dim sh As Shape, shact As Shape
  
  Const shLeft As Long = 100
  Const shGap As Long = 5
  
  Application.ScreenUpdating = False
  For Each sh In ActiveSheet.Shapes
    If shact Is Nothing Then
      sh.Top = 10
      sh.Left = shLeft
      Set shact = sh
    Else
      sh.Top = shact.Top + shact.Height + shGap
      sh.Left = shLeft
      Set shact = sh
    End If
  Next sh
  Application.ScreenUpdating = True
End Sub

 

[pure vito]

Hey Peter , That's fantastic! what a dream this is going to save me hours of work thank you very very much once again you've come to my rescue, with any luck one day I'll have the solutions to someone else's problem many thanks

 

[Peter_SSs]

Cheers. Glad it worked for you - I was unsure.
Thanks for the follow-up.