Hey,
ik heb volgend script, waarbij ik afbeeldingen 'importeer' in mijn document.
werkt super.
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)
ik heb volgend script, waarbij ik afbeeldingen 'importeer' in mijn document.
werkt super.
Code:
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)