Tests, Meinungen, Beiträge

Um schnell und einfach viele unbenötigte Textfelder auf einem Tabellenblatt zu löschen, könnt ihr dieses Script verwenden.

Als Kommentar sind auch Anweisungen enthalten, um die Textfelder mit Text zu befüllen. Diese könnt ihr für Testzwecke verwenden. Einfach das ‚-Zeichen entfernen und in der Zeile mit der Löschanweisung (.Delete) am Anfang ein ‚-Zeichen einfügen.

Private Sub RemoveTextBoxes() 
  Dim counter counter = 0 
  Dim shp As Shape 
  For Each shp In Tabelle1.Shapes 
    If shp.Type = msoTextBox Then 
      counter = counter + 1 
      shp.Delete 
      'shp.TextFrame.Characters.Text = CStr(counter) 
    End If 
  Next 
  Debug.Print (" Deleted " + CStr(counter) + " TextBoxs")
End Sub


Letzte Kommentare