Goededag,
Hoe kan ik een afbeelding zichtbaar of onzichtbaar maken met een checkbox?
Ik heb het nu houtje-touwtje opgelost. Het werkt.
Ik heb een witte afbeelding toegevoegd aan de bladen. Deze kan de afbeelding waar het om gaat bedekken.
Door de checkbox te gebruiken plaats je de witte afbeelding naar voren en de echte afbeelding naar achter en visa versa.
Kan het zonder de witte bedekkende afbeelding?
Ps: de bladen zijn beveiligd zonder password.
Hoe kan ik een afbeelding zichtbaar of onzichtbaar maken met een checkbox?
Ik heb het nu houtje-touwtje opgelost. Het werkt.
Ik heb een witte afbeelding toegevoegd aan de bladen. Deze kan de afbeelding waar het om gaat bedekken.
Door de checkbox te gebruiken plaats je de witte afbeelding naar voren en de echte afbeelding naar achter en visa versa.
Kan het zonder de witte bedekkende afbeelding?
Code:
[COLOR="#0000FF"]Private Sub CheckBox1_Click()
Select Case CheckBox1.Value[/COLOR]
[COLOR="#0000FF"]Case True[/COLOR]
Sheets("1 Regel").Select
ActiveSheet.Unprotect
[COLOR="#800080"][B] ActiveSheet.Shapes.Range(Array("Picture 5")).Select
Selection.ShapeRange.ZOrder msoSendForward
ActiveSheet.Shapes.Range(Array("Picture 7")).Select
Selection.ShapeRange.ZOrder msoSendBackward[/B][/COLOR]
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("2 Regels").Select
ActiveSheet.Unprotect
[COLOR="#800080"][B]ActiveSheet.Shapes.Range(Array("Picture 5")).Select
Selection.ShapeRange.ZOrder msoSendForward
ActiveSheet.Shapes.Range(Array("Picture 3")).Select
Selection.ShapeRange.ZOrder msoSendBackward[/B][/COLOR]
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Invoer").Select
[COLOR="#0000FF"]Case False[/COLOR]
Sheets("1 Regel").Select
ActiveSheet.Unprotect
[COLOR="#800080"][B]ActiveSheet.Shapes.Range(Array("Picture 7")).Select
Selection.ShapeRange.ZOrder msoSendForward
ActiveSheet.Shapes.Range(Array("Picture 5")).Select
Selection.ShapeRange.ZOrder msoSendBackward[/B][/COLOR]
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("2 Regels").Select
ActiveSheet.Unprotect
[COLOR="#800080"][B]ActiveSheet.Shapes.Range(Array("Picture 3")).Select
Selection.ShapeRange.ZOrder msoSendForward
ActiveSheet.Shapes.Range(Array("Picture 5")).Select
Selection.ShapeRange.ZOrder msoSendBackward[/B][/COLOR]
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
Sheets("Invoer").Select
[COLOR="#0000FF"]
End Select
End Sub[/COLOR]
Ps: de bladen zijn beveiligd zonder password.