Add-in Funktioniert nicht mehr
15.04.2019 14:51:12
Timon
Ich Habe ein Add-in das bisher immer funktionert hat, jetzt geht es nicht mehr.
Die Funktion war: Ein Wert mit Ctr+C in den PDF Editor zu kopieren, so dass der Wert automatisch auf die Standart Schrift des PDF Editor Eingefügt wird.
Add-Inn:
Private Sub changecopy()
If CommandBars("myToolbar").Controls("CopyToPDF").State = msoButtonUp Then
CommandBars("myToolbar").Controls("CopyToPDF").State = msoButtonDown
Application.OnKey "^c", "CopyToPDF"
Else
CommandBars("myToolbar").Controls("CopyToPDF").State = msoButtonUp
Application.OnKey "^c"
End If
End Sub
Private Sub CopyToPDF()
Dim dOBJ As DataObject
Dim S As String
Selection.Copy
Set dOBJ = New DataObject
With dOBJ
.GetFromClipboard
S = .GetText
.Clear
.SetText S, 1
.PutInClipboard
End With
End Sub
Sieht/Kennt jemand das Problem?
Danke für Eure Unterstützung
Gruss