I am working on a macro where the filename of a .jpg will be placed on the worksheet. Anyone know how to pull the filename and place it?
OK, I don't have time to study this completely at the moment but it would be something like this:
Dim s9 As ShapeSet s9 = ActiveLayer.CreateArtisticText(1.304646, 9.70135, FileName)s9.Fill.UniformColor.CMYKAssign 0, 0, 0, 100s9.Outline.SetNoOutlines9.story.Font = "Arial"s9.story.Size = 10
If you place that code inside the sub CropAndMove code you should have the FileName and should be able to change the position where you create the text, as an offset to the values passed to CropAndMove.