Werte ueber frm ein/ausblenden
13.11.2004 14:16:13
marc
ich moechte in einer UserForm ueber Image eine Grafik dynamisch einblenden und
ausblenden.
In einer Mappe habe ich damit keine Probleme.Nun will ich das gleiche in einer
UserForm leider - ohne Erfolg.
kann mir jemand weiterhelfen ?
marc.
Option Explicit
Declare Sub Sleep Lib "Kernel32" (ByVal Zeit As Long)
Dim z As Byte
Private Sub cmdEin_Click()
frmFehler.Image2.ChartObjects("Diagramm 6").Visible = True
Sleep 1000
Sheets("chart").Rows("3:8").Hidden = True
For z = 3 To 8
Sheets("chart").Rows(z).Hidden = False
Sleep 1000
Next
End Sub
Private Sub cmdAus_Click()
Sheets("chart").Rows("3:8").Hidden = True
frmFehler.Image2.ChartObjects("Diagramm 6").Visible = False
End Sub