For Each f In clickData.func.sourcetab.selected
For Each tag In f.metadata.tags
If (tagString <> "") Then
tagString = tagString & "; "
tagString = tagString & tag
tagString = tag
This code snippet selects all the tags in an image and pops them into a variable separated by semi-colons. It is great as far as it goes, but has one major drawback.
If the user inadvertently selects more than one file the variable ends up with tags from multiple files. I have been banging my head against the wall trying to work out how I can make the code work on only the first file selected.
Any help from you VBA gurus would be most welcome.