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

A všichni teď budou hádat o čem to vůbec mluvíš,že.Kdybys aspoň napsal,že jde o Excel,nebo dal odkaz na posl.tvůj problém:
http://pc.poradna.net/q/view/948642-excel-moznost- vybrat-polozku-zo-zoznamu

Toto je možné použitím zaškrtávacího políčka z kolekce ActiveX a malého makra.
Do sešitu se vloží na požadované místo obrázek a pomocí zaškrtávacího políčka se nastaví jeho "viditelnost". viz soubor.

Dobrý deň,

ĎAKUJEM ale mám tam pri tvorbe jeden problémik a tým je to že sa mi nedá "spojazdniť" viac checkboxov.. Ale netuším kde robím chybu :(

Bohužel já taky ne.
Zkus přiložit vzorový soubor.

Tu bude zádrheľ: citujem Ťa "a pomocí zaškrtávacího políčka se nastaví jeho "viditelnost"."
Ja si vytvorím checkbox2 a v zobrazeni zdrojoveho komu zadefinujem presne rovnakú podmienku ako je checkbox1. Akurát že nikde neviem nájsť ako ten checkbox priradím ktomu obrázku ktorý chcem.

Když si otevřeš ten vzorový soubor co sem tady vložil a klikneš na obrázek auta tak se vedle řádku vzorců ukáže název obrázku "dop_zdarma"

a tento název obrázku použiješ v kódu

ActiveSheet.Shapes("dop_zdarma").Visible = True
Else
ActiveSheet.Shapes("dop_zdarma").Visible = False

Veľmi, veľmi pekne ďakujem!!
Si veľmi ochotný!

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

Pritom to dávam ukladať!

Můžeš lépe popsat s čím máš problém?
Ten kód co si sem vložil je použit v sešitu níže a nevidím tam žádný zádrhel.
612174905

Popis: 1. Vytvorím súbor
2. vložím do hárku checkboxy + obrázky a upravím to tak aby to bolo funkčné
3. Keď je dokument OK dám uložiť a zatvorím súbor.
4. Pri NOVOM otvorení to funkčné už nemám :(

Ak mi dáš tvoj e-mail pošlem Ti ten dokument.

Tak sem kouknul na ten Tvůj soubor cos mi poslal a chyba je, že to špatně ukládáš.
Používáš Excel 2007 výš. koncovka souboru *.xlsx, soubor xlsx, ale nepracuje s makry. Musíš soubor uložit s podporou maker *.xlsm
Ale sám excel Tě k tomu jistě vyzval

Když si otevřeš Visual basic (ALT+F11) v tom souboru cos poslal, zjistíš že je bez kódu.
Vlož kód, dej uložit jako a ulož s podporou maker (*.xlsm)

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