Selecting Everything In a Range

[ercedwards]

I have a worksheet that has data and images on it.

I want to e-mail everything that is visible in a given range, including the images.

I can already select all the data and put it in the e-mail using
Set rng = Sheets("Invoice").Range("A1:I151").SpecialCells(xlCellTypeVisible)

but I need the images as well.

Any tricks?

Thanks

 

[tonyyy]

ercedwards,

You might consider the following to select the shapes...

Sub SelectShapes()
Dim shp As Shape, rng As Range
Set rng = Sheets("Invoice").Range("A1:I151").SpecialCells(xlCellTypeVisible)
For Each shp In Sheets("Invoice").Shapes
    If Not Intersect(Range(shp.TopLeftCell, shp.BottomRightCell), rng) Is Nothing Then _
        shp.Select Replace:=False
Next shp
Selection.Copy
End Sub

Cheers,

tonyyy