lijnen verwijderen

[caffie]

ik heb een sheet gemaakt waarin steeds een X aantal lijnen worden neergezet


nu kan ik deze natuurlijk steeds met de hand weg halen


ActiveSheet.Shapes("Line 1313").Select
Selection.Delete


maar ik vroeg me af of dit niet sneller kom met een VB macro

Selecteer alle linen en verwijder deze

ik weet alleen niet hoe

wie kan me op weg helpen

 

[popipipo]

Sub verw()
    ActiveSheet.DrawingObjects.Select
    Selection.Delete
End Sub

Deze selecteert alle objecten en verwijderd ze daarna.

 

[caffie]

Sub verw()
    ActiveSheet.DrawingObjects.Select
    Selection.Delete
End Sub

Deze selecteert alle objecten en verwijderd ze daarna.

bedankt voor je snelle reactie

maar er staan andere objecten in die wel moeten blijven staan
anders moet ik daar weer wat anders op verzinnen


Rob

 

[Warme bakkertje]

Volgende code selecteert enkel de lijnen en verwijdert ze

Sub VerwijderLijnen()
    Dim shpTemp As Shape
    Dim lngIndex As Long
     
    For lngIndex = ActiveSheet.Shapes.Count To 1 Step -1
        Set shpTemp = ActiveSheet.Shapes(lngIndex)
        If shpTemp.Type = msoLine Then
            shpTemp.Delete
        End If
    Next
End Sub

Mvg

Rudi

 

[caffie]

Volgende code selecteert enkel de lijnen en verwijdert ze

Sub VerwijderLijnen()
    Dim shpTemp As Shape
    Dim lngIndex As Long
     
    For lngIndex = ActiveSheet.Shapes.Count To 1 Step -1
        Set shpTemp = ActiveSheet.Shapes(lngIndex)
        If shpTemp.Type = msoLine Then
            shpTemp.Delete
        End If
    Next
End Sub

Mvg

Rudi

hartelijk bedankt


hier was ik naar op zoek

 

[Warme bakkertje]

ok , dan mag de vraag nog even op opgelost aub
hetzelfde voor je andere vraag zie (lijkt verdacht veel op deze)
http://www.helpmij.nl/forum/showthread.php?t=364500

Mvg

Rudi

 

[caffie]

ok , dan mag de vraag nog even op opgelost aub
hetzelfde voor je andere vraag zie (lijkt verdacht veel op deze)
http://www.helpmij.nl/forum/showthread.php?t=364500

Mvg

Rudi

klopt ik dacht dat ik deze al had weg gehaald

dat zal ik gelijk ff doen

goed gezien en bedankt voor de melding

Rob