Selecting all pictures in a range

[playdoman]

Hi,
I was trying to select all of the pictures/objects in a certain range (A294:L1400) in order to move them all at the same time. How do I do this?

Thanks in advance,
Sven

[patel45]

Sub SelectInRange()
Dim sh As Shape, isect, sharr() As String
Set Rng = Range("A294:L1400")
For Each sh In ActiveSheet.Shapes
  Set isect = Application.Intersect(sh.TopLeftCell, Rng)
  If Not isect Is Nothing Then
    s = s + sh.Name & ","
  End If
Next
s = Left(s, Len(s) - 1)
sharr = Split(s, ",")
ActiveSheet.Shapes.Range(sharr).Select
End Sub

[playdoman]

Many many many thanks Patel45!! That worked like a charm

[Jakobshavn]

Selecting multiple pictures is easy:

ActiveSheet.Pictures(Array("Picture 1", "Picture 2")).Select

The hard part is defining what you mean by pictures being "in" a range. Because pictures are two-dimensional, part of the picture can overlap the range and another part of the picture can be outside the range.