Optional hyphen: Shortcut Ctrl + hyphen isn't working any longer

Das scheint wohl ein Bug bei der Shortcut-Anzeige zu sein. Der korrekte Shortcut ist wohl Ctrl-Shift-J

Die Shortcuts lassen sich in OneNote nicht ändern. Einzige Abhilfe: Einen viel genutzten Befehl in die Schnellstartleiste packen und dann mit Ctrl+1 bis Ctrl + <n> arbeiten, je nach Position des Befehls in der Leiste.

Hallo OliverKunzPsy,

Es gibt leider keinen Tool zu dieser spezifischen Abfrage.

Die Alternative, die ich dir empfehlen kann, wäre die Einträge mit dem Shortcut
CTRL + F auf beiden Dateien zu suchen und mit dem selben Shortcut auf der anderen Datei zu finden.

Hier
hast du mehr Info über Shortcuts.

Mit freundlichen Grüßen,

Angela.

Hi,

when the cursor (focus) is somewhere on the form the shortcut for the search box is: [Ctrl]+[Shift]+[F]

Ich habe eine Vermutung:

Die Doppelklick-Konfiguration des Stifts wird wohl intern auf den Shortcut WIN+SHIFT+S abgebildet.

Seit der Win10-Version Creators Update wird dieser Shortcut von Windows selbst verwendet (ein bekanntes Problem). Die Reaktion ist, wie von Dir beschrieben. Dass nichts passieren würde, stimmt nicht. Der Screenshot ist anschliessend in der Zwischenablage
und kann von dort mit CTRL+V eingefügt werden.

Bernd

Wie würdest Du das mit der Userform machen? Im Prinzip ist mir das wurscht was für ein Fenster ich nehme, Hauptsache Excel bleibt im Hintergrund, das ist wichtig!

Ich hab schon was probiert, Code ist unten dran, geht mit MsgBox/InputBox/Userform, aber leider nicht optimal.



BTW, so mal zum Ablauf:

Ich habe in der Exceltabelle eine Art Scriptsprache, mit Kommandos wie FindWindow, FindChild, SendKey, ReadChild, Evaluate, etc. und kann damit das ganze dynamisch gestalten.

Über meine programmierbare Tastatur rufe ich ein VBS-Script mit Argumenten auf, dieses baut die Verbindung via GetObject zu Excel auf und startet das Makro mit dem Argument, dieses Makro sucht das gewünschte Script und führt es aus.

Der Haken beim dem sch... ERP-System ist das Du 10 bis 20 Fenster auf dem Bildschirm hast um überhaupt alle Informationen sehen und eingeben zu können.

Wenn mein Makro nun läuft, dann liegt Excel hinter all diesen Fenstern und soll auch da bleiben! Und trotzdem möchte ich dem User eine Meldung anzeigen, bzw. einen Wert abfragen können.



Eine Userform wäre schick, dann könnte ich auch mit Listboxen u.dgl. arbeiten.

Ich hab bisher versucht über einen Timer die Box mit dem TOPMOST Style zu versehen, das geht auch, hat aber einen doofen Haken:



Bevor ich die Box aufrufe MUSS ich zwingend einmal Excel in den Vordergrund bringen, sonst ist die Box nicht über dem Fenster zu sehen. Ich knall den Code mal unten dran, ganz ganz unten ist ein lauffähiges Beispiel Sub Example_Box()

Öffne vorher Notepad als normales Fenster (nicht mini-/maximiert) und schiebs irgendwo auf den Schirm, darüber wird/soll die Box angezeigt werden.

Wenn Du die Zeile

SetForegroundWindow hWndApp 'Excel aktivieren

in der Function MsgBoxA auskommentierst, dann erscheint die Box nicht mehr über dem Fenster. Schaltest Du dann manuell kurz auf den Exceltask, dann erscheint die Box.

Vielleicht kann ich einen Kompromiss machen und Excel minimieren wenn mein Script startet, dann fällt das Umschalten des Tasks nicht mehr auf...



Im Moment teste ich einen Code der via RegisterClass und CreateWindowEx ein Fenster erzeugt, das ist perfekt, allerdings ist der Code nur rudimentär, das ganze Handling fehlt.

http://www.vbarchiv.net/api/api_createwindowex.html



Andreas.





'Version 1.1

'26.01.2012

'

Option Explicit

'http://msdn.microsoft.com/en-us/library/windows/desktop/ms633545(v=vs.85).aspx

Private hWndApp As Long 'Handle to our application

Private hWndMsgBox As Long 'Handle to the MsgBox / InputBox / UserForm

Private hWndEditBox As Long 'Handle to the Edit field inside the InputBox

Private hWndParent As Long 'Handle to the outside window

Private Enum SetWindowPosFlags

SWP_ASYNCWINDOWPOS = &H4000

SWP_DEFERERASE = &H2000

SWP_FRAMECHANGED = &H20

SWP_DRAWFRAME = SWP_FRAMECHANGED

SWP_HIDEWINDOW = &H80

SWP_NOACTIVATE = &H10

SWP_NOCOPYBITS = &H100

SWP_NOMOVE = &H2

SWP_NOOWNERZORDER = &H200

SWP_NOREDRAW = &H8

SWP_NOREPOSITION = SWP_NOOWNERZORDER

SWP_NOSENDCHANGING = &H400

SWP_NOSIZE = &H1

SWP_NOZORDER = &H4

SWP_SHOWWINDOW = &H40

End Enum

Private Enum SpecialWindowHandles

HWND_TOP = 0

HWND_BOTTOM = 1

HWND_TOPMOST = -1

HWND_NOTOPMOST = -2

End Enum

Private Declare Sub SetWindowPos Lib "user32" ( _

ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _

ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

Private Declare Function GetActiveWindow Lib "user32" () As Long

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" ( _

ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" ( _

ByVal hWnd1 As Long, ByVal hwnd2 As Long, ByVal lpsz1 As String, _

ByVal lpsz2 As String) As Long

Private Declare Function GetForegroundWindow Lib "user32" () As Long

Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long

Private Declare Function GetParent Lib "user32" (ByVal hWnd As Long) As Long

Private Declare Function SetParent Lib "user32" ( _

ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long

Private Const nIDE As Long = &H100

Private Declare Function SetTimer Lib "user32" ( _

ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, _

ByVal lpTimerFunc As Long) As Long

Private Declare Function KillTimer Lib "user32" ( _

ByVal hWnd As Long, ByVal nIDEvent As Long) As Long

Private Const EM_SETPASSWORDCHAR = &HCC

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" ( _

ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const HORZRES = 8

Private Const VERTRES = 10

Private Declare Function GetDC Lib "user32" (ByVal hWnd As Long) As Long

Private Declare Function ReleaseDC Lib "user32" ( _

ByVal hWnd As Long, ByVal hDC As Long) As Long

Private Declare Function GetDeviceCaps Lib "gdi32" ( _

ByVal hDC As Long, ByVal nIndex As Long) As Long

Private Type RECT

Left As Long

Top As Long

Right As Long

Bottom As Long

End Type

Private Declare Function GetWindowRect Lib "user32" ( _

ByVal hWnd As Long, lpRect As RECT) As Long

Private Const GWL_STYLE = (-16)

Private Const WS_OVERLAPPED = &H0&

Private Const WS_MINIMIZE = &H20000000

Private Const WS_MAXIMIZE = &H1000000

Private Enum WindowState

WS_NORMAL = WS_OVERLAPPED

WS_MINIMIZED = WS_MINIMIZE

WS_MAXIMIZED = WS_MAXIMIZE

End Enum

Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" ( _

ByVal hWnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" ( _

ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const WM_SYSCOMMAND As Long = &H112

Private Const SC_MAXIMIZE As Long = &HF030

Private Const SC_MINIMIZE As Long = &HF020

Private Const SC_RESTORE As Long = &HF120

Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" ( _

ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) _

As Long

Private Declare Function IsIconic Lib "user32" (ByVal hWnd As Long) As Long

Private Declare Function IsZoomed Lib "user32" (ByVal hWnd As Long) As Long

Private Function GetWindowState(ByVal hWnd As Long) As WindowState

Dim Style As Long

Style = GetWindowLong(hWnd, GWL_STYLE)

If (Style And WS_MINIMIZE) <> 0 Then

GetWindowState = WS_MINIMIZED

ElseIf (Style And WS_MAXIMIZE) <> 0 Then

GetWindowState = WS_MAXIMIZED

Else

GetWindowState = WS_NORMAL

End If

End Function

Private Sub SetWindowState(ByVal hWnd As Long, ByVal State As WindowState)

Dim Style As Long

Style = GetWindowLong(hWnd, GWL_STYLE)

Select Case State

Case WS_MAXIMIZED

'PostMessage hWnd, WM_SYSCOMMAND, SC_MAXIMIZE, 0

Style = Style Or WS_MAXIMIZE

SetWindowLong hWnd, GWL_STYLE, Style

Case WS_MINIMIZED

'PostMessage hWnd, WM_SYSCOMMAND, SC_MINIMIZE, 0

Style = Style Or WS_MAXIMIZE

SetWindowLong hWnd, GWL_STYLE, Style

Case Else

'PostMessage hWnd, WM_SYSCOMMAND, SC_RESTORE, 0

Style = Style Or WS_MAXIMIZE

PostMessage hWnd, WM_SYSCOMMAND, SC_MAXIMIZE, 0

End Select

End Sub

Private Function ScreenHeight() As Long

Dim hDC As Long

Static Value As Long

If Value = 0 Then

hDC = GetDC(0)

Value = GetDeviceCaps(hDC, VERTRES)

ReleaseDC 0, hDC

End If

ScreenHeight = Value

End Function

Private Function ScreenWidth() As Long

Dim hDC As Long

Static Value As Long

If Value = 0 Then

hDC = GetDC(0)

Value = GetDeviceCaps(hDC, HORZRES)

ReleaseDC 0, hDC

End If

ScreenWidth = Value

End Function

Private Function TimerFunc(ByVal hWnd As Long, ByVal wMsg As Long, _

ByVal nEvent As Long, ByVal nSecs As Long) As Long

Dim rParent As RECT, rMsgBox As RECT

Dim XPos As Long, YPos As Long, Width As Long, Height As Long

Dim wFlags As SetWindowPosFlags

If hWndMsgBox <> 0 Then Exit Function

hWndMsgBox = GetActiveWindow

If hWndMsgBox = 0 Then Exit Function

hWndEditBox = FindWindowEx(hWndMsgBox, 0, "Edit", "")

'PostMessage hWndEditBox, EM_SETPASSWORDCHAR, Asc("*"), 0&

GetWindowRect hWndParent, rParent

GetWindowRect hWndMsgBox, rMsgBox

With rParent

XPos = (.Right + .Left) / 2

YPos = (.Bottom + .Top) / 2

End With

With rMsgBox

Width = (.Right - .Left)

Height = (.Bottom - .Top)

XPos = XPos - Width / 2

YPos = YPos - Height / 2

End With

wFlags = SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOSIZE

If IsIconic(hWndParent) Then

'Center of the screen

XPos = ScreenWidth / 2 - Width / 2

YPos = ScreenHeight / 2 - Height / 2

Else

'Center of the window, but not outside of the screen

If XPos + Width > ScreenWidth Then XPos = ScreenWidth - Width

If YPos + Height > ScreenHeight Then YPos = ScreenHeight - Height

If XPos < 0 Then XPos = 0

If YPos < 0 Then YPos = 0

End If

SetWindowPos hWndMsgBox, HWND_TOPMOST, XPos, YPos, 0, 0, wFlags

'SetParent hWndMsgBox, hWndParent <= Did not work, positioning fails!

SetParent hWndMsgBox, 0

SetForegroundWindow hWndParent

DoEvents

SetForegroundWindow hWndMsgBox

DoEvents

End Function

Function InputBoxA(ByVal Prompt As String, _

Optional ByVal Title, _

Optional ByVal Default, _

Optional ByVal XPos, Optional ByVal YPos, _

Optional ByVal HelpFile, _

Optional ByVal HelpContextID) As Variant

hWndMsgBox = 0

hWndApp = FindWindow(vbNullString, Application.Caption)

hWndParent = GetForegroundWindow

SetForegroundWindow hWndApp

SetTimer hWndApp, nIDE, 100, AddressOf TimerFunc

InputBoxA = VBA.InputBox(Prompt, Title, Default, XPos, YPos, HelpFile, HelpContextID)

KillTimer hWndApp, nIDE

SetParent hWndMsgBox, hWndApp

SetForegroundWindow hWndParent

End Function

Function MsgBoxA(ByVal Prompt As String, _

Optional ByVal Buttons As VbMsgBoxStyle, _

Optional ByVal Title, _

Optional ByVal HelpFile, _

Optional ByVal HelpContextID, _

Optional ByVal XPos, Optional ByVal YPos) As VbMsgBoxResult

hWndMsgBox = 0

hWndApp = FindWindow(vbNullString, Application.Caption)

hWndParent = GetForegroundWindow

SetForegroundWindow hWndApp

SetTimer hWndApp, nIDE, 100, AddressOf TimerFunc

MsgBoxA = VBA.MsgBox(Prompt, Buttons, Title, HelpFile, HelpContextID)

KillTimer hWndApp, nIDE

SetParent hWndMsgBox, hWndApp

SetForegroundWindow hWndParent

End Function

'Function UserFormA(ByVal Prompt As String, _

' Optional ByVal Buttons As VbMsgBoxStyle, _

' Optional ByVal Title, _

' Optional ByVal HelpFile, _

' Optional ByVal HelpContextID, _

' Optional ByVal hWnd As Long, _

' Optional ByVal XPos, Optional ByVal YPos) As VbMsgBoxResult

' Dim SaveWindowState As WindowState

'

' hWndApp = FindWindow(vbNullString, Application.Caption)

' If hWnd = 0 Then

' hWndParent = GetForegroundWindow

' Else

' hWndParent = hWnd

' End If

' SaveWindowState = GetWindowState(hWndApp)

' SetWindowState hWndApp, WS_MINIMIZED

' 'Application.WindowState = xlMinimized

' SetForegroundWindow hWndApp

'

' hWndMsgBox = 0

' SetTimer hWndApp, nIDE, 100, AddressOf TimerFunc

'

' UserForm1.Show

'

' KillTimer hWndApp, nIDE

' SetParent hWndMsgBox, hWndApp

' SetForegroundWindow hWndParent

' 'Application.WindowState = SaveWindowState

' SetWindowState hWndApp, SaveWindowState

'End Function

Sub Example_Box()

Dim hWnd As Long

hWnd = FindWindow("Notepad", vbNullString)

If hWnd = 0 Then Err.Raise 5, , "Notepad not open!"

SetForegroundWindow hWnd

Do

Loop Until MsgBoxA("Abbruch für Ende", vbOKCancel) = vbCancel

End Sub