Objects löschen per VB

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Objects löschen per VB
von: golem
Geschrieben am: 12.11.2003 14:48:17

Hallo Forum,
wie kann man alle Objekte eines Tabellenblatts löschen.
Unter Objekte verstehe ich Commandbuttons, Diagramme etc , Textfelder, etc...

Ist es möglich gezielt nur alle Commandbuttons oder nur alle Diagrame (aber keine Buttons) zu löschen?


mfg
Golem

Bild


Betrifft: AW: Objects löschen per VB
von: nike
Geschrieben am: 12.11.2003 15:10:20

Hi,
wirst wohl über die Liste gehen müssen,
kanns nicht testen, wird aber so oder so ähnlich laufen:

Sub test()
dim con as OLEObject
for each con in activesheet.OLEObjects
if left(con,3)<>"Com" then 'die ersten drei Buchstaben von CommandButton
con.delete
end if
next
End Sub


Bye

Nike


Bild


Betrifft: AW: Objects löschen per VB
von: golem
Geschrieben am: 12.11.2003 15:15:48

Funkt leider nicht so ganz, in der if abfrage kommt Fehler: Objekt unterstützt diese Eigenschaft nicht...

Werde es weiter testen...


Bild


Betrifft: AW: Objects löschen per VB
von: GerdW
Geschrieben am: 12.11.2003 15:47:11

Am besten über Shape.Type

Gerd


Bild


Betrifft: AW: Objects löschen per VB
von: golem
Geschrieben am: 12.11.2003 16:17:05

Was ist das denn und wie baut man den ein?

Gruß
Goli


Bild


Betrifft: AW: Objects löschen per VB
von: GerdW
Geschrieben am: 12.11.2003 16:20:36

Also das sollte bei deinem VBA- Level und mit der Hilfe
kein Problem sein.

Gerd


Bild


Betrifft: Danke für Dein Vertrauen o.T.
von: golem
Geschrieben am: 13.11.2003 08:52:20




Bild


Betrifft: AW: Danke für Dein Vertrauen o.T.
von: Nike
Geschrieben am: 13.11.2003 10:19:00

Hi,
mal bei Goolge mit diesem Suchbegriff:
shapes delete site:herber.de
gesucht
und dabei auf das hier gestossen:
https://www.herber.de/forum/archiv/316to320/t316585.htm

Bye

Nike


Bild


Betrifft: Danke, werde gleich mal reinschauen o.T.
von: golem
Geschrieben am: 13.11.2003 10:42:12




Bild

Beiträge aus den Excel-Beispielen zum Thema " Daten nach Speicherung wiederherstellen ?"