Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
924to928
924to928
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

objekt array

Forumthread: objekt array

objekt array
14.11.2007 08:29:24
schnierle
guten morgen zusammen,
ich würde gerne in einem tabellenblatt alle objekte auf einmal makieren und zwar über vba.
hat jemand eine idee wie man das hinkriegt? hab mal im archiv nachgeschaut und mir mal folgendes gebastelt:
Dim shape As Object, aDyn() As Object, i%
i = 1
For Each shape In ActiveSheet.Shapes
ReDim Preserve aDyn(i)
aDyn(i) = shape
i = i + 1
Next
ActiveSheet.Shapes.Range(aDyn).Select
funktioniert aber leider nicht. da ich mich in vba schlecht auskenne wäre ich sehr dankbar für hilfe

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: objekt array
14.11.2007 08:58:09
Kawensmann
Hallo,
geht aber auch einfacher:
Activesheet.Shapes.SelectAll
Gruß
Kawensmann

AW: objekt array
14.11.2007 10:41:00
schnierle
hallo kawensmann,
dein vorschlag is schon mal super. nur ein problem hab ich noch:
ich habe drei befehlsschaltflächen die es mir jedesmal mit selektiert. das würde ich gerne vermeiden, hast du da auch ne idee? wäre super.
gruß markus

Anzeige
AW: objekt array
14.11.2007 13:21:00
Kawensmann
Hallo,
der folgende Code löscht alle AutoShapes:

Sub DeleteShapes()
Dim s As Shape
For Each s In ActiveSheet.Shapes
If s.Type = 1 Then s.Delete
Next
End Sub


Gruß
Kawensmann

;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige