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

[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

[Reklama]

[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 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

[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