geimporteerde afbeeldingen selecteren en wissen

[Bjorkie]

Hey,

ik heb volgend script, waarbij ik afbeeldingen 'importeer' in mijn document.
werkt super.

Sub Insert_Pict2()
    Const Afb_map = "E:\Documents\test\images\"
    myarray = WorksheetFunction.Transpose(Range("D3", Range("D" & Rows.Count).End(xlUp)).Value)
    ActiveSheet.Protect False, False, False, False, False
    If Not IsArray(myarray) Then Exit Sub
    On Error Resume Next
    lRow = 3
    For lLoop = LBound(myarray) To UBound(myarray)
        Set sShape = ActiveSheet.Shapes.AddPicture(Afb_map & myarray(lLoop) & ".jpg", msoFalse, msoCTrue, _
                Cells(1, 1).Left + 20, Cells(lRow, 2).Top + 10, -1, -1)
                With sShape
                    .ShapeRange.LockAspectRatio = msoTrue
                    .Height = 25
                End With
                
        lRow = lRow + 1
    Next lLoop
End Sub

de afbeeldingen staan altijd in vanaf locatie A3 tot A250

nu heb ik een 'document reset' functie waarbij ik al deze afbeeldingen wil verwijderen, alvorens er een nieuwe lijst gemaakt kan worden.
iemand een idee.
let op, ik heb ook 2 MACRO knoppen op deze pagina, die ik niet kwijt wil.
(ik probeer nog snel een voorbeeld bestand te maken, maar met de afbeeldingen is het niet simpel)

 

[JanBG]

Zo?

Sub Macro1()
    Range("A3:A250").Select
    Selection.Clear
End Sub

 

[snb]

Als je de te verwijderen vormen groepeert kan het zo:

Sub M_snb()
    ActiveSheet.Shapes.Range("Group 1").Delete
End Sub

of

Sub M_snb()
    sheets(1).Range("A3:A250").ShapeRange.delete
end sub

 

[Bjorkie]

Hoi allen,

Bedankt maar geen van beide heeft gewerkt.
heb het opgelost met volgend script

Sub DeleteAllPics()
Dim Pic As Object
For Each Pic In ActiveSheet.Pictures
Pic.Delete
Next Pic
End Sub

toch bedankt voor de moeite.
op naar de volgende issue :thumb:

 

[Bjorkie]

hoi snb,
jouw 2de voorstel heb ik echter niet getest.
maar toch bedankt
:thumb:

 

[snb]

Als die macro werkt zonder de macroknoppen te verwijderen werkt dit ook:

Sub M_snb()
    ActiveSheet.Pictures.Select
    Selection.Delete
End Sub

of

Sub M_snb()
    ActiveSheet.shapes.SelectAll
    Selection.Delete
End Sub

en als je je VBA vaardigheden wil vergroten test je natuurlijk alle aangereikte suggesties.