Vymazání obsahu zaškrkávacího pole
Napsal: 26 zář 2018 09:31
od luko02420
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
Re: Vymazání obsahu zaškrkávacího pole
Napsal: 26 zář 2018 11:02
od elninoslov
Č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 SubKó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
Re: Vymazání obsahu zaškrkávacího pole Vyřešeno
Napsal: 26 zář 2018 13:11
od luko02420
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