activeren en verwijderen vorm

[ozzyozzy]

ik mis nog de unselect gedeelte? iemand een idee?

Private Sub CommandButton1_Click()

ActiveSheet.Shapes.AddShape(msoShapeRectangle, 528, 45, 95.25, 183).Select


End Sub

 

[edmoor]

Bijvoorbeeld zo:

Private Sub CommandButton1_Click()
    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 528, 45, 95.25, 183).Select
    CommandButton1.Select
End Sub

 

[HSV]

Private Sub CommandButton1_Click()


ActiveSheet.Shapes.AddShape msoShapeRectangle, 528, 45, 95.25, 183


End Sub

 

[ozzyozzy]

weer hide lukt helaas niet bij klik op button zichtbaar en bij weer klik hide dus onzichtbaar maken blauw vlak?

 

[HSV]

Als de rechthoek in het blad staat.

Eerste keer klik verborgen; tweede keer zichtbaar.

Private Sub CommandButton1_Click()
 Shapes(1).Visible = Not Shapes(1).Visible
End Sub

 

[ozzyozzy]

Dit is het wat ik wou en werkt correct.

Sub werk()
With Worksheets("Planning 1").Shapes("Afbeelding 1")  
.visible = Not .visible
End With

 

[ozzyozzy]

Dit is het wat ik wou en werkt correct.

Sub werk()
With Worksheets("Planning 1").Shapes("Afbeelding 1")  
.visible = Not .visible
End With