Grund für Fehlermeldung

19/10/2007 - 19:51 von Frank Lauter | Report spam
Hallo NG!

Könnte mal bitte jemand über die folgenden Codezeilen sehen, warum diese zu
einem Fehler führen? Ich vermute, es ist eine Kleinigkeit, aber ich sehe es
gerade nicht.

Hintergrund für die Zeilen:
Auf einem Tabellenbatt liegen mehrere Shapes. Ich möchte zu einem markierten
Shape alle Shapes des selben Typs markieren.

Schon mal vielen Dank für eure Mühe.

Ein schönes Wochenende

Frank


Public Sub AllShapesSameTypeSelect()
' Ein Shape muss markiert sein, dann werden alle Shapes des selben Typs
markiert.

On Error GoTo sherr

Dim varcol()
Dim i As Integer
Dim sp As Shape
Dim varType As MsoShapeType
Dim varAutoShapeType As MsoAutoShapeType

ReDim varcol(ActiveSheet.Shapes.Count)

varType = Selection.ShapeRange.Type
varAutoShapeType = Selection.ShapeRange.AutoShapeType

For Each sp In ActiveSheet.Shapes
If sp.Type = varType And sp.AutoShapeType = varAutoShapeType Then
varcol(i) = sp.GroupItems
i = i + 1
End If
Next sp

ReDim Preserve varcol(i - 1)

ActiveSheet.Shapes.Range(varcol).Select

Exit Sub
sherr:
MsgBox Err.Description, vbOKOnly, "Fehler " & Err.Number
End Sub

Der Fehler tritt beim Markierungsversuch auf.
 

Lesen sie die antworten

#1 Melanie Breden
19/10/2007 - 21:54 | Warnen spam
Hallo Frank,

"Frank Lauter" schrieb:

Auf einem Tabellenbatt liegen mehrere Shapes. Ich möchte zu einem
markierten
Shape alle Shapes des selben Typs markieren.

varcol(i) = sp.GroupItems



bei mir funktioniert folgende Sntax:
varcol(i) = sp.Name


Mit freundlichen Grüssen
Melanie Breden

- Microsoft MVP für Excel -
www.melanie-breden.de

Ähnliche fragen