Dialog 'Inhalte löschen' per VBA ausblenden
13.01.2004 09:07:00
MikeS
ich bilde für die Benutzer von Excel97 die Eigenschaft ShowModal = False nach,
damit nach Drücken des Buttons cmdZwischenablage Excel minimiert wird und ich den
Inhalt der Zwischenablage in eine andere Anwendung einfügen kann.
Das funktioniert auch alles soweit, aber leider blinkt das minimierte Excel-Symbol
In der Task-Leiste.
Klicke ich drauf, wird Excel wieder maximiert und ich sehe die DialogBox Inhalte löschen.
Wie kann ich das Zeigen des Dialogs vermeiden, da ich diesen Dialog
nur benötige, um ShowModal = False nachzubilden, da ich diesen nur
zum Minimieren des Excel-Fensters brauche???
Mein Code:
Private Sub UserForm_Activate()
Application.ScreenUpdating = False
On Error Resume Next
'Nachbildung 'ShowModal = False'
If Left(Application.Version, 1) = 8 Then
SendKeys "{Esc}": Application.Dialogs(xlDialogClear).Show
SendKeys "{Esc}": Application.Dialogs(xlDialogDemote).Show
End If
Application.ScreenUpdating = True
End Sub
Private Sub cmdZwischenablage_Click()
Application.ScreenUpdating = False
With frmHaupt
.fraMöbelstring.Enabled = False
.lblMöbelstring.Enabled = False
.cmdZwischenablage.Enabled = False
.lblMeldung1.Caption = "Der String ist in der Zwischenablage!"
End With
Set Zwischenablage = New DataObject
Zwischenablage.SetText frmHaupt.lblMöbelstring.Caption
Zwischenablage.PutInClipboard
Unload Me
With frmHintergrund
.fraHintergrund.Visible = True
.optMöbel.Value = False
.optVerbund.Value = False
.optEnde.Value = False
End With
'Excel minimieren (s.Activate-Ereignis der UF)
Application.WindowState = xlMinimized
Application.ScreenUpdating = True
End Sub
Vielen Dank
MikeS
Anzeige