Just nu i M3-nätverket
Jump to content

Radera checkbox samt andra figurer


mattias_i

Recommended Posts

Jag har ett makro som kopierar in en massa text och checkboxar mm från olika ställen, och jag har även ett makro för att ta bort det, problemet är att jag inte lyckas att ta bort checkboxarna, jag vet hur jag tar bort en checkbox med ett makro men jag vet inte hur jag ska kunna veta vad varje checkbox heter som jag vill ta bort, alternativt att det går att ta bort ALLT inklusive checkboxar som finns inom ett visst område.

 

Är det någon som har nå tips hur jag ska göra?

 

[inlägget ändrat 2009-01-21 09:42:57 av mattias_i]

Link to comment
Share on other sites

Jag har provat med följande makro men då försvinner alla checkboxar på hela sidan. Jag vill bara att den ska radera inom ett visst område.

 

 

Sub Radera()

For Each Shape In ActiveSheet.Shapes

Shape.Delete

Next

End Sub

 

 

Link to comment
Share on other sites

kontrollera dels att det är en CheckBox dels var den finns

Sub Radera()
Dim sh As Shape
For Each sh In ActiveSheet.Shapes
If sh.FormControlType = 1 and sh.TopLeftCell.Column = 6 Then sh.Delete
Next
End Sub

 

exempelvis.

 

 

/T

 

Even when we know we´ll never find the answers, we have to keep on asking questions.

 

Link to comment
Share on other sites

Tack för hjälpen det fungerar bra, men jag skulle vilja ta bort allt i hela området A20 till M50, jag har försökt att använda Range på lite olika sätt, men jag lyckas inte få till det, är det bökigt att lägga in.

 

/Mattias

 

Link to comment
Share on other sites

Stega igen alla shapes och kontrollera om deras topleftcell finns inom angivet område...

 

Ex.v.


Sub Radera()
Dim sh As Shape
Dim rn As Range
Set rn = Activesheet.Range("A20:M50")
For Each sh In ActiveSheet.Shapes
If Not Application.Intersect (sh.TopLeftCell, rn) Is Nothing Then sh.Delete
Next
End Sub

 

 

/T

 

Even when we know we´ll never find the answers, we have to keep on asking questions.

 

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.



×
×
  • Create New...