Reakce na odpověď

Neregistrovaný Přihlásit Registrovat

Namiesto týchto piatich riadkov:

If CheckBox1 = True Then
  ActiveSheet.Shapes("doprava_zdarma").Visible = True
Else
  ActiveSheet.Shapes("doprava_zdarma").Visible = False
End If

Stačí jeden takýto:

ActiveSheet.Shapes("doprava_zdarma").Visible = CheckBox1

Zaškrtávacie políčko a jeho možnosti