Vymazání obsahu zaškrkávacího pole Vyřešeno

Programy pro práci v kanceláři (Word, Excel, Access…=>Office)

Moderátor: Mods_senior

luko02420
Level 1.5
Level 1.5
Příspěvky: 119
Registrován: únor 12
Pohlaví: Nespecifikováno

Vymazání obsahu zaškrkávacího pole

Příspěvekod luko02420 » 26 zář 2018 09:31

Dobrý den, opět potřebuji poradit s VBA. Potřeboval bych poradit jak vymazat makrem obsah zaškrkávacího pole. Našel jsem jenom kod na vymazání celého "Checkboxu".
Pujde to prosím nejak upravit aby mi to vymazalo jenom obsah.
Děkuji.
PS: políček budu mit 7

Kód: Vybrat vše

Sub RemoveCheckboxes()
On Error Resume Next
ActiveSheet.CheckBoxes.Delete
Selection.FormatConditions.Delete
End Sub



Reklama
Uživatelský avatar
elninoslov
Level 2
Level 2
Příspěvky: 167
Registrován: červen 13
Pohlaví: Muž

Re: Vymazání obsahu zaškrkávacího pole

Příspěvekod elninoslov » 26 zář 2018 11:02

Čo máte na mysly pod pojmom "obsah zaškrtávacieho poľa" ? Fajku? Text ? Tu sú ukážky pre obe.
Za predpokladu, že poznáte ich názov, tak takto hromadne (všetky sa teraz volajú "PolickoX", kde X je číslo):

Kód: Vybrat vše

Sub VymazPopiskyCB()
Dim CB As Shape
    For Each CB In Shapes
        If Left$(CB.Name, 7) = "Policko" Then CB.DrawingObject.Caption = ""
    Next CB
End Sub


Kód: Vybrat vše

Sub VymazHodnotyCB()
Dim CB As Shape
    For Each CB In Shapes
        If Left$(CB.Name, 7) = "Policko" Then CB.OLEFormat.Object.Value = -4146
    Next CB
End Sub
Nemáte oprávnění prohlížet přiložené soubory.

luko02420
Level 1.5
Level 1.5
Příspěvky: 119
Registrován: únor 12
Pohlaví: Nespecifikováno

Re: Vymazání obsahu zaškrkávacího pole  Vyřešeno

Příspěvekod luko02420 » 26 zář 2018 13:11

Dobrý den, ano mám na mysli Fajku. To co jste poslal je přesně to co potřebuji. Ale uz me z toho jde hlava kolem nemuzu to nejak rozchodit. Mrkne prosim kde delam chybu. Jo a jeste jeden dotaz? Je to Vase makro nejak vazany na umistení policka nebo muze byt kdekoliv na liste?
Děkuji za ochotu

PS: Už jsem na to přišel, jsem asi uz uplne blby.
Tímto uzavírám a jeste jednou moc dekuji
Nemáte oprávnění prohlížet přiložené soubory.


  • Mohlo by vás zajímat
    Odpovědi
    Zobrazení
    Poslední příspěvek
  • Transponování pole hodnot
    od Kurimak » 23 srp 2018 06:34 » v Kancelářské balíky
    4
    633
    od Kurimak
    24 srp 2018 08:33
  • LibreOffice - Zkopírovat vyznačení pole
    od vhjfghdbfgvg » 26 zář 2018 13:03 » v Kancelářské balíky
    1
    512
    od faraon
    26 zář 2018 19:40
  • vymazání textového dokumentu
    od gunslayer » 11 úno 2018 14:01 » v Vše ostatní (sw)
    3
    309
    od cunik.cz
    11 úno 2018 14:48
  • vymazání windows zavaděče
    od mafian » 07 zář 2018 11:12 » v Windows 10, 8, 7, Vista, XP…
    6
    646
    od zeus
    20 zář 2018 22:07
  • Vymazání čipu TPM (Windows Defendef)
    od Elwis07 » 24 čer 2018 17:10 » v Windows 10, 8, 7, Vista, XP…
    0
    389
    od Elwis07
    24 čer 2018 17:10

Zpět na “Kancelářské balíky”

Kdo je online

Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 0 hostů