unsichtbares Bild verschieben
06.01.2005 13:38:24
Alex
Ich habe in meine Mappe 2 Bilder, welche übereinander liegen und je nach Auswahl in Zelle A71 das eine oder das andere Bild sichtbar ist. Das andere wird dann immer unsichtbar geschaltet. Wenn der User nun auf den Button für das untere Makro klickt verschiebt sich das, je nach Auswahl in Zelle A71, gewählte Bild um 1 nach oben.
Ich möchte aber, dass sich jeweils das unsichtbare Bild, welches also nicht gewählt wurde, mitverschiebt. So dass die Bilder wirklich immer übereinander liegen. Wie kann ich ein unsichtbares Bild verschieben ohne es auszuwählen? Der Befehl "Range" bringt da immer ein Fehler.
Danke schonmal
MfG
Alex
Sub UP()
' UP Makro
Sheets("Tabelle1").Range("D90") = Sheets("Tabelle1").Range("D90") + 1
' Sammelspiegel
If ActiveSheet.Cells(71, 1) = 1 Then
ActiveSheet.Shapes("Picture 74").Select
Selection.ShapeRange.IncrementTop -1#
ActiveSheet.Shapes("Line 45").Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = [b90]
ActiveSheet.Shapes("Line 48").Select
Selection.ShapeRange.Rotation = [b91]
Else
'Streuspiegel
ActiveSheet.Shapes("Picture 63").Select
Selection.ShapeRange.IncrementTop -1#
ActiveSheet.Shapes("Line 45").Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Rotation = [b90]
ActiveSheet.Shapes("Line 48").Select
Selection.ShapeRange.Rotation = [b91]
End If
Range("B4").Select
End Sub