Probleme mit dem Assistenten
12.05.2004 09:02:56
Thomas
ich nutze anstatt einer UserForm den Office Assistenten zur Anzeige einer Auswahl. Allerdings habe ich jetzt Probleme mit den verschiedenen Office - Versionen. Ich habe dann folgendes versucht
Private asTitle As String
Private asOn As Boolean
Private asVisible As Boolean
Private oBlase As Balloon
Private Sub cmdFunktionen_Click()
asTitle = "Bitte wählen Sie eine Funktion"
If Application.Version = "10.0" Then
asOn = Assistant.On
End If
asVisible = Assistant.Visible
If Application.Version = "10.0" Then
Assistant.On = True
End If
Assistant.Visible = True
Assistant.Animation = msoAnimationAppear
Select Case BlaseAnzeigen
Case -2
HappyEnd
Case 1
Information
Case 2
Vorschläge
Case 3
Einlesen
Case 4
Benötigt
Case 5
Auswahl
End Select
HappyEnd
End Sub
Unter XP läuft alles ohne Probleme, nur 97 mag die Zeilen mit on nicht. Dokumentiert man diese aus, läuft auch das. Ich habe es dann über das auslesenden der Excel - Version probiert. Allerdingsweigert sich 97 überhaupt zu laufen und meldet schon Fehler während des kompilierens.
Wie kann ich das Problem umgehen ?
Thomas
Anzeige