Objects löschen per VB

Forumthread: Objects löschen per VB
8 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Objects löschen per VB

12.11.2003 15:48:17

golem

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

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Objects löschen per VB

12.11.2003 16:10:20

nike
AW: Objects löschen per VB

12.11.2003 16:15:48

golem
AW: Objects löschen per VB

12.11.2003 16:47:11

GerdW
AW: Objects löschen per VB

12.11.2003 17:17:05

golem
AW: Objects löschen per VB

12.11.2003 17:20:36

GerdW
Danke für Dein Vertrauen o.T.

13.11.2003 09:52:20

golem
AW: Danke für Dein Vertrauen o.T.

13.11.2003 11:19:00

Nike
Danke, werde gleich mal reinschauen o.T.

13.11.2003 11:42:12

golem

AW: Objects löschen per VB

12.11.2003 16:10:20

nike

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

AW: Objects löschen per VB

12.11.2003 16:15:48

golem

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

Werde es weiter testen...

AW: Objects löschen per VB

12.11.2003 16:47:11

GerdW

Am besten über Shape.Type

Gerd

AW: Objects löschen per VB

12.11.2003 17:17:05

golem

Was ist das denn und wie baut man den ein?

Gruß
Goli

AW: Objects löschen per VB

12.11.2003 17:20:36

GerdW

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

Gerd

Danke für Dein Vertrauen o.T.

13.11.2003 09:52:20

golem

AW: Danke für Dein Vertrauen o.T.

13.11.2003 11:19:00

Nike

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

Danke, werde gleich mal reinschauen o.T.

13.11.2003 11:42:12

golem

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!