Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 70557 Skopiuj do schowka usuwanie zdjęć, obrazów z danego zakresu
Autor Wiadomość
kamilkamil
Stały bywalec Excelforum


Wersja: Win Office 365
Posty: 286
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.
ID posta: 403017 Skopiuj do schowka
 
 
Marecki 
Excel Expert



Wersja: Win Office 2019
Pomógł: 2530 razy
Posty: 8431
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
_________________
Hardware - ta część komputera, którą można kopnąć kiedy software przestanie funkcjonować.

Szkolenia z Excela , FB
Office 2019 Professional Plus , Windows 10 x64
Pozdrawiam, były mkkk23 teraz Marecki.
ID posta: 403019 Skopiuj do schowka
 
 
kamilkamil
Stały bywalec Excelforum


Wersja: Win Office 365
Posty: 286
Wysłany: 06-04-2021, 14:30   

Działa elegancko, dzięki Marecki
ID posta: 403245 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe