Wie kann ich das Kopieren als Bild in Excel deaktivieren?

494
Superole

Vor kurzem scheint es, als hätte Excel für den Hotkey Ctrl+ ein Image als Standard festgelegt C(tatsächlich scheint es, den formatierten Text, die Tabellenzellendaten und ein Druckansichtsbild gleichzeitig in die Zwischenablage zu kopieren).

Dies ist schlecht, wenn Sie über einen Workflow verfügen, in dem Sie Daten aus Excel kopieren und in eine andere MS Office-App oder in ein Web-Formular in Google Chrome einfügen. In diesem Fall wird der vollste verfügbare Inhalt standardmäßig mit Ctrl+ Veingefügt. In Atlassian-Produkten wie Jira zum Beispiel wird das Einfügen von "Screenshots" (Bildanhängen) ausgelöst.

Die Frage ist also:

Wie kann ich Excel anweisen, Bilddaten NICHT in die Zwischenablage zu legen, wenn ich auf Ctrl+ drücke C?

Mir ist bekannt, dass in den oben genannten Apps das Einfügen von Klartext erzwungen werden kann. Ich frage nicht, wie das geht. Das ist umständlich, da es keine Standardmethode gibt.

Ctrl+ Shift+ Vin Chrome.

Ctrl+ V, Ctrl, TIn Outlook.

usw...

1

1 Antwort auf die Frage

0
Rajesh S

Sie können diesen VBA-Code ausprobieren, um zu prüfen, ob die Zwischenablage Bilddaten enthält oder nicht. Wenn dies der Fall ist, verhindert der Code, dass er eingefügt wird.

Denken Sie daran, dass der Effekt von Strg + C nur durch Deaktivieren beendet werden kann. Ich glaube also, dass dies die bestmögliche Lösung ist.

Hinweis: Bevor Sie diesen VBA-Code ausführen, klicken Sie im VB-Editor auf Tool, dann auf Verweise und wählen Sie Microsoft Form 2.0-Objektbibliothek aus .

Besser verwenden Sie den Code mit dem Open-Ereignis "Workbook".

Private Sub Workbook_open()  Dim BufObj As MSForms.DataObject Set BufObj = New MSForms.DataObject  BufObj.GetFromClipboard  On Error Resume Next ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:=False  If Err Then MsgBox "Nothing in ClipBoard!": Err.Clear  Else  MsgBox "Picture in ClipBoard": Err.Clear Application.CutCopyMode = False Application.DisplayAlerts = False  End If  End Sub

Hinweis: Sie müssen auch ein Befehlsschaltflächen-Klickereignis erstellen, um den Schnittkopiermodus zu aktivieren . Dieser einfache Code wird es tun.

Application.CutCopyMode = True  Application.DisplayAlerts = Ture

Dieser Code wurde von mir getestet, bevor ich ihn hier gepostet habe.

Verwandte Probleme