Objecten selecteren VBA

[BertrumsJ]

Het is met VBA mogelijk om ALLE objecten te selecteren in Excel maar ik wil alleen de objecten in een bepaalde kolom selecteren.
Is dit mogelijk?

In het voorbeeld wil ik alle foto's in kolom A selecteren, kopiëren en naar een ander tabblad verplaatsen

 

[lam201]

even googlen heeft dit opgeleverd

Sub SelectShapes()
Dim shp As Shape
Dim r As Range

Set r = Range("A1:A500")

For Each shp In ActiveSheet.Shapes
    If Not Intersect(Range(shp.TopLeftCell, shp.BottomRightCell), r) Is Nothing Then _
        shp.Select Replace:=False
Next shp
End Sub

 

[BertrumsJ]

Het werkt

Geweldig, dank je wel

 

[snb]

In jouw bestand:

Sub M_snb()
   Sheet1.Shapes.Range(Array(1, 2, 3)).Select
   Selection.Copy
   Sheet2.Paste Sheet2.Cells(1,4)
End Sub

 

[BertrumsJ]

Bedankt

Hoe korter hoe beter