link - copy to clipboard
Ralf_P
ich habe eine Tabelle mit Hyperlinks zu diversen Grafikdateien auf einem Netzlaufwerk.
Über eine UF kann man sich Vorschaubilder der einzelnen Grafiken ansehen.
Ich möchte gerne einen Button "in Zwischenablage kopieren" anlegen, der den aktuellen Zellwert z. B.
"Z:\Bilder\Grafik_xyz.jpg" verwendet, um diese Grafik in die Zwischenablage zu kopieren.
Nach langem googeln und testen habe ich zumindest den Link als Text in die Zwischenablage bekommen, aber nicht das Bild.
Auch folgender Ansatz geht nicht:
Private Sub CommandButton5_Click()
Dim Zwischenablage As DataObject
Set Zwischenablage = New DataObject
obj = Cells(Nummer, 2).Value
'Zwischenablage.SetImage (obj)
Zwischenablage.PutInClipboard
End Sub
MfG
Ralf