Grafik anzeigen durch Klicken auf Command Button
24.01.2005 15:07:19
Doro
die bisherigen Antworten waren schon sehr hilfreich und jetzt erscheint die Grafik auch, wenn ich auf eine bestimmte Zelle klicke.
Mit dem folgenden Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
ActiveSheet.Shapes("Rectangle 2").Select
Selection.ShapeRange.ZOrder msoSendToBack
End If
If Not Intersect(Target, Range("A2")) Is Nothing Then
ActiveSheet.Shapes("Rectangle 2").Select
Selection.ShapeRange.ZOrder msoBringToFront
End If
End Sub
Dennoch würde ich es gerne noch perfektionieren und eventuell einen CommandButton anstatt einer Zelle verwenden.
Finde ich nochmals so perfekte Hilfe hier?
Lieben Gruß
Doro
Anzeige