Fout bij verwijderen van objecten dmv Macro

[marcovanderh]

Goedenavond,

D.m.v. een macro plak in een aantal gekopieerde gegevens. Hieruit wil ik de afbeeldingen e.d. die uit deze data gekopieerd wordt verwijderen i.v.m. de bestandsgrootte van het Excel bestand.

Als ik het handmatig doe d.m.v. F5->Speciaal->Object dan selecteert die alles wat ik weg wil hebben en als ik vervolgens dan delete dan gaat alles netjes weg. Nu dacht ik deze stappen ook wel toe te kunnen voegen in m'n bestaande Macro. Echter krijg ik dan een fout.

M'n code ziet er nu als volgt uit:

Sub invoer()
'
' invoer Macro
'

'
    Sheets("Data1").Select
    Range("A1:I7000").Select
    Selection.ClearContents
    Range("A1").Select
    ActiveSheet.Paste
    Range("A1:I7000").Select
    With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    ActiveSheet.DrawingObjects.Select
    Selection.Delete
    Sheets("Welkom").Select
    Range("N8").Select
    ActiveCell.FormulaR1C1 = "=NOW()"
End Sub

Iemand enig idee wat ik hier fout doe?

Alvast dank.

Groetjes, Marco

 

[snb]

Vermijd 'select' in VBA.

 

[edmoor]

En waarom vertel je er niet bij wat de foutmelding is die je krijgt en op welke regel in je macro dat dan gebeurt??

 

[cow18]

For Each shp In ActiveSheet.Shapes
   shp.Delete
Next

 

[snb]

De uitzondering:

Sub M_snb()
  Shapes.SelectAll
  Selection.Delete
End Sub

 

[cow18]

oei snb, dat moet pijn gedaan hebben om die laatste post te verzenden, gelukkig "de uitzondering".

 

[E v R]

zonder loop en zonder select:(just for the fun)

ActiveSheet.Shapes.Range(Application.Transpose(Evaluate("Row(1:" & ActiveSheet.Shapes.Count & ")"))).Delete

 

[JEC.]

Als ik de macro van TS zie voldoet deze ook

ActiveSheet.DrawingObjects.Delete

 

[E v R]

:d Yep, denk het ook, :thumb: