I refrain from frequent updates because it prompts a message for new versions that can be a headache for users as well. So, I will add this to the list of jobs only rather than uploading a new version.
But you can edit the code. It is simple if you need "all" the labels having the same scale.
Find this line:
A.WriteLine (" <ListStyle>")
There are two instances. The first one is the tag for the normal mode of the icon and the second is for the highlighted mode. Adding these lines before any one or both of them as you wish must meet your need:
A.WriteLine (" <LabelStyle><scale>0</scale></LabelStyle>")
For conditional process, you can use the ID column with a small trick. For instance:
for placemark #1:
1id
for placemark #2:
2id
add this into the code (or any instr() usage):
A.WriteLine (" <LabelStyle><scale>")
If varArr1(varX1, varId) <> "" Then
If left(varArr1(varX1, varId),1) = "
1" Then
A.WriteLine ("
1")
ElseIf left(varArr1(varX1, varId),1) = "
2" Then
A.WriteLine ("
2")
End If
End If
A.WriteLine (" </scale></LabelStyle>")
There are interesting effects while playing with the normal and highlighted modes.
