Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - usuwanie zdjęć, obrazów z danego zakresu

kamilkamil · Wysłany: 31-03-2021, 13:59 **usuwanie zdjęć, obrazów z danego zakresu**

Cześć,

Obecnie używam kodu , który generuje meila z załącznikami i po wygenerowaniu usuwa obrazki z całego arkusza.
Co należy zmienić, żeby usuwał tylko z przypisanego range?

Kod:

Sub x()

Dim OutApp As Object
Dim OutMail As Object
Dim tresc As String

Dim strXLFullName As String
Dim xSep As String
Dim Wks As Worksheet
Dim Wkb As Workbook

Dim strPDFFullName As String

Const olByValue As Long = 1

xSep = Application.PathSeparator
Set Wks = ActiveSheet

Application.DisplayAlerts = False

strXLFullName = Environ("TMP") & xSep & Wks.Range("B2").Value

Wks.Copy

Set Wkb = ActiveWorkbook

On Error Resume Next
Wkb.Sheets(1).Shapes.SelectAll
Selection.delete
On Error GoTo 0

Wkb.SaveAs strXLFullName, xlOpenXMLWorkbook
Wkb.Close

Testowałęm już:

Kod:

WKB,Sheets(1).Shapes.Select.Range ("A1:F20")

', ale nie działa.

Marecki · Wysłany: 31-03-2021, 14:13

Sprawdź taki kod:

Kod:

Dim Shp As Shape
With Sheets(1)
For Each Shp In .Shapes
If Not Application.Intersect(Shp.TopLeftCell, .Range("A1:F20")) Is Nothing Then Shp.Delete
Next Shp
End With

kamilkamil · Wysłany: 06-04-2021, 14:30

Działa elegancko, dzięki Marecki