Hi, all.
Thanks, Paul, it functions.
But, I think there is a catch, at least on Office(Word) 365 USA and Brazil versions:
Shape gets a name Picture # (Picture 1, Picture 2, etc); if you try to add a "Tag", like
Code:
shpPicture.Name = shpPicture.Name & "_" & Format(Now(), "yyyymmdd") & imageTag
it will not work because of the space in Picture 1...
You have to remove the space, like:
Code:
shpPicture.Name = VBA.Replace(shpPicture.Name & "_" & Format(Now(), "yyyymmdd") & imageTag, " ", "")
PS 1: the Date and imageTag? To know what they are and safe delete or move in another occasion.
PS 2: Amazing thing, the index Array at the end, with no need of intermediate variables, thanks for teach it.