Shapes selektieren

Forumthread: Shapes selektieren

Shapes selektieren

19.08.2005 00:31:11

Jochen

Hi,
wie kann man alle Shapes eines bestimmten Typs, z.B. alle Linien selektieren,
um sie dann gemeinsam zu verschieben? Mit Gehe zu...OBjekt kann ich nur alle
auswählen. Geht ja mit Strg und Mausklick, aber bei 100 Linien ist das nervig.
Grüße Jochen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Shapes selektieren

19.08.2005 00:40:44

Nepumuk
Cool, danke oT

19.08.2005 02:32:03

Jochen

AW: Shapes selektieren

19.08.2005 00:40:44

Nepumuk

Hi Jochen,
alle Linien:
Public Sub prcSelectAllLines()
    Dim objShape As Shape
    For Each objShape In ActiveSheet.Shapes
        If objShape.Type = msoLine Then objShape.Select Replace:=False
    Next
End Sub

Gruß
Nepumuk
Excel & VBA Beispiele

Cool, danke oT

19.08.2005 02:32:03

Jochen

Forumthread: Shapes selektieren

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread