Assistent
25.05.2004 12:17:46
Matthias
der folgende Code laeuft zwar, aber der Assistent spricht nicht!
Sub AssistantSpricht()
With Assistant.NewBalloon
.Heading = "Test!"
.Text = "Schau mal:"
.Labels(1).Text = "Label1"
.CheckBoxes(1).Text = "Checkbox1"
.Button = msoButtonSetYesNo
If .Show = msoBalloonButtonYes Then
MsgBox "Yes"
Else
MsgBox "No"
End If
End With
End Sub
Woran kann das liegen?
Gruss und Danke
Matthias