This VB code is designed to extract metadata from an image and plug fields in a VB form. It is part of an alternative metadata entry system I want to develop to make captioning pictures much quicker..
Dim selItem, imageData, title, subject, author, copyright, imagedesc, taggery,cammake,fnumber,speed
For Each selItem in clickData.func.sourcetab.selected
Set imageData = selItem.Metadata.image
title = imageData.title
subject = imageData.Subject
author = imageData.mp3artist
copyright = imageData.copyright
imagedesc = imageData.imagedesc
taggery = imagedata.tags
cammake = imagedata.cameramodel
If cammake = ("")Then
cammake = "N/A"
End If
fnumber = imagedata.fnumber
If fnumber = ("")Then
fnumber = "N/A"
End If
speed = imagedata.exposuretime
If speed = ("")Then
speed = "N/A"
End If
It works perfectly in every respect except in respect of the tags (keywords). Whilst every other variable contains a value, the tags variable never does.
The second part of the code (which I have not included here) proceeds to take any user generated content from the form and plug the metadata fields of the image with the contents of the form fields.
This works perfectly - including the tags field. I can add tags to the keyword field with ease, but I can never read them back into the form.
I must be doing something wrong, but what? Anyone any ideas?