Mecki14
Mitglied
AW: IPTC-Keywords per Skript/F-Taste in den Zwischenspeicher kopieren
Hallo Eike,
ich habe das Skript neu geschrieben. Allerdings bezieht es sich auf das Bild im Arbeitsfenster.
Auf Wunsch schreibe ich Dir das Skript aber gerne um auf das erste im Computerverzeichnis markierte Bild.
PS: Das im Zubehörbereich aufgeführte Skript Keyword2Clipboard.js ist nicht mehr vorhanden. Der Eintrag sollte gelöscht werden.
Hallo Eike,
ich habe das Skript neu geschrieben. Allerdings bezieht es sich auf das Bild im Arbeitsfenster.
Code:
'FFSubmenu=IPTC
'FFName=IPTC-Keywords ->Zwischenablage
'Das Skript sammelt vorhandene Schlüsselworte (Keywords)
'eines in das Arbeitsfenster geladenen Bildes und bildet daraus
'eine durch Kommata getrennte Schlüsselwort-Kette,
'die in die Zwischenablage kopiert wird.
Option Explicit
Dim KW 'Keywords
'********************************************************
call main
'********************************************************
Sub main
if FF_GetImageWidth = 0 then
msgbox "Kein Bild geladen!",vbCritical,"Abbruch"
exit sub
end if
KW = FF_GetIPTC("keywords")
if len(KW) = 0 then
msgbox "Das Bild enthält keine Keywords!",vbCritical,"Abbruch"
exit sub
end if
KW = replace(KW,vbCrLf,",")
FF_TextToClipboard KW
End Sub
'********************************************************
PS: Das im Zubehörbereich aufgeführte Skript Keyword2Clipboard.js ist nicht mehr vorhanden. Der Eintrag sollte gelöscht werden.
Zuletzt bearbeitet: