Shapes nur im selektierten Bereich aktivieren
18.01.2015 20:40:03
Lutz
leider habe ich mal wieder ein Problem bei dem mir die Recherche nicht weitergeholfen hat.
Ich möchte einen Bereich manuell selektieren z.B. A1:O6 und dort alle Shapes aktivieren damit ich sie ändern kann.
Ich habe 2 Codes im Internet gefunden die aber beide nicht fuktionieren:
Sub all_ObjekteRange()
Dim objShp As Shape
Dim rng As Range
Set rng = Selection
For Each objShp In ActiveSheet.Shapes
If Not Intersect(objShp.TopLeftCell, rng) Is Nothing Then objShp.Select
Next
Set rng = Nothing
End Sub
Sub all_ObjekteRange2()
Dim oobElement As OLEObject
For Each oobElement In ActiveSheet.OLEObjects
If oobElement.Top > Selection.Top And oobElement.Left > Selection.Left And _
(oobElement.Top + oobElement.Height Vielen Dank und viele Grüße
Lutz