Assitenten Position
12.05.2006 16:43:27
Swen
ich benutze folgenden Code um den Assistent was sagen zulassen was ich möchte!
Function ShowAssistentA(strText As String)
Dim oBln As Office.Balloon
Dim bln As Boolean
bln = Assistant.Visible
Assistant.Visible = True
Set oBln = Application.Assistant.NewBalloon
With oBln
.Text = strText
.Show
End With
Assistant.Visible = bln
End Function
Gibt es eine Möglichkeit das der Assistent dann in der mitte des Bildschirms aufpoppt?
Gruß
Swen
Anzeige