Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

objekt array

Forumthread: objekt array

objekt array
14.11.2007 09: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 09:58:09
Kawensmann
Hallo,
geht aber auch einfacher:
Activesheet.Shapes.SelectAll
Gruß
Kawensmann

AW: objekt array
14.11.2007 11: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 14: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

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige