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
Kód: Vybrat vše
Sub RemoveCheckboxes()
On Error Resume Next
ActiveSheet.CheckBoxes.Delete
Selection.FormatConditions.Delete
End Sub
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
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 7 hostů