ich hätte wieder ein problem. gibt es eine möglichkeit, alle objekte in einem tabellenblatt zu markieren ausser die befehlsschaltflächen? wäre super wenn ihr mir da helfen könntet
Sub ttt()
Dim i As Long, myArray()
ReDim myArray(4 To ActiveSheet.Shapes.Count)
For i = 4 To ActiveSheet.Shapes.Count
myArray(i) = i
Next i
ActiveSheet.Shapes.Range(myArray).Select
End Sub
Gruss
Sub ttt()
Dim i As Long, myArray()
With ActiveSheet.Shapes
ReDim myArray(4 To .Count)
For i = 4 To .Count
myArray(i) = i
Next i
.Range(myArray).Select
End With
End Sub
Über die Namen '.Name' kannst Du auch die Auswahl treffen, dann das Feld dimensionieren und besetzen.
Wie der Typ des Shapes erfragt wird, müsste ich selber recherchieren ... vielleicht meldet sich ja noch jemand - vielleicht mit einem anderen (besseren) Ansatz ...
Gruss
Sub cc()
MsgBox ActiveSheet.OLEObjects(3).Name 'Name des Shapes, über Eigenschaften änderbar
MsgBox ActiveSheet.Shapes(3).Name 'Name des Shapes, über Eigenschaften änderbar
MsgBox TypeName(ActiveSheet.OLEObjects(3).Object) 'Typ, z.B. Textbox, nicht änderbar
End Sub
Sub ddd()
Dim ole As OLEObject
For Each ole In ActiveSheet.OLEObjects
MsgBox TypeName(ole.Object)
Next
End Sub