| |
| MDG Engineering Nutzt Xometry, Um Medizinische Geräte Zu Bauen Und Das Globale Wachstum Voranzutreiben, ein Anwenderbericht
|
Autor
|
Thema: Hyperlinks und icons entfernen (2262 mal gelesen)
|
UGMANX Mitglied
Beiträge: 182 Registriert: 11.10.2005 UG NX3 SolidWorks office Professional 2006 CINEMA 4D R9
|
erstellt am: 13. Nov. 2007 17:16 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, wer kann mir helfen, ich habe mehrere Excel-Datenblätter worin Hyperlinksund icons sind, wie kann ich das Excel-Blatt bereinigen. Vielen dank im voraus für eure Hilfe. mgfg UGMANX
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Paulchen Mitglied Bauing./SW-Entwickler
Beiträge: 1227 Registriert: 19.08.2004 Büro: Win10 Enterprise 64bit, Office Professional Plus 2013 - Privat: Linux Mint 15, LibreOffice
|
erstellt am: 13. Nov. 2007 17:58 <-- editieren / zitieren --> Unities abgeben: Nur für UGMANX
Guten Abend, nehme mal an, mit "bereinigen" meinst Du die 'Hyperlinks und die Icons entfernen'? Wie wär's mit markieren und löschen - kommt darauf an, wieviele Du mit "mehrere" meinst; oder für die Hyperlinks per VBA mit diesem Code: Selection.Hyperlinks.Delete
Das löscht nur den link, nicht aber den Text. Bei den Icons fällt mir nur das Löschen per Hand ein. Lohnt der Aufwand, da was mit VBA zu basteln, sprich: Brauchst Du das noch öfter? Oder ist's 'ne einmalige Sache?Gruß, Frederik ------------------ DIN1055.de | Lastannahmen für Anwender Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
UGMANX Mitglied
Beiträge: 182 Registriert: 11.10.2005 UG NX3 SolidWorks office Professional 2006 CINEMA 4D R9
|
erstellt am: 13. Nov. 2007 18:05 <-- editieren / zitieren --> Unities abgeben:
|
okl Mitglied Wirtsch-Ing (Maschbau)
Beiträge: 157 Registriert: 21.04.2006 3,6 GHz, 2 GB RAM, NVIDIA Quadro FX 1300, Delmia V5R16 SP1, Win XP Prof SP2, Office 2003, VS 2005, VB 6
|
erstellt am: 13. Nov. 2007 18:47 <-- editieren / zitieren --> Unities abgeben: Nur für UGMANX
Moin! Mit VBA und dem folgenden niedlichen kleinen Dreizeiler werden alle Steuerelemente (ich habe das als Icon verstanden) gelöscht. Code: For Each Item In ActiveSheet.Shapes Item.Delete Next
Bei Fragen, fragen!!! Edit: So geht das auch mit den Hyperlinks
Code: For Each Item In ActiveSheet.Hyperlinks Item.Delete Next
Aber Achtung: je mehr Items vorhanden sind, desto länger dauert es!!! Und das hat bei mir (10^5 Hyperlinks und Steuerelemente mal testweise hinzugefügt und wieder gelöscht) eín paar Augenblicke dauern (so ca. 2,5 min). Grüße, Ole [Diese Nachricht wurde von okl am 13. Nov. 2007 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Beverly Mitglied Dipl.-Geologe (Rentner)
Beiträge: 395 Registriert: 11.08.2007
|
erstellt am: 13. Nov. 2007 20:00 <-- editieren / zitieren --> Unities abgeben: Nur für UGMANX
Hi, die einfachste Möglichkeit Sub shapes_loeschen() ActiveSheet.Shapes.SelectAll Selection.Delete End Sub Sub hyperlinks_loeschen() ActiveSheet.Hyperlinks.Delete End Sub
------------------ Bis später, Karin Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |