Zwischenablage leeren
01.08.2023 20:52:55
MeddlLeute
ich habe folgendes Problem:
Bei meiner Makrogespikten Excel, spuckt er mir die Fehlermeldung "Das Bild ist zu groß und wird abgeschnitten " aus.
Anscheinend ist der Zwischenspeicher proppenvoll.
Um den zu leeren gibt sogar eine Musterlösung im Internet:
'diesen Teil in ein Modul
Private Declare Function OpenClipboard& Lib "user32" (ByVal hwnd As Long)
Private Declare Function EmptyClipboard Lib "user32" () As Long
Private Declare Function CloseClipboard& Lib "user32" ()
Public Sub ClearClipboard()
OpenClipboard 0&
EmptyClipboard
CloseClipboard
End Sub
'diesen Teil mit Makroausführung in die Arbeitsmappe
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ClearClipboard
End Sub
Leider kriege ich die Fehlermeldung:
"Der Code in diesem Projekt muss für die Verwendung auf 32-Bit-Systemen aktualisiert werden. Überarbeiten und aktuallisieren Sie Declare-Anweisungen und markieren Sie sie mit dem PtrSafe-Attribut"
Verstehe leider nur Bahnhof.
Habt ihr eine Lösung? Sowohl für das Problem als auch für das Grundlegende Problem =)
Schöne Grüße und Danke!
