Grafik in den Hintergrund
19.09.2002 13:23:14
smiley
Bei anklicken einer der Combo-Boxen sollen alle kleinen -grafiken in den Hintergrund verschwinden.
Bei anklicken der Befehlsschaltfläche soll dir richtige Grafik nach vor geholt werden.
Mein Ansatz(voerst für nur eine Grafik), der leider nicht funktioniert hat:
Private Sub Combobox1_Click()
ActiveSheet.Shapes("Autoform 13").Select
Selection.ShapeRange.ZOrder msoSendToBack
End Sub
Private Sub CommandButton2_Click()
If ActiveSheet.Cells(11, 2) = "3,7" Then ActiveSheet.Shapes("AutoForm 13").Select
Selection.ShapeRange.ZOrder msoSendToFront
End Sub
Findet von Euch jemand den Fehler
Anzeige