Ešte ja som ...

Keď to mám pekne spravené a funkčné po uložení a otvorení dokukentu tam mám aj obrázky, aj tlačidlá ale nemám v tých checkboxoch uložené

Private Sub CheckBox1_Click()
  If CheckBox1 = True Then
    ActiveSheet.Shapes("doprava_zdarma").Visible = True
  Else
    ActiveSheet.Shapes("doprava_zdarma").Visible = False
  End If
End Sub
Private Sub CheckBox2_Click()
  If CheckBox2 = True Then
    ActiveSheet.Shapes("vykladka_zdarma").Visible = True
  Else
    ActiveSheet.Shapes("vykladka_zdarma").Visible = False
  End If
End Sub
Private Sub CheckBox3_Click()
  If CheckBox3 = True Then
    ActiveSheet.Shapes("poradenstvo_zdarma").Visible = True
  Else
    ActiveSheet.Shapes("poradenstvo_zdarma").Visible = False
  End If
End Sub