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

Dobrý deň,

prosím mám ešte jednu otázku ohľadom zaškrtávacieho políčka. Je možné a sa pri zaškrtnutí tohoto políčka objavil nejaký obrázok v hárku?

Uvediem príklad: Mám nastavenú oblasť tlače v dannom hárku a vedľa tejto oblasti mám "interné" pomôcky, poznámky atď. Do tejto oblasti ktorá nie je tlačená by som chcel umiestniť pole napr. s názvom "DOPRAVA GRÁTIS" ktoré keď zaškrtnem spôsobí to že v určenej ćasti toho istého hárka sa mi ukáže mnou preddefinovaný obrázok /piktogram/.

Ďakujem ešte raz aj za predošlú pomoc!

Jsou zobrazeny jen nové odpovědi. Zobrazit všechny

Předmět	Autor	Datum
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… Siki83 10.01.2013 15:30	Siki83	10.01.2013 15:30
Dobrý deň, ĎAKUJEM ale mám tam pri tvorbe jeden problémik a tým je to že sa mi nedá "spojazdniť" vi… Lukáš555 11.01.2013 14:06	Lukáš555	11.01.2013 14:06
Bohužel já taky ne. Zkus přiložit vzorový soubor. Siki83 11.01.2013 14:37	Siki83	11.01.2013 14:37
Tu bude zádrheľ: citujem Ťa "a pomocí zaškrtávacího políčka se nastaví jeho "viditelnost"." Ja si vy… Lukáš555 11.01.2013 15:11	Lukáš555	11.01.2013 15:11
Když si otevřeš ten vzorový soubor co sem tady vložil a klikneš na obrázek auta tak se vedle řádku v… Siki83 11.01.2013 15:20	Siki83	11.01.2013 15:20
Ešte ja som ... Keď to mám pekne spravené a funkčné po uložení a otvorení dokukentu tam mám aj obrá… Lukáš555 15.01.2013 07:05	Lukáš555	15.01.2013 07:05
Namiesto týchto piatich riadkov: If CheckBox1 = True Then ActiveSheet.Shapes("doprava_zdarma").Visi… poslední los 15.01.2013 15:52	los	15.01.2013 15:52

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.

doprava-zdarma.xls 107.50 KiB

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"
[http://pc.poradna.net/file/view/12318-vystrizek-pn g]

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

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

vystrizek.png 38.86 KiB

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ť!

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

Zpět do poradny Odpovědět na původní otázku Nahoru